diff options
-rw-r--r-- | src/corelib/fpg_main.pas | 1 | ||||
-rw-r--r-- | src/gui/fpg_hint.pas | 4 | ||||
-rw-r--r-- | uidesigner/vfddesigner.pas | 11 | ||||
-rw-r--r-- | uidesigner/vfdmain.pas | 4 |
4 files changed, 7 insertions, 13 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; diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas index 548275e8..9c8e27c8 100644 --- a/uidesigner/vfddesigner.pas +++ b/uidesigner/vfddesigner.pas @@ -706,10 +706,9 @@ const cDivider = ' : '; var frm: TWidgetOrderForm; - n, fi, i: integer; + n, fi: integer; cd: TWidgetDesigner; identlevel: integer; - s: string; taborder: integer; procedure AddChildWidgets(pwg: TfpgWidget; slist: TStrings); @@ -993,13 +992,10 @@ end; procedure TFormDesigner.OnPropPosEdit(Sender: TObject); var frm: TEditPositionForm; - ax: TfpgCoord; - ay: TfpgCoord; wg: TfpgWidget; n: integer; cd: TWidgetDesigner; posval: integer; - pt: TPoint; procedure SetNewPos(awg: TfpgWidget; pval: integer); begin @@ -1028,7 +1024,7 @@ begin if wg = nil then wg := Form; - frm := TEditPositionForm.Create(nil); + frm := TEditPositionForm.Create(nil); if Sender = frmProperties.btnLeft then begin @@ -1076,8 +1072,7 @@ begin SetNewPos(FForm, posval); FForm.UpdateWindowPosition; end; - - end; + end; { if } UpdatePropWin; end; diff --git a/uidesigner/vfdmain.pas b/uidesigner/vfdmain.pas index f9c53701..a310acfd 100644 --- a/uidesigner/vfdmain.pas +++ b/uidesigner/vfdmain.pas @@ -85,8 +85,7 @@ uses vfdformparser, fpg_iniutils, fpg_utils, - fpg_main, - fpg_hint; + fpg_main; Var DefaultPasExt : String = '.pas'; @@ -442,7 +441,6 @@ begin DefaultPasExt := gINI.ReadString('Options', 'DefaultFileExt', '.pas'); UndoOnPropExit := gINI.ReadBool('Options', 'UndoOnExit', DefUndoOnPropExit); fpgApplication.HintPause := 1000; - TfpgHintWindow(fpgApplication.HintWindow).Shadow := 0; end; end. |