paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: remove check for unnecessary calls to "DoOnResize". The check was wrong, e.g. if the Handle/Window was recreated, old/outdate values where used. Most likely the cause for issue #40241

Browse Source
This commit is contained in:
Martin 2024-04-15 15:42:05 +02:00
parent c971eaaa76
commit 3d50451e87
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/synedit/synedit.pp
View File

@ -530,8 +530,6 @@ type
FStrings: TStrings; // External TStrings based interface to the Textbuffer
fMaxLeftChar: Integer; // 1024
FOldWidth, FOldHeight: Integer;
FPaintLock: Integer;
FPaintLockOwnerCnt: Integer;
FUndoBlockAtPaintLock: Integer;
@ -2268,8 +2266,6 @@ begin
FCaret.Lines := FTheLinesView;
FInternalCaret.Lines := FTheLinesView;
FFontDummy := TFont.Create;
FOldWidth := -1;
FOldHeight := -1;
with FTheLinesView do begin
AddChangeHandler(senrLineCount, @LineCountChanged);
@ -5358,9 +5354,8 @@ end;
procedure TCustomSynEdit.DoOnResize;
begin
inherited;
if (not HandleAllocated) or ((ClientWidth = FOldWidth) and (ClientHeight = FOldHeight)) then exit;
FOldWidth := ClientWidth;
FOldHeight := ClientHeight;
if (not HandleAllocated) then
exit;
inc(FScrollBarUpdateLock);
FScreenCaret.Lock;
try