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/texteditor.pas
View File

@ -5,12 +5,12 @@ interface
uses
Windows, Classes, Graphics, Forms, Controls, StdCtrls, VirtualTrees,
ComCtrls, ToolWin, Dialogs, SysUtils, Menus, ExtDlgs,
helpers, gnugettext, ActnList, StdActns;
helpers, gnugettext, ActnList, StdActns, extra_controls, System.Actions;
{$I const.inc}
type
TfrmTextEditor = class(TForm)
TfrmTextEditor = class(TFormWithSizeGrip)
memoText: TMemo;
tlbStandard: TToolBar;
btnWrap: TToolButton;
@ -198,7 +198,6 @@ begin
btnWrap.Click;
// Fix label position:
lblTextLength.Top := tlbStandard.Top + (tlbStandard.Height-lblTextLength.Height) div 2;
SetWindowSizeGrip(Handle, True);
memoText.SetFocus;
end;