diff options
Diffstat (limited to 'uidesigner')
-rw-r--r-- | uidesigner/vfddesigner.pas | 11 | ||||
-rw-r--r-- | uidesigner/vfdmain.pas | 4 |
2 files changed, 4 insertions, 11 deletions
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. |