luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[GB.FORM]

Browse source 
* NEW: ScrollArea.Shadow is now a dynamic property. This will be backported 
  to 3.3 as soon as possible because this is a forbidden background 
  compatibility break!


git-svn-id: svn://localhost/gambas/trunk@5200 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2012-09-25 14:10:55 +00:00
parent f0a5dfb6ae
commit 2b45910f9a
5 changed files with 23 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
app/src/gambas3/.lang/.pot
View file

@ -3236,7 +3236,7 @@ msgstr ""
msgid "Procedure separation"
msgstr ""
#: FOption.form:552 FProperty.class:745
#: FOption.form:552 FProperty.class:747
msgid "None"
msgstr ""
@ -3580,50 +3580,50 @@ msgstr ""
msgid "Lock property"
msgstr ""
#: FProperty.class:351
#: FProperty.class:353
msgid "Forbidden characters in control name."
msgstr ""
#: FProperty.class:356
#: FProperty.class:358
msgid "This name is already in use."
msgstr ""
#: FProperty.class:366
#: FProperty.class:368
msgid "Forbidden characters in control group."
msgstr ""
#: FProperty.class:426
#: FProperty.class:428
msgid "Incorrect property value."
msgstr ""
#: FProperty.class:577
#: FProperty.class:579
msgid "The name of the control."
msgstr ""
#: FProperty.class:588
#: FProperty.class:590
msgid "The event group that the control belongs to."
msgstr ""
#: FProperty.class:602
#: FProperty.class:604
msgid ""
"If the form and controls dimensions must follow the size of the default font."
msgstr ""
#: FProperty.class:606
#: FProperty.class:608
msgid "If the control is public."
msgstr ""
#: FProperty.class:610
#: FProperty.class:612
msgid "If the Text property must be translated."
msgstr ""
#: FProperty.class:631
#: FProperty.class:633
msgid ""
"This property is virtual: it is only implemented in the IDE, and has no "
"existence at runtime."
msgstr ""
#: FProperty.class:942
#: FProperty.class:944
msgid "Select a file"
msgstr ""

2
app/src/gambas3/.src/Editor/Form/FProperty.class
View file

@ -38,6 +38,8 @@ Public Sub _new()
grdProperty.ScrollBar = Scroll.Vertical
grdProperty.Columns.Resizable = True
ScrollArea(grdProperty.Proxy).Shadow = True
End
Public Sub Form_Open()

2
app/src/gambas3/.src/Project.module
View file

@ -255,7 +255,7 @@ Public Sub Main()
Next
Application.Theme = Settings["/Theme"]
ScrollArea.Shadow = True
'ScrollArea.Shadow = True
OUTPUT_FILE = Temp$()
EXAMPLES_DIR = System.Path &/ "share/gambas" & Split(System.Version, ".")[0] & "/examples"

8
comp/src/gb.form/.info
View file

@ -2109,10 +2109,6 @@ _Similar
C
s
DrawingArea,ScrollView
Shadow
P
b
ScrollX
p
i
@ -2169,6 +2165,10 @@ Tablet
p
b
Shadow
p
b
View
r
DrawingArea

9
comp/src/gb.form/.src/ScrollArea.class
View file

@ -9,8 +9,6 @@ Public Const _DefaultSize As String = "24,24"
Public Const _Similar As String = "DrawingArea,ScrollView"
'Public Const _Group As String = "View"
Static Property Shadow As Boolean
Property ScrollX As Integer
Property ScrollY As Integer
Property Read ScrollWidth, ScrollW As Integer
@ -29,6 +27,7 @@ Property ScrollBar As Integer
Property Tracking As Boolean
Property Background As Integer
Property Tablet As Boolean
Property Shadow As Boolean
Property Read View As DrawingArea
Event Scroll
@ -52,7 +51,7 @@ Private $bPainted As Boolean
Private $W As Integer
Private $H As Integer
Static Private $bShadow As Boolean
Private $bShadow As Boolean
Private $iShadowN As Integer
Private $iShadowS As Integer
Private $iShadowW As Integer
@ -554,13 +553,13 @@ Private Sub Tablet_Write(Value As Boolean)
End
Static Private Function Shadow_Read() As Boolean
Private Function Shadow_Read() As Boolean
Return $bShadow
End
Static Private Sub Shadow_Write(Value As Boolean)
Private Sub Shadow_Write(Value As Boolean)
$bShadow = Value