[GExperts-CVS] gexperts/unstable/Src GX_AsciiChart.pas, 1.26, 1.27 GX_Backup.pas, 1.65, 1.66 GX_CleanDirectories.pas, 1.41, 1.42 GX_ClipboardHistory.pas, 1.53, 1.54 GX_ComponentGrid.pas, 1.30, 1.31 GX_CompRename.dfm, 1.11, 1.12 GX_CompRename.pas, 1.30, 1.31 GX_ExpertManager.pas, 1.31, 1.32 GX_IdeShortCuts.dfm, 1.10, 1.11 GX_IdeShortCuts.pas, 1.42, 1.43 GX_MacroLibrary.pas, 1.11, 1.12 GX_MessageBox.pas, 1.20, 1.21 GX_MessageDialog.pas, 1.62, 1.63 GX_PeInformation.pas, 1.40, 1.41 GX_ProjDepend.pas, 1.38, 1.39 GX_SourceExport.pas, 1.32, 1.33 GX_TabOrder.dfm, 1.12, 1.13 GX_TabOrder.pas, 1.29, 1.30

[Erik B. <eb...@us...>]

Update of /cvsroot/gexperts/gexperts/unstable/Src
In directory sc8-pr-cvs2.sourceforge.net:/tmp/cvs-serv21362/Src

Modified Files:
	GX_AsciiChart.pas GX_Backup.pas GX_CleanDirectories.pas 
	GX_ClipboardHistory.pas GX_ComponentGrid.pas GX_CompRename.dfm 
	GX_CompRename.pas GX_ExpertManager.pas GX_IdeShortCuts.dfm 
	GX_IdeShortCuts.pas GX_MacroLibrary.pas GX_MessageBox.pas 
	GX_MessageDialog.pas GX_PeInformation.pas GX_ProjDepend.pas 
	GX_SourceExport.pas GX_TabOrder.dfm GX_TabOrder.pas 
Log Message:
Use Tahoma/ClearType for our main forms under most OS versions

Index: GX_MacroLibrary.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_MacroLibrary.pas,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- GX_MacroLibrary.pas	5 Jul 2006 13:54:30 -0000	1.11
+++ GX_MacroLibrary.pas	1 Apr 2007 03:26:15 -0000	1.12
@@ -826,6 +826,7 @@
 begin
   inherited;
   SetToolbarGradient(ToolBar);
+  SetDefaultFont(Self);
   //lvMacros.DoubleBuffered := True;  // Causing D2005 paint issues for docked/pinned windows
 end;
 

Index: GX_ComponentGrid.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ComponentGrid.pas,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- GX_ComponentGrid.pas	22 Nov 2006 19:37:16 -0000	1.30
+++ GX_ComponentGrid.pas	1 Apr 2007 03:26:15 -0000	1.31
@@ -439,6 +439,7 @@
 procedure TfmComponentGrid.FormCreate(Sender: TObject);
 begin
   SetToolbarGradient(ToolBar);
+  SetDefaultFont(Self);
   StringGrid := TSortGrid.Create(Self);
   with StringGrid do
   begin

Index: GX_PeInformation.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_PeInformation.pas,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -d -r1.40 -r1.41
--- GX_PeInformation.pas	17 Apr 2006 06:10:26 -0000	1.40
+++ GX_PeInformation.pas	1 Apr 2007 03:26:15 -0000	1.41
@@ -591,6 +591,7 @@
   inherited Create(AOwner);
 
   SetToolbarGradient(ToolBar);
+  SetDefaultFont(Self);
   FileDrop := TDropFileTarget.Create(nil);
   FileDrop.OnDrop := DropFiles;
   FileDrop.DragTypes := [dtCopy, dtMove, dtLink];

Index: GX_SourceExport.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_SourceExport.pas,v
retrieving revision 1.32
retrieving revision 1.33
diff -u -d -r1.32 -r1.33
--- GX_SourceExport.pas	8 Dec 2005 05:39:42 -0000	1.32
+++ GX_SourceExport.pas	1 Apr 2007 03:26:15 -0000	1.33
@@ -348,6 +348,7 @@
   inherited Create(AOwner);
 
   SetToolbarGradient(ToolBar);
+  SetDefaultFont(Self);
   // Destroyed with form
   FEditor := TSynEdit.Create(Self);
   with FEditor do

Index: GX_ExpertManager.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ExpertManager.pas,v
retrieving revision 1.31
retrieving revision 1.32
diff -u -d -r1.31 -r1.32
--- GX_ExpertManager.pas	17 Apr 2006 06:13:41 -0000	1.31
+++ GX_ExpertManager.pas	1 Apr 2007 03:26:15 -0000	1.32
@@ -250,6 +250,7 @@
   inherited Create(AOwner);
 
   SetToolbarGradient(ToolBar);
+  SetDefaultFont(Self);
   SetNonModalFormPopupMode(Self);
 
   FFileDrop := TDropFileTarget.Create(nil);

Index: GX_AsciiChart.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_AsciiChart.pas,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -d -r1.26 -r1.27
--- GX_AsciiChart.pas	16 May 2006 02:06:13 -0000	1.26
+++ GX_AsciiChart.pas	1 Apr 2007 03:26:15 -0000	1.27
@@ -722,6 +722,7 @@
   inherited Create(AOwner);
 
   SetToolbarGradient(ToolBar);
+  SetDefaultFont(Self);
   SetNonModalFormPopupMode(Self);
   GetFonts;
   CenterForm(Self);

Index: GX_ClipboardHistory.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ClipboardHistory.pas,v
retrieving revision 1.53
retrieving revision 1.54
diff -u -d -r1.53 -r1.54
--- GX_ClipboardHistory.pas	25 Jan 2006 05:36:11 -0000	1.53
+++ GX_ClipboardHistory.pas	1 Apr 2007 03:26:15 -0000	1.54
@@ -457,6 +457,7 @@
   inherited Create(AOwner);
 
   SetToolbarGradient(ToolBar);
+  SetDefaultFont(Self);
   {$IFOPT D+} SendDebug('Creating clipboard history data list'); {$ENDIF}
   FDataList := TList.Create;
   SplitterRatio := 0.50;

Index: GX_ProjDepend.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_ProjDepend.pas,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -d -r1.38 -r1.39
--- GX_ProjDepend.pas	8 Dec 2005 05:39:42 -0000	1.38
+++ GX_ProjDepend.pas	1 Apr 2007 03:26:15 -0000	1.39
@@ -750,6 +750,7 @@
 begin
   inherited Create(AOwner);
   SetToolbarGradient(ToolBar);
+  SetDefaultFont(Self);
   SetNonModalFormPopupMode(Self);
   FFilterList := TStringList.Create;
 

Index: GX_CleanDirectories.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CleanDirectories.pas,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -d -r1.41 -r1.42
--- GX_CleanDirectories.pas	17 Mar 2007 07:55:39 -0000	1.41
+++ GX_CleanDirectories.pas	1 Apr 2007 03:26:15 -0000	1.42
@@ -418,6 +418,7 @@
 begin
   laStatus.Caption := '';
   LoadSettings;
+  SetDefaultFont(Self);
 
   if CleanExpert.ExtensionList.Count > 0 then
     clbExtensions.Items.Assign(CleanExpert.ExtensionList)

Index: GX_MessageDialog.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_MessageDialog.pas,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -d -r1.62 -r1.63
--- GX_MessageDialog.pas	5 Jul 2006 13:54:30 -0000	1.62
+++ GX_MessageDialog.pas	1 Apr 2007 03:26:15 -0000	1.63
@@ -331,6 +331,7 @@
 constructor TfmMessageDialog.Create(AOwner: TComponent; Settings: TMessageDialogSettings);
 begin
   inherited Create(AOwner);
+  SetDefaultFont(Self);
   FMessageType := nil;
   pgeMessageDialogChange(Self);
   FSettings := Settings;

Index: GX_Backup.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_Backup.pas,v
retrieving revision 1.65
retrieving revision 1.66
diff -u -d -r1.65 -r1.66
--- GX_Backup.pas	17 Apr 2006 06:13:41 -0000	1.65
+++ GX_Backup.pas	1 Apr 2007 03:26:15 -0000	1.66
@@ -409,6 +409,7 @@
 constructor TfmBackup.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
+  SetDefaultFont(Self);
 
   FLibraryPath := TStringList.Create;
   FLibraryPath.Duplicates := dupIgnore;

Index: GX_TabOrder.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_TabOrder.pas,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -d -r1.29 -r1.30
--- GX_TabOrder.pas	28 Jul 2006 02:52:55 -0000	1.29
+++ GX_TabOrder.pas	1 Apr 2007 03:26:15 -0000	1.30
@@ -26,6 +26,7 @@
     procedure tvCompsKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
     procedure btnOrderByPositionClick(Sender: TObject);
     procedure btnResetOrderClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     FormEditor: IOTAFormEditor;
     FBiDiMode: TBiDiMode;
@@ -458,6 +459,11 @@
   SortTreeViewComponentsByOriginalTabOrder;
 end;
 
+procedure TfmTabOrder.FormCreate(Sender: TObject);
+begin
+  SetDefaultFont(Self);
+end;
+
 initialization
   RegisterGX_Expert(TTabExpert);
 end.

Index: GX_CompRename.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.dfm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- GX_CompRename.dfm	23 Mar 2007 09:03:34 -0000	1.11
+++ GX_CompRename.dfm	1 Apr 2007 03:26:15 -0000	1.12
@@ -45,13 +45,6 @@
     Anchors = [akLeft, akBottom]
     Caption = 'Invalid identifier'
     Color = clBtnFace
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clRed
-    Font.Height = -11
-    Font.Name = 'MS Sans Serif'
-    Font.Style = []
-    ParentColor = False
-    ParentFont = False
     Visible = False
   end
   object edtOldName: TEdit

Index: GX_CompRename.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_CompRename.pas,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- GX_CompRename.pas	23 Mar 2007 09:03:34 -0000	1.30
+++ GX_CompRename.pas	1 Apr 2007 03:26:15 -0000	1.31
@@ -826,6 +826,8 @@
 procedure TfmCompRename.FormCreate(Sender: TObject);
 begin
   SetModalFormPopupMode(Self);
+  SetDefaultFont(Self);
+  lblReason.Font.Color := clRed;
   lblReason.Top := btnOK.Top + Round((btnOK.Height / 2) - (lblReason.Height / 2));
 end;
 

Index: GX_IdeShortCuts.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeShortCuts.dfm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- GX_IdeShortCuts.dfm	16 May 2005 03:27:32 -0000	1.10
+++ GX_IdeShortCuts.dfm	1 Apr 2007 03:26:15 -0000	1.11
@@ -10,7 +10,7 @@
   Constraints.MinWidth = 500
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
-  Font.Height = -10
+  Font.Height = -11
   Font.Name = 'MS Sans Serif'
   Font.Style = []
   OldCreateOrder = True

Index: GX_IdeShortCuts.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_IdeShortCuts.pas,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- GX_IdeShortCuts.pas	6 Sep 2006 07:53:34 -0000	1.42
+++ GX_IdeShortCuts.pas	1 Apr 2007 03:26:15 -0000	1.43
@@ -650,6 +650,7 @@
 
 procedure TfmIdeShortCuts.FormCreate(Sender: TObject);
 begin
+  SetDefaultFont(Self);
   hkShortCut := TGXHotKey.Create(Self);
   hkShortCut.Parent := pnlControls;
   hkShortCut.SetBounds(100, 83, 160, 21);

Index: GX_TabOrder.dfm
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_TabOrder.dfm,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -d -r1.12 -r1.13
--- GX_TabOrder.dfm	16 May 2005 03:27:32 -0000	1.12
+++ GX_TabOrder.dfm	1 Apr 2007 03:26:15 -0000	1.13
@@ -17,6 +17,7 @@
   OldCreateOrder = True
   Position = poScreenCenter
   Scaled = False
+  OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
   object pnlButtons: TPanel

Index: GX_MessageBox.pas
===================================================================
RCS file: /cvsroot/gexperts/gexperts/unstable/Src/GX_MessageBox.pas,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- GX_MessageBox.pas	5 Jul 2006 13:54:30 -0000	1.20
+++ GX_MessageBox.pas	1 Apr 2007 03:26:15 -0000	1.21
@@ -53,7 +53,7 @@
 uses
   {$IFOPT D+} GX_DbugIntf, {$ENDIF}
   SysUtils, Consts,
-  GX_ConfigurationInfo;
+  GX_ConfigurationInfo, GX_GenericUtils;
 
 const
   MsgDlgResults: array[TMsgDlgBtn] of Integer = (
@@ -138,6 +138,7 @@
     begin
       Dlg := TfmGxMessageBox.Create(nil);
       try
+        SetDefaultFont(Dlg);
         Dlg.Caption := Adaptor.GetCaption;
         Dlg.chkNeverShowAgain.Enabled := Adaptor.AllowSuppress;
         Dlg.mmoMessage.Lines.Text := Adaptor.GetMessage;