From a62206f31a587efadcc40c877f5e45130c807844 Mon Sep 17 00:00:00 2001 From: graemeg Date: Wed, 10 Sep 2008 11:36:44 +0000 Subject: * Published ShowHint and ParentShowHint for all gui components. * UI Designer: Updated the designer to support ShowHint and ParentShowHint properties. * Updated the ShowHint property in TfpgWidget to use the stored property specifier. --- src/corelib/gfx_widget.pas | 10 +++++- src/gui/gui_button.pas | 1 + src/gui/gui_checkbox.pas | 2 ++ src/gui/gui_combobox.pas | 2 ++ src/gui/gui_edit.pas | 2 ++ src/gui/gui_form.pas | 1 + src/gui/gui_gauge.pas | 6 ++-- src/gui/gui_grid.pas | 2 ++ src/gui/gui_label.pas | 1 + src/gui/gui_listbox.pas | 2 ++ src/gui/gui_listview.pas | 12 ++++--- src/gui/gui_memo.pas | 2 ++ src/gui/gui_panel.pas | 4 +++ src/gui/gui_popupcalendar.pas | 2 ++ src/gui/gui_progressbar.pas | 2 ++ src/gui/gui_radiobutton.pas | 2 ++ src/gui/gui_tab.pas | 2 ++ src/gui/gui_trackbar.pas | 2 ++ src/gui/gui_tree.pas | 2 ++ uidesigner/vfddesigner.pas | 83 +++++++++++-------------------------------- uidesigner/vfdprops.pas | 19 +++++----- uidesigner/vfdwidgets.pas | 37 +++++++++++++++++++ 22 files changed, 119 insertions(+), 79 deletions(-) diff --git a/src/corelib/gfx_widget.pas b/src/corelib/gfx_widget.pas index 1e945c19..5ce5bd9e 100644 --- a/src/corelib/gfx_widget.pas +++ b/src/corelib/gfx_widget.pas @@ -35,6 +35,7 @@ type FOnResize: TNotifyEvent; FOnScreen: boolean; procedure SetActiveWidget(const AValue: TfpgWidget); + function IsShowHintStored: boolean; protected procedure MsgPaint(var msg: TfpgMessageRec); message FPGM_PAINT; procedure MsgResize(var msg: TfpgMessageRec); message FPGM_RESIZE; @@ -135,7 +136,7 @@ type property Anchors: TAnchors read FAnchors write FAnchors; property Align: TAlign read FAlign write FAlign; property Hint: string read FHint write FHint; - property ShowHint: boolean read FShowHint write SetShowHint default False; + property ShowHint: boolean read FShowHint write SetShowHint stored IsShowHintStored; property ParentShowHint: boolean read FParentShowHint write SetParentShowHint default True; property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor default clWindowBackground; property TextColor: TfpgColor read FTextColor write SetTextColor default clText1; @@ -197,6 +198,11 @@ begin FActiveWidget.HandleSetFocus; end; +function TfpgWidget.IsShowHintStored: boolean; +begin + Result := not ParentShowHint; +end; + procedure TfpgWidget.SetVisible(const AValue: boolean); begin if FVisible = AValue then @@ -224,6 +230,8 @@ procedure TfpgWidget.SetParentShowHint(const AValue: boolean); begin if FParentShowHint <> AValue then FParentShowHint := AValue; + if FParentShowHint then + FShowHint := False; end; procedure TfpgWidget.DoUpdateWindowPosition; diff --git a/src/gui/gui_button.pas b/src/gui/gui_button.pas index 6c7a3971..cd1ad1eb 100644 --- a/src/gui/gui_button.pas +++ b/src/gui/gui_button.pas @@ -130,6 +130,7 @@ type property ImageName; property ImageSpacing; property ModalResult; + property ParentShowHint; property ShowHint; property ShowImage; property Text; diff --git a/src/gui/gui_checkbox.pas b/src/gui/gui_checkbox.pas index f0013043..412f77d6 100644 --- a/src/gui/gui_checkbox.pas +++ b/src/gui/gui_checkbox.pas @@ -57,6 +57,8 @@ type property BackgroundColor; property Checked: boolean read FChecked write SetChecked default False; property FontDesc: string read GetFontDesc write SetFontDesc; + property ParentShowHint; + property ShowHint; property TabOrder; property Text: string read FText write SetText; property TextColor; diff --git a/src/gui/gui_combobox.pas b/src/gui/gui_combobox.pas index dbd07504..f4a4ecc0 100644 --- a/src/gui/gui_combobox.pas +++ b/src/gui/gui_combobox.pas @@ -138,6 +138,8 @@ type property Height; property Items; property Options; + property ParentShowHint; + property ShowHint; property TabOrder; property Text; property TextColor; diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas index dd789a32..178cf1e7 100644 --- a/src/gui/gui_edit.pas +++ b/src/gui/gui_edit.pas @@ -127,6 +127,8 @@ type property HideSelection; property MaxLength; property PasswordMode; + property ParentShowHint; + property ShowHint; property TabOrder; property Text; property TextColor; diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas index f58d08f9..fc2bdfad 100644 --- a/src/gui/gui_form.pas +++ b/src/gui/gui_form.pas @@ -100,6 +100,7 @@ type property FullScreen; property ModalResult; property Sizeable; + property ShowHint; property TextColor; property WindowPosition; property WindowTitle; diff --git a/src/gui/gui_gauge.pas b/src/gui/gui_gauge.pas index b3685d50..97da4eb9 100644 --- a/src/gui/gui_gauge.pas +++ b/src/gui/gui_gauge.pas @@ -83,15 +83,17 @@ type published property Align; property Anchors; - property SecondColor: TfpgColor read FSecondColor write SetSecondColor default clWhite; property BorderStyle: TBorderStyle read FBorderStyle write SetBorderStyle default bsSingle; property Color: TfpgColor read FColor write FColor default clButtonFace; property Enabled; property FirstColor: TfpgColor read FFirstColor write SetFirstColor default clBlack; property Kind: TGaugeKind read FKind write SetGaugeKind default gkHorizontalBar; - property MinValue: Longint read FMin write SetMin default 0; property MaxValue: Longint read FMax write SetMax default 100; + property MinValue: Longint read FMin write SetMin default 0; + property ParentShowHint; property Progress: Longint read FPosition write SetProgress; + property SecondColor: TfpgColor read FSecondColor write SetSecondColor default clWhite; + property ShowHint; property ShowText: Boolean read FShowText write SetShowText default True; property Visible; end; diff --git a/src/gui/gui_grid.pas b/src/gui/gui_grid.pas index 489da421..6d343f24 100644 --- a/src/gui/gui_grid.pas +++ b/src/gui/gui_grid.pas @@ -133,11 +133,13 @@ type property HeaderFontDesc; property HeaderHeight; property Options; + property ParentShowHint; property RowCount; property RowSelect; property ScrollBarStyle; property ShowGrid; property ShowHeader; + property ShowHint; property TabOrder; property TopRow; property VisibleRows; diff --git a/src/gui/gui_label.pas b/src/gui/gui_label.pas index 58808020..ed7ade85 100644 --- a/src/gui/gui_label.pas +++ b/src/gui/gui_label.pas @@ -75,6 +75,7 @@ type property Hint; property Layout; property LineSpace; + property ParentShowHint; property ShowHint; property Text; property TextColor; diff --git a/src/gui/gui_listbox.pas b/src/gui/gui_listbox.pas index 0db01afd..67803847 100644 --- a/src/gui/gui_listbox.pas +++ b/src/gui/gui_listbox.pas @@ -131,7 +131,9 @@ type property FontDesc; property HotTrack; property Items; + property ParentShowHint; property PopupFrame; + property ShowHint; property TabOrder; property TextColor; end; diff --git a/src/gui/gui_listview.pas b/src/gui/gui_listview.pas index 094f8281..45e51fcc 100644 --- a/src/gui/gui_listview.pas +++ b/src/gui/gui_listview.pas @@ -247,15 +247,17 @@ type function ItemAdd: TfpgLVItem; published property Columns: TfpgLVColumns read FColumns; - property Items: TfpgLVItems read FItems write SetItems; - property SelectionFollowsFocus: Boolean read FSelectionFollowsFocus write FSelectionFollowsFocus; - property ShowHeaders: Boolean read FShowHeaders write SetShowHeaders; - property MultiSelect: Boolean read FMultiSelect write SetMultiSelect; - property VScrollBar: TfpgScrollBar read FVScrollBar; property HScrollBar: TfpgScrollBar read FHScrollBar; property ItemHeight: Integer read GetItemHeight; property ItemIndex: Integer read FItemIndex write SetItemIndex; + property Items: TfpgLVItems read FItems write SetItems; + property MultiSelect: Boolean read FMultiSelect write SetMultiSelect; + property ParentShowHint; + property SelectionFollowsFocus: Boolean read FSelectionFollowsFocus write FSelectionFollowsFocus; + property ShowHeaders: Boolean read FShowHeaders write SetShowHeaders; + property ShowHint; property TabOrder; + property VScrollBar: TfpgScrollBar read FVScrollBar; property OnColumnClick: TfpgLVColumnClickEvent read FOnColumnClick write SetOnColumnClick; property OnPaintColumn: TfpgLVPaintColumnEvent read FOnPaintColumn write FOnPaintColumn; property OnPaintItem: TfpgLVPaintItemEvent read FOnPaintItem write FOnPaintItem; diff --git a/src/gui/gui_memo.pas b/src/gui/gui_memo.pas index afd9d4fb..e4f56ccb 100644 --- a/src/gui/gui_memo.pas +++ b/src/gui/gui_memo.pas @@ -106,6 +106,8 @@ type property BackgroundColor default clBoxColor; property FontDesc: string read GetFontDesc write SetFontDesc; property Lines: TStringList read FLines; + property ParentShowHint; + property ShowHint; property TabOrder; property TextColor; property OnChange: TNotifyEvent read FOnChange write FOnChange; diff --git a/src/gui/gui_panel.pas b/src/gui/gui_panel.pas index 3ea6c4a5..da9e1875 100644 --- a/src/gui/gui_panel.pas +++ b/src/gui/gui_panel.pas @@ -63,7 +63,9 @@ type published property BackgroundColor; property BorderStyle; + property ParentShowHint; property Shape: TPanelShape read FPanelShape write SetPanelShape default bsBox; + property ShowHint; property Style; property OnClick; property OnDoubleClick; @@ -108,6 +110,8 @@ type property BorderStyle; property FontDesc: string read GetFontDesc write SetFontDesc; property Layout: TLayout read GetLayout write SetLayout default tlCenter; + property ParentShowHint; + property ShowHint; property Style; property Text: string read GetText write SetText; property TextColor; diff --git a/src/gui/gui_popupcalendar.pas b/src/gui/gui_popupcalendar.pas index 6ee37019..b9915457 100644 --- a/src/gui/gui_popupcalendar.pas +++ b/src/gui/gui_popupcalendar.pas @@ -140,6 +140,8 @@ type property FontDesc; property MinDate: TDateTime read FMinDate write SetMinDate; property MaxDate: TDateTime read FMaxDate write SetMaxDate; + property ParentShowHint; + property ShowHint; { Clicking on calendar Today button will close the popup calendar by default } property CloseOnSelect: boolean read FCloseOnSelect write SetCloseOnSelect default True; property TabOrder; diff --git a/src/gui/gui_progressbar.pas b/src/gui/gui_progressbar.pas index d6d25b60..a0c0491f 100644 --- a/src/gui/gui_progressbar.pas +++ b/src/gui/gui_progressbar.pas @@ -64,7 +64,9 @@ type property ShowCaption; property Max; property Min; + property ParentShowHint; property Position; + property ShowHint; property Step; property TextColor; end; diff --git a/src/gui/gui_radiobutton.pas b/src/gui/gui_radiobutton.pas index 445ac44d..33b76bd2 100644 --- a/src/gui/gui_radiobutton.pas +++ b/src/gui/gui_radiobutton.pas @@ -65,6 +65,8 @@ type property Checked: boolean read FChecked write SetChecked default False; property FontDesc: string read GetFontDesc write SetFontDesc; property GroupIndex: integer read FGroupIndex write FGroupIndex; + property ParentShowHint; + property ShowHint; property TabOrder; property Text: string read FText write SetText; property TextColor; diff --git a/src/gui/gui_tab.pas b/src/gui/gui_tab.pas index a26d1590..b39863c6 100644 --- a/src/gui/gui_tab.pas +++ b/src/gui/gui_tab.pas @@ -125,6 +125,8 @@ type property ActivePageIndex: integer read GetActivePageIndex write SetActivePageIndex; property BackgroundColor; property FixedTabWidth: integer read FFixedTabWidth write SetFixedTabWidth default 0; + property ParentShowHint; + property ShowHint; property SortPages: boolean read FSortPages write SetSortPages default False; property Style: TfpgTabStyle read FStyle write SetStyle default tsTabs; property TabOrder; diff --git a/src/gui/gui_trackbar.pas b/src/gui/gui_trackbar.pas index c76debe4..08d9b5fe 100644 --- a/src/gui/gui_trackbar.pas +++ b/src/gui/gui_trackbar.pas @@ -117,6 +117,8 @@ type property ScrollStep: integer read FScrollStep write FScrollStep default 1; property Min: integer read FMin write SetMin default 0; property Max: integer read FMax write SetMax default 100; + property ParentShowHint; + property ShowHint; property ShowPosition: boolean read FShowPosition write SetShowPosition default False; property Orientation: TOrientation read FOrientation write FOrientation default orHorizontal; property TabOrder; diff --git a/src/gui/gui_tree.pas b/src/gui/gui_tree.pas index 2beb35de..8571f89b 100644 --- a/src/gui/gui_tree.pas +++ b/src/gui/gui_tree.pas @@ -222,8 +222,10 @@ type property FontDesc: string read GetFontDesc write SetFontDesc; property IndentNodeWithNoImage: boolean read FIndentNodeWithNoImage write SetIndentNodeWithNoImage default True; property NoImageIndent: integer read FNoImageIndent write FNoImageIndent default 16; + property ParentShowHint; property ScrollWheelDelta: integer read FScrollWheelDelta write FScrollWheelDelta default 15; property ShowColumns: boolean read FShowColumns write SetShowColumns default False; + property ShowHint; property ShowImages: boolean read FShowImages write SetShowImages default False; property TabOrder; property TreeLineColor: TfpgColor read FTreeLineColor write SetTreeLineColor default clShadow1; diff --git a/uidesigner/vfddesigner.pas b/uidesigner/vfddesigner.pas index f8bb23af..ee1c4477 100644 --- a/uidesigner/vfddesigner.pas +++ b/uidesigner/vfddesigner.pas @@ -892,68 +892,6 @@ begin btnAnRight.Down := anRight in wg.Anchors; btnAnBottom.Down := anBottom in wg.Anchors; end; - - Exit; - { - with PropertyForm do - begin - if wg is TOtherWidget then lbClass.Text8 := TOtherWidget(wg).wgClassName - else lbClass.Text8 := wg.ClassName; - - edName.Text8 := wg.Name; - - lbLeft.Text8 := IntToStr(wg.Left); - lbTop.Text8 := IntToStr(wg.Top); - lbWidth.Text8 := IntToStr(wg.Width); - lbHeight.Text8 := IntToStr(wg.Height); - - cbAL.Checked := anLeft in wg.Anchors; - cbAT.Checked := anTop in wg.Anchors; - cbAR.Checked := anRight in wg.Anchors; - cbAB.Checked := anBottom in wg.Anchors; - - btxt := true; - bedit := false; - lbText.Text := u8('Text:'); - - if wg is TGfxForm then edText.Text := TGfxForm(wg).WindowTitle - else if wg is TwgLabel then edText.Text := TwgLabel(wg).Text - else if wg is TwgEdit then edText.Text := TwgEdit(wg).Text - else if wg is TwgButton then edText.Text := TwgButton(wg).Text - else if wg is TwgCheckBox then edText.Text := TwgCheckBox(wg).Text - else btxt := false; - - if not btxt and ((wg is TwgMemo) or (wg is TwgChoiceList) or (wg is TwgTextListBox)) - then - begin - bedit := true; - lbText.Text := u8('Items:'); - btnEdit.Text := u8('Edit items...'); - end - else if (wg is TwgDBGrid) then - begin - bedit := true; - //lbText.Text := u8('Items:'); - btnEdit.Text := u8('Edit columns...'); - end; - - if scd <> nil then - begin - edOther.Text := str8to16(scd.other.Text); - end - else - begin - edOther.Text := str8to16(FFormOther); - end; - - edText.Visible := btxt; - lbText.Visible := btxt; - btnEdit.Visible := bedit; - edName.Visible := (wgcnt < 2); - edOther.Visible := (wgcnt < 2); - - end; // with PropertyForm -} end; procedure TFormDesigner.OnPropTextChange(Sender: TObject); @@ -1228,12 +1166,16 @@ end; function TFormDesigner.GetFormSourceImpl: string; var - s: string; + s: TfpgString; sl: TStringList; n: integer; wd: TWidgetDesigner; wg: TfpgWidget; wgclass, pwgname: string; + + t: TfpgString; + i: integer; + PropInfo: PPropInfo; begin s := ''; @@ -1267,6 +1209,21 @@ begin } s := s + ' WindowTitle := ' + QuotedStr(FForm.WindowTitle) + ';' + LineEnding; + // ShowHint property - This is ugly, Form's properties or not handled well!! + PropInfo := GetPropInfo(FForm.ClassType, 'ShowHint'); + i := GetOrdProp(FForm, 'ShowHint'); + if IsStoredProp(FForm, PropInfo) then + begin + if PropInfo^.Default <> i then + begin + if i = 1 then + t := 'True' + else + t := 'False'; + s := s + ' ShowHint := ' + t + ';' + LineEnding; + end; + end; + //adding other form properties, idented sl := TStringList.Create; sl.Text := FFormOther; diff --git a/uidesigner/vfdprops.pas b/uidesigner/vfdprops.pas index a46b73c5..0b701c8d 100644 --- a/uidesigner/vfdprops.pas +++ b/uidesigner/vfdprops.pas @@ -488,16 +488,19 @@ var begin PropInfo := GetPropInfo(wg.ClassType, Name); i := GetOrdProp(wg, Name); - if PropInfo^.Default <> i then + if IsStoredProp(wg, PropInfo) then begin - if i = 1 then - s := 'True' + if PropInfo^.Default <> i then + begin + if i = 1 then + s := 'True' + else + s := 'False'; + Result := ident + Name + ' := ' + s + ';' + LineEnding; + end else - s := 'False'; - Result := ident + Name + ' := ' + s + ';' + LineEnding; - end - else - Result := ''; + Result := ''; + end; end; function TPropertyBoolean.GetValueText(wg: TfpgWidget): string; diff --git a/uidesigner/vfdwidgets.pas b/uidesigner/vfdwidgets.pas index c002b6b9..4f338151 100644 --- a/uidesigner/vfdwidgets.pas +++ b/uidesigner/vfdwidgets.pas @@ -227,6 +227,7 @@ begin wc.NameBase := 'frm'; wc.AddProperty('WindowTitle', TPropertyString, ''); // wc.AddProperty('WindowPosition', TPropertyEnum, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); FVFDFormWidget := wc; // Label @@ -236,6 +237,8 @@ begin 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('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('Text', TPropertyString, 'Label text'); wc.AddProperty('WrapText', TPropertyBoolean, 'If True text will wrap when it doesn''t fit the width'); wc.WidgetIconName := 'vfd.label'; @@ -248,6 +251,8 @@ begin wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.AddProperty('Text', TPropertyString, 'Initial text'); wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.WidgetIconName := 'vfd.edit'; RegisterVFDWidget(wc); @@ -256,6 +261,8 @@ begin wc.NameBase := 'memName'; wc.AddProperty('Lines', TPropertyStringList, ''); wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.WidgetIconName := 'vfd.memo'; RegisterVFDWidget(wc); @@ -275,6 +282,8 @@ begin wc.AddProperty('ImageName', TPropertyString, ''); wc.AddProperty('ImageSpacing', TPropertyInteger, 'Space between image and text, -1 centers text'); wc.AddProperty('ModalResult', TPropertyInteger, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('ShowImage', TPropertyBoolean, 'Boolean value'); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.WidgetIconName := 'vfd.button'; @@ -285,6 +294,8 @@ begin wc.NameBase := 'cbName'; wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value'); wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.AddProperty('Text', TPropertyString, 'Initial text'); wc.WidgetIconName := 'vfd.checkbox'; @@ -296,6 +307,8 @@ begin wc.AddProperty('Checked', TPropertyBoolean, 'Boolean value'); wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); wc.AddProperty('GroupIndex', TPropertyInteger, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.AddProperty('Text', TPropertyString, 'Initial text'); wc.WidgetIconName := 'vfd.radiobutton'; @@ -306,6 +319,8 @@ begin wc.NameBase := 'cbName'; wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); wc.AddProperty('Items', TPropertyStringList, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.WidgetIconName := 'vfd.combobox'; RegisterVFDWidget(wc); @@ -314,6 +329,8 @@ begin wc := TVFDWidgetClass.Create(TfpgCalendarCombo); wc.NameBase := 'calName'; wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.WidgetIconName := 'vfd.combodateedit'; RegisterVFDWidget(wc); @@ -324,7 +341,9 @@ begin wc.AddProperty('FontDesc', TPropertyFontDesc, 'The font used for displaying the text'); wc.AddProperty('HotTrack', TPropertyBoolean, ''); wc.AddProperty('Items', TPropertyStringList, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); wc.AddProperty('PopupFrame', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.WidgetIconName := 'vfd.listbox'; RegisterVFDWidget(wc); @@ -335,9 +354,11 @@ begin wc.AddProperty('Columns', TPropertyDBColumns, ''); wc.AddProperty('FontDesc', TPropertyFontDesc, ''); wc.AddProperty('HeaderFontDesc', TPropertyFontDesc, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); wc.AddProperty('RowCount', TPropertyInteger, ''); wc.AddProperty('RowSelect', TPropertyBoolean, ''); wc.AddProperty('ShowHeader', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('ShowGrid', TPropertyBoolean, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.WidgetIconName := 'vfd.stringgrid'; @@ -347,8 +368,10 @@ begin wc := TVFDWidgetClass.Create(TfpgBevel); wc.NameBase := 'bvlName'; wc.AddProperty('BorderStyle', TPropertyEnum, 'Single or Double'); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); wc.AddProperty('Style', TPropertyEnum, 'Raised or Lower look'); wc.AddProperty('Shape', TPropertyEnum, 'Box, Frame, TopLine, Spacer etc..'); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.WidgetIconName := 'vfd.bevel'; wc.Container := True; RegisterVFDWidget(wc); @@ -360,6 +383,8 @@ begin wc.AddProperty('Layout', TPropertyEnum, 'Layout of the caption'); wc.AddProperty('LineSpace', TPropertyInteger, 'Line spacing between wrapped caption'); wc.AddProperty('Margin', TPropertyInteger, 'Margin of text'); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('Style', TPropertyEnum, ''); wc.AddProperty('Text', TPropertyString, 'The panel caption'); wc.AddProperty('WrapText', TPropertyBoolean, 'Should the panel text be wrapped'); @@ -372,8 +397,10 @@ begin wc.NameBase := 'pbName'; wc.AddProperty('Min', TPropertyInteger, ''); wc.AddProperty('Max', TPropertyInteger, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); wc.AddProperty('Position', TPropertyInteger, ''); wc.AddProperty('ShowCaption', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.WidgetIconName := 'vfd.progressbar'; RegisterVFDWidget(wc); @@ -383,6 +410,8 @@ begin wc.AddProperty('Max', TPropertyInteger, ''); wc.AddProperty('Min', TPropertyInteger, ''); wc.AddProperty('Orientation', TPropertyEnum, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('Position', TPropertyInteger, ''); wc.AddProperty('ShowPosition', TPropertyBoolean, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); @@ -393,7 +422,9 @@ begin wc := TVFDWidgetClass.Create(TfpgListView); wc.NameBase := 'lvName'; wc.AddProperty('MultiSelect', TPropertyBoolean, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); wc.AddProperty('ShowHeaders', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.WidgetIconName := 'vfd.listview'; RegisterVFDWidget(wc); @@ -403,8 +434,10 @@ begin wc.NameBase := 'tvName'; wc.AddProperty('DefaultColumnWidth',TPropertyInteger, ''); wc.AddProperty('FontDesc',TPropertyFontDesc, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); wc.AddProperty('ScrollWheelDelta', TPropertyInteger, 'Scroll amount with mouse wheel'); wc.AddProperty('ShowColumns',TPropertyBoolean, 'Boolean value'); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('ShowImages',TPropertyBoolean, 'Boolean value'); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); wc.AddProperty('TreeLineStyle', TPropertyEnum, ''); @@ -415,6 +448,8 @@ begin wc := TVFDWidgetClass.Create(TfpgPageControl); wc.NameBase := 'pcName'; wc.AddProperty('FixedTabWidth', TPropertyInteger, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('SortPages', TPropertyBoolean, 'Boolean value'); wc.AddProperty('Style', TPropertyEnum, ''); wc.AddProperty('TabOrder', TPropertyInteger, 'The tab order'); @@ -428,7 +463,9 @@ begin wc.AddProperty('Kind', TPropertyEnum, ''); wc.AddProperty('MinValue', TPropertyInteger, ''); wc.AddProperty('MaxValue', TPropertyInteger, ''); + wc.AddProperty('ParentShowHint', TPropertyBoolean, ''); wc.AddProperty('Progress', TPropertyInteger, ''); + wc.AddProperty('ShowHint', TPropertyBoolean, ''); wc.AddProperty('ShowText', TPropertyBoolean, 'Boolean value'); wc.WidgetIconName := 'vfd.gauge'; RegisterVFDWidget(wc); -- cgit v1.2.3-70-g09d2