mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
Replace out-dated code which does not compile in 64bit mode in helpers.SetWindowSizeGrip. Use a TForm descendant in the new unit "extra_controls". Code parts taken from http://www.delphigroups.info/2/4/326787.html
This commit is contained in:
@ -4,13 +4,13 @@ interface
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
|
||||
dbconnection, mysql_structures, ComCtrls, gnugettext, SynRegExpr;
|
||||
dbconnection, mysql_structures, ComCtrls, gnugettext, SynRegExpr, extra_controls;
|
||||
|
||||
type
|
||||
TVarType = (vtString, vtNumeric, vtBoolean, vtEnum);
|
||||
EVariableError = class(Exception);
|
||||
|
||||
TfrmEditVariable = class(TForm)
|
||||
TfrmEditVariable = class(TFormWithSizeGrip)
|
||||
btnOK: TButton;
|
||||
btnCancel: TButton;
|
||||
grpScope: TGroupBox;
|
||||
@ -57,7 +57,6 @@ procedure TfrmEditVariable.FormCreate(Sender: TObject);
|
||||
begin
|
||||
InheritFont(Font);
|
||||
TranslateComponent(Self);
|
||||
SetWindowSizeGrip(Handle, True);
|
||||
Width := AppSettings.ReadInt(asEditVarWindowWidth);
|
||||
Height := AppSettings.ReadInt(asEditVarWindowHeight);
|
||||
end;
|
||||
|
Reference in New Issue
Block a user