diff options
Diffstat (limited to 'uidesigner')
-rw-r--r-- | uidesigner/newformdesigner.pas | 5 | ||||
-rw-r--r-- | uidesigner/uidesigner.lpi | 5 | ||||
-rw-r--r-- | uidesigner/vfdmain.pas | 4 | ||||
-rw-r--r-- | uidesigner/vfdwidgets.pas | 2 |
4 files changed, 11 insertions, 5 deletions
diff --git a/uidesigner/newformdesigner.pas b/uidesigner/newformdesigner.pas index 0f6af0f8..b5bd9cad 100644 --- a/uidesigner/newformdesigner.pas +++ b/uidesigner/newformdesigner.pas @@ -279,6 +279,7 @@ begin SetPosition(84, 123, 728, 87); WindowTitle := 'frmMain'; WindowPosition := wpUser; + ShowHint := True; gINI.ReadFormState(self); MainMenu := TfpgMenuBar.Create(self); @@ -299,6 +300,7 @@ begin ImageMargin := -1; ImageName := 'vfd.newform'; Focusable := False; + Hint := 'Create a new form'; OnClick := @(maindsgn.OnNewForm); end; @@ -312,6 +314,7 @@ begin ImageMargin := -1; ImageName := 'stdimg.open'; Focusable := False; + Hint := 'Open a file'; OnClick := @(maindsgn.OnLoadFile); end; @@ -325,6 +328,7 @@ begin ImageMargin := -1; ImageName := 'stdimg.save'; Focusable := False; + Hint := 'Save the current form design'; OnClick := @(maindsgn.OnSaveFile); end; @@ -422,6 +426,7 @@ begin btn.ImageName := wgc.WidgetIconName; btn.ImageMargin := -1; btn.Text := ''; + btn.Hint := wgc.WidgetClass.ClassName; btn.Focusable := False; btn.OnClick := @OnPaletteClick; btn.AllowDown := True; diff --git a/uidesigner/uidesigner.lpi b/uidesigner/uidesigner.lpi index 5090138f..50fde60d 100644 --- a/uidesigner/uidesigner.lpi +++ b/uidesigner/uidesigner.lpi @@ -114,16 +114,13 @@ </Units> </ProjectOptions> <CompilerOptions> - <Version Value="5"/> + <Version Value="8"/> <Parsing> <SyntaxOptions> <AllowLabel Value="False"/> <CPPInline Value="False"/> </SyntaxOptions> </Parsing> - <CodeGeneration> - <Generate Value="Faster"/> - </CodeGeneration> <Other> <CustomOptions Value="-FUunits "/> diff --git a/uidesigner/vfdmain.pas b/uidesigner/vfdmain.pas index b11a5f02..cfa11b31 100644 --- a/uidesigner/vfdmain.pas +++ b/uidesigner/vfdmain.pas @@ -84,7 +84,8 @@ implementation uses vfdformparser, gui_iniutils, - gfx_utils; + gfx_utils, + fpgfx; Var DefaultPasExt : String = '.pas'; @@ -439,6 +440,7 @@ begin end; DefaultPasExt := gINI.ReadString('Options', 'DefaultFileExt', '.pas'); UndoOnPropExit := gINI.ReadBool('Options', 'UndoOnExit', DefUndoOnPropExit); + fpgApplication.HintPause := 1000; end; end. diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas index 099cf4c5..c002b6b9 100644 --- a/uidesigner/vfdwidgets.pas +++ b/uidesigner/vfdwidgets.pas @@ -234,6 +234,7 @@ begin wc.NameBase := 'lblName'; wc.AddProperty('Alignment', TPropertyEnum, 'Horizontal text alignment'); wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the label text'); + wc.AddProperty('Hint', TPropertyString, ''); wc.AddProperty('Layout', TPropertyEnum, 'Vertical text layout'); wc.AddProperty('Text', TPropertyString, 'Label text'); wc.AddProperty('WrapText', TPropertyBoolean, 'If True text will wrap when it doesn''t fit the width'); @@ -268,6 +269,7 @@ begin wc.AddProperty('Flat', TPropertyBoolean, 'Only draw button borders when mouse hovers over button'); wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); wc.AddProperty('GroupIndex', TPropertyInteger, ''); + wc.AddProperty('Hint', TPropertyString, ''); wc.AddProperty('ImageLayout', TPropertyEnum, 'Which side of the button contains the image'); wc.AddProperty('ImageMargin', TPropertyInteger, 'Space between image and border, -1 centers image/text'); wc.AddProperty('ImageName', TPropertyString, ''); |