paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-21 05:08:13 +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

2
components/synedit/synedit.pp
View File

@ -3625,7 +3625,7 @@ begin
and (CY < ClientHeight{$IFDEF SYN_LAZARUS}-ScrollBarWidth{$ENDIF}) and (CY < ClientHeight{$IFDEF SYN_LAZARUS}-ScrollBarWidth{$ENDIF})
then begin then begin
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
SetCaretPosEx(Handle,CX, CY); SetCaretPosEx(Handle,CX,CY);
{$ELSE} {$ELSE}
SetCaretPos(CX, CY); SetCaretPos(CX, CY);
{$ENDIF} {$ENDIF}

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

@ -281,18 +281,17 @@ var
begin begin
Result := -1; Result := -1;
if Handle = 0 then Exit; if Handle = 0 then Exit;
Result := -1; Result := -1;
P := nil; P := nil;
P := gtk_object_get_data(pgtkobject(Handle),'WNDPROC'); P := gtk_object_get_data(pgtkobject(Handle),'WNDPROC');
if P <> nil then Proc := TWndMethod(P^) if P <> nil then Proc := TWndMethod(P^)
else else
Exit; Exit;
Mess.msg := msg; Mess.msg := msg;
Mess.LParam := LParam; Mess.LParam := LParam;
Mess.WParam := WParam; Mess.WParam := WParam;
Proc(Mess); Proc(Mess);
Result := Mess.Result; Result := Mess.Result;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -4720,6 +4719,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.74 2002/06/04 15:17:24 lazarus
MG: improved TFont for XLFD font names MG: improved TFont for XLFD font names