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

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

Browse Source
This commit is contained in:
Ansgar Becker
2013-11-01 14:54:13 +00:00
parent 6d1acb1136
commit 6e608f157e
18 changed files with 94 additions and 192 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
source/insertfiles.pas
View File

@ -4,7 +4,7 @@ interface
uses
Windows, Messages, SysUtils, Classes, Controls, Forms, Dialogs, StdCtrls,
ShellApi, Math, Graphics, ComCtrls, ToolWin,
ShellApi, Math, Graphics, ComCtrls, ToolWin, extra_controls,
dbconnection, mysql_structures, VirtualTrees, grideditlinks, SynRegExpr, gnugettext, helpers;
type
@ -25,7 +25,7 @@ type
end;
PFileInfo = ^TFileInfo;
TfrmInsertFiles = class(TForm)
TfrmInsertFiles = class(TFormWithSizeGrip)
btnInsert: TButton;
btnCancel: TButton;
OpenDialog: TOpenDialog;
@ -119,7 +119,6 @@ begin
TranslateComponent(Self);
ListFiles.Images := GetSystemImageList;
DragAcceptFiles(Handle, True);
SetWindowSizeGrip(Self.Handle, True);
InheritFont(Font);
MainForm.RestoreListSetup(ListColumns);
MainForm.RestoreListSetup(ListFiles);