diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-11-18 11:18:05 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-11-18 11:18:05 +0000 |
| commit | 936f344935c2d06bf508b6001e0bba3f389ef8d9 (patch) | |
| tree | 5339dcb2d74131e6ca6c921f8d40bc64d15b0624 /src | |
| parent | ab2569a346ac6ff136956c50ddf5867a7bfdd75e (diff) | |
| download | fpGUI-936f344935c2d06bf508b6001e0bba3f389ef8d9.tar.xz | |
* Minor bug fix in TfpgApplication. Setting the HintPase didn't affect the hint pause at all.
* By default the Hint Windows now doesn't have a shadow. More consistent with desktop environments.
* Removed some compiler hints from UI Designer.
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/fpg_main.pas | 1 | ||||
| -rw-r--r-- | src/gui/fpg_hint.pas | 4 |
2 files changed, 3 insertions, 2 deletions
diff --git a/src/corelib/fpg_main.pas b/src/corelib/fpg_main.pas index aaa0c7c2..98dc2033 100644 --- a/src/corelib/fpg_main.pas +++ b/src/corelib/fpg_main.pas @@ -1024,6 +1024,7 @@ end; procedure TfpgApplication.SetHintPause(const AValue: Integer); begin FHintPause := AValue; + FHintTimer.Interval := FHintPause; end; procedure TfpgApplication.InternalMsgClose(var msg: TfpgMessageRec); diff --git a/src/gui/fpg_hint.pas b/src/gui/fpg_hint.pas index 25af0fb4..34fc7ca2 100644 --- a/src/gui/fpg_hint.pas +++ b/src/gui/fpg_hint.pas @@ -60,7 +60,7 @@ type procedure SetPosition(aleft, atop, awidth, aheight: TfpgCoord); override; property Font: TfpgFont read FFont; property Text: TfpgString read GetText write SetText; - property Shadow: Integer read FShadow write SetShadow default 5; + property Shadow: Integer read FShadow write SetShadow default 0; property Border: Integer read FBorder write SetBorder default 1; property Margin: Integer read FMargin write FMargin default 3; property LTextColor: TfpgColor write SetLTextColor default clBlack; @@ -183,7 +183,7 @@ begin FFont := fpgGetFont('#Label1'); FMargin := 3; FBorder := 1; - FShadow := 5; + FShadow := 0; // no shadow by default FTime := 5000; L_Hint := CreateLabel(Self, FBorder, FBorder, '', Width - FBorder * 2, Height - FBorder * 2, taCenter, tlCenter); L_Hint.BackgroundColor := clHintWindow; |