opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Use Vista's Segeo font for all forms by using the SetVistaFonts() in mainform plus the new routine InheritFont() which simply overtakes fontname and size from the mainform to all other forms.

Browse Source
This commit is contained in:
Ansgar Becker
2008-08-29 18:20:14 +00:00
parent 084914b077
commit 9a52593dc2
42 changed files with 147 additions and 34 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/data_sorting.pas
View File

@ -20,6 +20,7 @@ type
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormDeactivate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
ColumnNames : TWideStringList;
@ -47,6 +48,12 @@ uses main, helpers;
{$R *.dfm}
procedure TDataSortingForm.FormCreate(Sender: TObject);
begin
InheritFont(Font);
end;
{**
Initialization
}