diff options
Diffstat (limited to 'src')
-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; |