[DEVELOPMENT ENVIRONMENT]

* NEW: Make better module icons. git-svn-id: svn://localhost/gambas/trunk@1928 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2009-04-11 23:20:57 +00:00 · 2009-04-11 23:20:57 +00:00 · 8641a81db2
commit 8641a81db2
parent 5b6b908f2b
9 changed files with 2 additions and 6 deletions
--- a/app/src/gambas3/Project.module
+++ b/app/src/gambas3/Project.module
@ -554,12 +554,8 @@ Private Sub MakeModuleIcon(sModule As String, Optional iSize As Integer) As Pict
  hPict = Picture[sKey]
  If Not hPict Then 
    hImage = $hFileImage.Stretch(iSize, iSize)
-    If iSize = 16 Then
-      hImageModule = Image.Load("img/module" &/ sModule & "-16.png")
-    Else
-      hImageModule = Image.Load("img/module" &/ sModule & ".png").Stretch(iSize, iSize)
-    Endif
-    hImage.Draw(hImageModule, 0, 0)
+    hImageModule = Image.Load("img/module" &/ sModule & ".png") '.Stretch(iSize / 2, iSize / 2)
+    hImage.Draw(hImageModule, iSize / 4, iSize / 4, iSize / 2, iSize / 2)
    hPict = hImage.Picture
    Picture[sKey] = hPict
  Endif
--- a/app/src/gambas3/img/module/class-16.png
+++ b/app/src/gambas3/img/module/class-16.png
--- a/app/src/gambas3/img/module/class.png
+++ b/app/src/gambas3/img/module/class.png
--- a/app/src/gambas3/img/module/form-16.png
+++ b/app/src/gambas3/img/module/form-16.png
--- a/app/src/gambas3/img/module/form.png
+++ b/app/src/gambas3/img/module/form.png
--- a/app/src/gambas3/img/module/module-16.png
+++ b/app/src/gambas3/img/module/module-16.png
--- a/app/src/gambas3/img/module/module.png
+++ b/app/src/gambas3/img/module/module.png
--- a/app/src/gambas3/img/module/webpage-16.png
+++ b/app/src/gambas3/img/module/webpage-16.png
--- a/app/src/gambas3/img/module/webpage.png
+++ b/app/src/gambas3/img/module/webpage.png