[DEVELOPMENT ENVIRONMENT]

* NEW: Form editor: Text property is now applied for "draw with" controls.


git-svn-id: svn://localhost/gambas/trunk@7473 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2015-11-12 19:23:49 +00:00
parent badd6fd945
commit 0f1511be42
3 changed files with 3 additions and 2 deletions

View file

@ -248,7 +248,7 @@ Public Sub InitControl()
If MultiContainer Then
bDoNotApply = Not CPropertyInfo.MULTI_CONTAINER_PROP.Exist(sProp)
Else
bDoNotApply = True
bDoNotApply = Not CPropertyInfo.ALLOWED_CONTROL_PROP.Exist(sProp)
Endif
Else
bDoNotApply = VirtualControl

View file

@ -6,6 +6,7 @@ Public Const PUBLIC_NAME As String = "Public"
Public Const TRANSLATE_NAME As String = "Translate"
Static Public MULTI_CONTAINER_PROP As String[] = ["Index", "Count", "Text", "Picture"]
Static Public ALLOWED_CONTROL_PROP As String[] = ["Text"]
Static Public CreatingSpecialProperty As Boolean

View file

@ -1022,7 +1022,7 @@ Public Sub MakeModuleIcon(sModule As String, iSize As Integer, Optional bStartup
hImage = $cImageCache[sKey]
If Not hImage Then
hImage = Picture["icon:/" &/ CStr(iSize) &/ "file"].Image '$cImageCache["base"]
hImage = hImage.Stretch(iSize, iSize)
'hImage = hImage.Stretch(iSize, iSize)
hImageModule = Image.Load("img/module" &/ sModule & ".png") '.Stretch(iSize / 2, iSize / 2)
hImage.PaintImage(hImageModule, iSize / 4, iSize / 4, iSize / 2, iSize / 2)