diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-07 11:35:59 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-09-07 11:35:59 +0000 |
commit | c05c7618ddfcf94117efaae8c83dfa2738f5d0a3 (patch) | |
tree | 25d5aa2247b659f35520ed40215e16f7505cb590 /src/gui/gui_radiobutton.pas | |
parent | 8c4b085a78dccc8f5e5fe429a360ad456175b173 (diff) | |
download | fpGUI-c05c7618ddfcf94117efaae8c83dfa2738f5d0a3.tar.xz |
* GUI: Made some components properties published so the RTTI can
be used against them. A required for the GUI Designer and streaming.
* GUI Designer: Added 8 new components to the component palette.
* GUI Designer: Other minor improvements.
Diffstat (limited to 'src/gui/gui_radiobutton.pas')
-rw-r--r-- | src/gui/gui_radiobutton.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/gui/gui_radiobutton.pas b/src/gui/gui_radiobutton.pas index 097dbe16..812596b2 100644 --- a/src/gui/gui_radiobutton.pas +++ b/src/gui/gui_radiobutton.pas @@ -23,10 +23,10 @@ type FText: string; FBoxSize: integer; FIsPressed: boolean; - function GetFontName: string; + function GetFontDesc: string; procedure SetBackgroundColor(const AValue: TfpgColor); procedure SetChecked(const AValue: boolean); - procedure SetFontName(const AValue: string); + procedure SetFontDesc(const AValue: string); procedure SetText(const AValue: string); protected procedure HandlePaint; override; @@ -40,7 +40,7 @@ type published property Checked: boolean read FChecked write SetChecked; property Text: string read FText write SetText; - property FontName: string read GetFontName write SetFontName; + property FontDesc: string read GetFontDesc write SetFontDesc; property BackgroundColor: TfpgColor read FBackgroundColor write SetBackgroundColor; property GroupIndex: integer read FGroupIndex write FGroupIndex; property OnChange: TNotifyEvent read FOnChange write FOnChange; @@ -62,7 +62,7 @@ end; { TfpgRadioButton } -function TfpgRadioButton.GetFontName: string; +function TfpgRadioButton.GetFontDesc: string; begin Result := FFont.FontDesc; end; @@ -101,7 +101,7 @@ begin RePaint; end; -procedure TfpgRadioButton.SetFontName(const AValue: string); +procedure TfpgRadioButton.SetFontDesc(const AValue: string); begin FFont.Free; FFont := fpgGetFont(AValue); |