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

Upgrade to Delphi 2010:

Browse Source 
* Removes TNT Unicode controls, which are no longer required. All VCL controls now have native Unicode support.
* Remove Delphi 11 packages, otherwise we would either need to keep TNT or break Unicode
* PngComponents update from Uwe Raabe on http://cc.embarcadero.com/Item/26127
* Adjust auto build process
* Since Delphi 2009, Strings are now UnicodeStrings, not AnsiStrings any longer. Fix a bunch of compiler errors which came along with this change.
TODO: Project should compile but give tons of compiler warnings.
This commit is contained in:
Ansgar Becker
2010-01-05 23:14:33 +00:00
parent bf22139798
commit 7d401ffde8
164 changed files with 5005 additions and 49322 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
source/data_sorting.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, SysUtils, Classes, Controls, Forms, StdCtrls, ExtCtrls, ComCtrls, Buttons,
WideStrings, TntStdCtrls, Contnrs,
WideStrings, Contnrs,
helpers;
@ -91,7 +91,7 @@ procedure TDataSortingForm.DisplaySortingControls;
var
labelNumber: TLabel;
buttonDelete: TButton;
dropdownCols: TTNTComboBox;
dropdownCols: TComboBox;
buttonOrder: TSpeedButton;
i, xPosition, topPosition, btnWidth : Integer;
begin
@ -128,7 +128,7 @@ begin
Inc( xPosition, labelNumber.Width + MARGIN );
// 2. Dropdown with columnnames
dropdownCols := TTNTComboBox.Create(self);
dropdownCols := TComboBox.Create(self);
dropdownCols.Parent := pnlBevel;
dropdownCols.Width := 120;
dropdownCols.Height := LINE_HEIGHT;
@ -203,9 +203,9 @@ end;
}
procedure TDataSortingForm.dropdownColsChange( Sender: TObject );
var
combo : TTnTComboBox;
combo : TComboBox;
begin
combo := Sender as TTnTComboBox;
combo := Sender as TComboBox;
OrderColumns[combo.Tag-1].ColumnName := combo.Text;
// Enables OK button