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; |