opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 03:01:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Don't hide the window caption of the memo editor, display the form as toolwindow. Looks better since the form is centered.

Browse Source
This commit is contained in:
Ansgar Becker
2008-08-26 06:14:48 +00:00
parent 7e2897ebcf
commit 2ff02a7eb1
2 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
source/memoeditor.dfm
View File

@ -1,7 +1,8 @@
object frmMemoEditor: TfrmMemoEditor object frmMemoEditor: TfrmMemoEditor
Left = 0 Left = 0
Top = 0 Top = 0
Caption = 'frmMemoEditor' BorderStyle = bsSizeToolWin
Caption = 'Text editor'
ClientHeight = 95 ClientHeight = 95
ClientWidth = 215 ClientWidth = 215
Color = clBtnFace Color = clBtnFace

2
source/memoeditor.pas
View File

@ -58,8 +58,6 @@ var
Tree: TCustomVirtualStringTree; Tree: TCustomVirtualStringTree;
begin begin
Tree := TCustomVirtualStringTree(Parent); Tree := TCustomVirtualStringTree(Parent);
// Hide window caption
SetWindowLong(Handle, GWL_STYLE, GetWindowLong( Handle, GWL_STYLE ) and not WS_CAPTION );
// Restore form dimensions // Restore form dimensions
Width := Mainform.GetRegValue(REGNAME_MEMOEDITOR_WIDTH, DEFAULT_MEMOEDITOR_WIDTH); Width := Mainform.GetRegValue(REGNAME_MEMOEDITOR_WIDTH, DEFAULT_MEMOEDITOR_WIDTH);
Height := Mainform.GetRegValue(REGNAME_MEMOEDITOR_HEIGHT, DEFAULT_MEMOEDITOR_HEIGHT); Height := Mainform.GetRegValue(REGNAME_MEMOEDITOR_HEIGHT, DEFAULT_MEMOEDITOR_HEIGHT);