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

14
source/routine_editor.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SynEdit, SynMemo, StdCtrls,
TntStdCtrls, ComCtrls, ToolWin, VirtualTrees, WideStrings, SynRegExpr, WideStrUtils,
ComCtrls, ToolWin, VirtualTrees, WideStrings, SynRegExpr, WideStrUtils,
mysql_connection, helpers, mysql_api;
type
@ -17,8 +17,8 @@ type
lblType: TLabel;
lblReturns: TLabel;
comboReturns: TComboBox;
comboType: TTNTComboBox;
editName: TTntEdit;
comboType: TComboBox;
editName: TEdit;
lblParameters: TLabel;
tlbParameters: TToolBar;
btnAddParam: TToolButton;
@ -30,7 +30,7 @@ type
lblSecurity: TLabel;
comboSecurity: TComboBox;
lblComment: TLabel;
editComment: TTntEdit;
editComment: TEdit;
chkDeterministic: TCheckBox;
lblSQLcode: TLabel;
SynMemoBody: TSynMemo;
@ -41,7 +41,7 @@ type
procedure btnAddParamClick(Sender: TObject);
procedure listParametersGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString);
var CellText: String);
procedure listParametersGetImageIndex(Sender: TBaseVirtualTree;
Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
var Ghosted: Boolean; var ImageIndex: Integer);
@ -220,7 +220,7 @@ procedure TfrmRoutineEditor.comboTypeSelect(Sender: TObject);
var
isfunc: Boolean;
begin
isfunc := (Sender as TTNTComboBox).ItemIndex = 1;
isfunc := (Sender as TComboBox).ItemIndex = 1;
lblReturns.Enabled := isfunc;
comboReturns.Enabled := isfunc;
Modification(Sender);
@ -282,7 +282,7 @@ end;
procedure TfrmRoutineEditor.listParametersGetText(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
var CellText: WideString);
var CellText: String);
var
Values: TWideStringList;
begin