[GB.FORM]

* NEW: Take the DateChooser[].Font property into account.


git-svn-id: svn://localhost/gambas/trunk@5469 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2012-12-24 13:39:15 +00:00
parent d5cc03fbdc
commit 1e58b08fa6
5 changed files with 15 additions and 4 deletions

View file

@ -3,4 +3,3 @@ Key=gb.form
Version=3.3.90
Authors=Benoît Minisini
Needs=Form

View file

@ -1,7 +1,7 @@
# Gambas Project File 3.0
# Compiled with Gambas 3.3.90
Title=More controls for graphical components
Startup=FLCDLabel
Startup=Form2
Version=3.3.90
VersionFile=1
Component=gb.image
@ -9,7 +9,7 @@ Component=gb.gui
Component=gb.form
Component=gb.settings
Authors="Benoît Minisini"
Environment="GB_GUI=gb.qt4\nGB_STOCK=debug\nLANG=C\nLC_ALL=C"
Environment="GB_GUI=gb.qt4\nGB_STOCK=debug"
TabSize=2
Translate=1
Language=en

View file

@ -52,7 +52,7 @@ Public Sub _new()
dwgTime.W = Desktop.Scale * 16
FillMonth(False )
FillMonth(False)
$dDate = Now
SetDate()
@ -217,6 +217,8 @@ Public Sub dwgMonth_Draw()
iBackground = hDate.Background
If iBackground = Color.Default Then iBackground = dwgMonth.Background
Draw.Font = hDate.Font
If CInt(dDate) = CInt($dDate) Then
Draw.FillColor = If(dwgMonth.HasFocus, Color.SelectedBackground, Color.LightForeground)
Draw.Foreground = Color.SelectedForeground

View file

@ -73,4 +73,11 @@ Public Sub Button1_Click()
End
Public Sub DateChooser1_Data({Date} As Date)
If WeekDay({Date}) = gb.Sunday Then DateChooser1.Data.Foreground = Color.Red
If Day({Date}) = 24 Then DateChooser1.Data.Font = Font["serif"]
End

View file

@ -77,4 +77,7 @@
MoveScaled(61,14,24,4)
Mode = DateChooser.DateTime
}
{ DateChooser1 DateChooser
MoveScaled(6,38,48,32)
}
}