paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 23:49:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: fixed caret blinking with gtk2 >= 2.18

Browse Source 
git-svn-id: trunk@26431 -
This commit is contained in:
zeljko 2010-07-02 22:04:05 +00:00
parent db22564763
commit 358af10c61
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2winapiwindow.pp
View File

@ -301,6 +301,11 @@ begin
Blinking := GTKAPIWidgetClient_GetCursorBlink(PGTKAPIWidgetClient(Client));
BlinkTime := GTKAPIWidgetClient_GetCursorBlinkTime(PGTKAPIWidgetClient(Client));
BlinkTimeout := GTKAPIWidgetClient_GetCursorBlinkTimeout(PGTKAPIWidgetClient(Client));
if (gtk_major_version = 2) and (gtk_minor_version >= 18) then
begin
if not Blinking and (BlinkTimeOut > 0) then
Blinking := True;
end;
X := 0;
Y := 0;
Width := 1;