paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-30 16:22:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: cursor is now inverted and can be used with twilight color scheme

Browse Source 
git-svn-id: trunk@1725 -
This commit is contained in:
lazarus 2002-06-04 19:28:17 +00:00
parent 3a28d7a551
commit 73522a24f7
2 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/synedit.pp
View File

@ -1272,7 +1272,7 @@ end;
function TCustomSynEdit.CaretYPix: Integer;
begin
Result := RowColumnToPixels(Point(1, fCaretY)).Y;
Result := RowColumnToPixels(Point(1, fCaretY)).Y;
end;
procedure TCustomSynEdit.FontChanged(Sender: TObject);
@ -3625,7 +3625,7 @@ begin
and (CY < ClientHeight{$IFDEF SYN_LAZARUS}-ScrollBarWidth{$ENDIF})
then begin
{$IFDEF SYN_LAZARUS}
SetCaretPosEx(Handle,CX, CY);
SetCaretPosEx(Handle,CX,CY);
{$ELSE}
SetCaretPos(CX, CY);
{$ENDIF}

26
lcl/interfaces/gtk/gtkwinapi.inc
View File

@ -281,18 +281,17 @@ var
begin
Result := -1;
if Handle = 0 then Exit;
Result := -1;
P := nil;
P := gtk_object_get_data(pgtkobject(Handle),'WNDPROC');
if P <> nil then Proc := TWndMethod(P^)
else
Exit;
Mess.msg := msg;
Mess.LParam := LParam;
Mess.WParam := WParam;
Proc(Mess);
Result := Mess.Result;
Result := -1;
P := nil;
P := gtk_object_get_data(pgtkobject(Handle),'WNDPROC');
if P <> nil then Proc := TWndMethod(P^)
else
Exit;
Mess.msg := msg;
Mess.LParam := LParam;
Mess.WParam := WParam;
Proc(Mess);
Result := Mess.Result;
end;
{------------------------------------------------------------------------------
@ -4720,6 +4719,9 @@ end;
{ =============================================================================
$Log$
Revision 1.75 2002/06/04 19:28:17 lazarus
MG: cursor is now inverted and can be used with twilight color scheme
Revision 1.74 2002/06/04 15:17:24 lazarus
MG: improved TFont for XLFD font names