diff options
Diffstat (limited to 'src/gui/gui_style.pas')
-rw-r--r-- | src/gui/gui_style.pas | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/gui/gui_style.pas b/src/gui/gui_style.pas index 623a5441..c2dff33b 100644 --- a/src/gui/gui_style.pas +++ b/src/gui/gui_style.pas @@ -99,6 +99,17 @@ type end; + TfpgButtonFeatures = set of (bfNone, bfFlat, bfDefault); + + // Button specific options + TfpgButtonStyleOption = class(TfpgStyleOption) + private + FButtonFeatures: TfpgButtonFeatures; + public + property ButtonFeatures: TfpgButtonFeatures read FButtonFeatures write FButtonFeatures; + end; + + TfpgBaseStyle = class(TObject) public procedure DrawControl(element: TfpgControlElement; const option: TfpgStyleOption; canvas: TfpgCanvas; widget: TfpgWidget = nil); virtual; abstract; |