diff options
author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-16 14:54:30 +0000 |
---|---|---|
committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-09-16 14:54:30 +0000 |
commit | d7927f9aa2356ac9acd5b304849655219c199d6f (patch) | |
tree | 9186ea79e0bd94760ea31ef56285a71f93144aa5 | |
parent | b4e8fca0b4a913462aaf3a8da78bb02a9b11a2b2 (diff) | |
download | fpGUI-d7927f9aa2356ac9acd5b304849655219c199d6f.tar.xz |
* property change for fpgui_toolkit package.
* Added some inline documentation for TfpgButton. Later this will move to fpdoc documentation.
-rw-r--r-- | src/corelib/gfxbase.pas | 8 | ||||
-rw-r--r-- | src/corelib/x11/fpgui_toolkit.lpk | 4 | ||||
-rw-r--r-- | src/gui/gui_button.pas | 13 |
3 files changed, 15 insertions, 10 deletions
diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas index a346b2e1..775f5cdb 100644 --- a/src/corelib/gfxbase.pas +++ b/src/corelib/gfxbase.pas @@ -512,10 +512,6 @@ type FOwner: TfpgString; FGroup: TfpgString; FAttrString: TFileModeString; - {FMode: longword; // unix - FOwnerID: integer; // unix - FGroupID: integer; // unix - FAttributes: longword; // windows} public constructor Create; property Name: string read FName write FName; @@ -530,10 +526,6 @@ type property Owner: TfpgString read FOwner write FOwner; property Group: TfpgString read FGroup write FGroup; property Attributes: TFileModeString read FAttrString write FAttrString; - {property Attributes: longword read FAttributes write FAttributes; - property Mode: longword read FMode write FMode; // only used by unix OS's - property OwnerID: integer read FOwnerID write FOwnerID; - property GroupID: integer read FGroupID write FGroupID;} end; diff --git a/src/corelib/x11/fpgui_toolkit.lpk b/src/corelib/x11/fpgui_toolkit.lpk index d73a2e95..ddbd27b9 100644 --- a/src/corelib/x11/fpgui_toolkit.lpk +++ b/src/corelib/x11/fpgui_toolkit.lpk @@ -2,9 +2,10 @@ <CONFIG> <Package Version="3"> <Name Value="fpgui_toolkit"/> + <AddToProjectUsesSection Value="False"/> <Author Value="Graeme Geldenhuys"/> <CompilerOptions> - <Version Value="5"/> + <Version Value="8"/> <SearchPaths> <OtherUnitFiles Value="../;../../gui/;../../gui/db/"/> <UnitOutputDirectory Value="../../../lib"/> @@ -18,7 +19,6 @@ </Parsing> <CodeGeneration> <SmartLinkUnit Value="True"/> - <Generate Value="Faster"/> </CodeGeneration> <Other> <CompilerPath Value="$(CompPath)"/> diff --git a/src/gui/gui_button.pas b/src/gui/gui_button.pas index cd1ad1eb..6fa2c361 100644 --- a/src/gui/gui_button.pas +++ b/src/gui/gui_button.pas @@ -113,6 +113,19 @@ type end; + { A standard push button component. + + If you want toolbar style buttons you need to set the following properties: + AllowAllUp = True; AllowDown = True; + and each button's GroupIndex must be greater than 0, but not the same as any + other button. + + If you want toggle buttons - only one button my be down at a time: + Set AllowAllUp = False and AllowDown = True + AllowDown = True will automatically set the GroupIndex = 1. If you want more + than one set of toggle buttons in a Parent, you need to manually set the + GroupIndex property instead. All buttons with the same GroupIndex work + together. } TfpgButton = class(TfpgBaseButton) published property AllowAllUp; |