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

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

@ -292,7 +292,6 @@ begin
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