summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/corelib/gfxbase.pas8
-rw-r--r--src/corelib/x11/fpgui_toolkit.lpk4
-rw-r--r--src/gui/gui_button.pas13
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;