paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-11 22:56:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: fix wrong horiz scroll at start

Browse Source 
git-svn-id: trunk@25911 -
This commit is contained in:
martin 2010-06-05 12:29:57 +00:00
parent a895e51adb
commit 1ddbe4e5c3
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/synedit.pp
View File

@ -173,7 +173,7 @@ type
sfEnsureCursorPos, sfEnsureCursorPosAtResize,
sfIgnoreNextChar, sfPainting, sfHasScrolled,
sfScrollbarChanged, sfHorizScrollbarVisible, sfVertScrollbarVisible,
sfAfterLoadFromFile,
sfAfterLoadFromFile, sfInHandleCreation,
// Mouse-states
sfDblClicked, sfGutterClick, sfTripleClicked, sfQuadClicked,
sfWaitForDragging, sfIsDragging, sfMouseSelecting, sfMouseDoneSelecting,
@ -372,6 +372,7 @@ type
fLinesInWindow: Integer;// MG: fully visible lines in window
fLeftChar: Integer; // first visible screen column
fMaxLeftChar: Integer; // 1024
FOldWitdth, FOldHeight: Integer;
FPaintLock: Integer;
FPaintLockOwnerCnt: Integer;
@ -1575,6 +1576,8 @@ begin
FCaret.Lines := FTheLinesView;
FInternalCaret.Lines := FTheLinesView;
FFontDummy := TFont.Create;
FOldWitdth := -1;
FOldHeight := -1;
with TSynEditStringList(fLines) do begin
AddChangeHandler(senrLineCount, {$IFDEF FPC}@{$ENDIF}LineCountChanged);
@ -4113,12 +4116,16 @@ end;
procedure TCustomSynEdit.CreateHandle;
begin
Application.RemoveOnIdleHandler(@IdleScanRanges);
// A Resize will be received after CreateHandle is finished
// Resizes during CreateHandle may be wrong
include(fStateFlags, sfInHandleCreation);
DoIncPaintLock(nil);
try
inherited CreateHandle; //SizeOrFontChanged will be called
Include(fStateFlags, sfScrollbarChanged);
finally
DoDecPaintLock(nil);
exclude(fStateFlags, sfInHandleCreation);
end;
end;
@ -4523,6 +4530,9 @@ end;
procedure TCustomSynEdit.Resize;
begin
inherited;
if (not HandleAllocated) or ((Width = FOldWitdth) and (Height = FOldHeight)) then exit;
FOldWitdth := Width;
FOldHeight := Height;
SizeOrFontChanged(FALSE);
if sfEnsureCursorPosAtResize in fStateFlags then
EnsureCursorPosVisible;
@ -5670,6 +5680,7 @@ begin
(not (eoAlwaysVisibleCaret in fOptions2))
then
exit;
if (sfInHandleCreation in fStateFlags) or (not HandleAllocated) then exit;
if (fPaintLock > 0) or (not HandleAllocated) or
(FWinControlFlags * [wcfInitializing, wcfCreatingHandle] <> [])