From acc50fa5d7ef195ae5f1746130a7edee646feab7 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Tue, 14 Aug 2007 15:04:05 +0000
Subject: * Updated a few scripts in the docs directory. * Minor changes in the
 style unit. * Added a new examples/apps/docedit project. Once complete it
 will be a demo   application of fpGUI and at the same time show most used
 widgets in action.   DocEdit will become something like lazde is to Lazarus.

---
 src/gui/gui_dialogs.pas | 21 ++++++++++++++++-----
 src/gui/gui_form.pas    |  2 +-
 src/gui/gui_style.pas   | 11 +++++++++++
 3 files changed, 28 insertions(+), 6 deletions(-)

(limited to 'src/gui')

diff --git a/src/gui/gui_dialogs.pas b/src/gui/gui_dialogs.pas
index 9b26e3c4..76648a68 100644
--- a/src/gui/gui_dialogs.pas
+++ b/src/gui/gui_dialogs.pas
@@ -23,8 +23,8 @@ uses
 
 type
 
-  { TfpgMessageBox }
-
+  { @abstract(A standard message box dialog.) It is used by the global @link(ShowMessage)
+    function. }
   TfpgMessageBox = class(TfpgForm)
   private
     FLines: TStringList;
@@ -40,10 +40,14 @@ type
   public
     constructor Create(AOwner : TComponent); override;
     destructor  Destroy; override;
+    { This sets the message to be displayed. }
     procedure   SetMessage(AMessage: string);
   end;
   
-  
+
+  { @abstract(A abstract dialog which forms the basis of other dialogs.) This
+    dialog implements the two basic buttons (OK, Cancel) and also some keyboard
+    support like Escape to close the dialog.}
   TfpgBaseDialog = class(TfpgForm)
   protected
     FSpacing: integer;
@@ -57,7 +61,11 @@ type
     constructor Create(AOwner: TComponent); override;
   end;
   
-  
+
+  { @abstract(A standard font selection dialog.) It also contains a Collection
+    listbox which gets automatically populated based on the available fonts.
+    There are two custom collections called Favourites and Recently Used which
+    list you own selection of fonts.}
   TfpgFontSelectDialog = class(TfpgBaseDialog)
   private
     FSampleText: string;
@@ -81,13 +89,16 @@ type
     procedure   SetFontDesc(Desc: string);
   public
     constructor Create(AOwner: TComponent); override;
+    { This well set the sample text or font preview text to AText.}
     procedure   SetSampleText(AText: string);
   end;
 
-
+{ A convenience function to show a message using the TfpgMessageBox class.}
 procedure ShowMessage(AMessage, ATitle: string); overload;
+{ A convenience function to show a message using the TfpgMessageBox class.}
 procedure ShowMessage(AMessage: string); overload;
 
+{ A convenience function to show the font selection dialog (TfpgFontSelectDialog).}
 function SelectFontDialog(var FontDesc: string): boolean;
 
 
diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index 2e7472b7..10de2a44 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -159,7 +159,7 @@ end;
 constructor TfpgForm.Create(AOwner: TComponent);
 begin
   inherited;
-  FWindowPosition  := wpUser;
+  FWindowPosition  := wpAuto;
   FWindowTitle     := '';
   FSizeable        := True;
   FParentForm      := nil;
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;
-- 
cgit v1.2.3-70-g09d2