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

Revert 49089 #a8cb48d453 / Issue #0028019

Browse Source 
git-svn-id: branches/fixes_1_4@49113 -
This commit is contained in:
martin 2015-05-19 21:24:14 +00:00
parent 1b7f6b9ab6
commit 14a63b91cd
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/synedit/syneditpointclasses.pas
View File

@ -361,7 +361,7 @@ type
FCustomOffsetX, FCustomOffsetY: Array [TSynCaretType] of Integer;
FCurrentPosX, FCurrentPosY: Integer;
FCurrentVisible, FCurrentCreated: Boolean;
FCurrentClippedWidth, FCurrentClippedHeight: Integer;
FCurrentClippedWidth: Integer;
FLockCount: Integer;
FLockFlags: TSynCaretLockFlags;
procedure SetClipBottom(const AValue: Integer);
@ -2236,7 +2236,6 @@ begin
FCurrentPosX := -1;
FCurrentPosY := -1;
FCurrentClippedWidth := -1;
FCurrentClippedHeight := -1;
FClipExtraPixel := 0;
FLockCount := 0;
end;
@ -2523,7 +2522,7 @@ begin
exit;
end;
if (not FCurrentCreated) or (FCurrentClippedWidth <> w) or (FCurrentClippedHeight <> h) then begin
if (not FCurrentCreated) or (FCurrentClippedWidth <> w) then begin
{$IFDeF SynCaretDebug}
debugln(['SynEditCaret CreateCaret for HandleOwner=',FHandleOwner, ' DebugShowCount=', FDebugShowCount, ' Width=', w, ' pref-width=', FPixelWidth, ' Height=', FPixelHeight, ' FCurrentCreated=',FCurrentCreated, ' FCurrentVisible=',FCurrentVisible]);
FDebugShowCount := 0;
@ -2535,7 +2534,6 @@ begin
FCurrentCreated := True;
FCurrentVisible := False;
FCurrentClippedWidth := w;
FCurrentClippedHeight := h;
FCurrentPosX := x - 1;
SetCaretRespondToFocus(Handle, False); // Only for GTK
end;