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

Let TExtForm translate all strings on a form, to reduce the code in any FormCreate event

Browse Source
This commit is contained in:
Ansgar Becker
2019-07-21 20:12:13 +02:00
parent 88a9e53f0d
commit fcdf323086
26 changed files with 8 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/data_sorting.pas
View File

@ -47,8 +47,6 @@ procedure TDataSortingForm.FormCreate(Sender: TObject);
var
i: Integer;
begin
TranslateComponent(Self);
ColumnNames := TStringList.Create;
// Take column names from listColumns and add here
for i:=0 to Mainform.SelectedTableColumns.Count-1 do begin