paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-18 09:39:43 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix resize (use clientheight)

Browse Source 
git-svn-id: trunk@25914 -
This commit is contained in:
martin 2010-06-05 13:07:29 +00:00
parent d940f2e95a
commit e7d50c5f39
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synedit.pp
View File

@ -372,7 +372,7 @@ type
fLinesInWindow: Integer;// MG: fully visible lines in window
fLeftChar: Integer; // first visible screen column
fMaxLeftChar: Integer; // 1024
FOldWitdth, FOldHeight: Integer;
FOldWidth, FOldHeight: Integer;
FPaintLock: Integer;
FPaintLockOwnerCnt: Integer;
@ -1576,7 +1576,7 @@ begin
FCaret.Lines := FTheLinesView;
FInternalCaret.Lines := FTheLinesView;
FFontDummy := TFont.Create;
FOldWitdth := -1;
FOldWidth := -1;
FOldHeight := -1;
with TSynEditStringList(fLines) do begin
@ -4530,9 +4530,9 @@ end;
procedure TCustomSynEdit.Resize;
begin
inherited;
if (not HandleAllocated) or ((Width = FOldWitdth) and (Height = FOldHeight)) then exit;
FOldWitdth := Width;
FOldHeight := Height;
if (not HandleAllocated) or ((ClientWidth = FOldWidth) and (ClientHeight = FOldHeight)) then exit;
FOldWidth := ClientWidth;
FOldHeight := ClientHeight;
SizeOrFontChanged(FALSE);
if sfEnsureCursorPosAtResize in fStateFlags then
EnsureCursorPosVisible;