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

GTK2: clean up caret timer-handler

Browse Source 
git-svn-id: trunk@27171 -
This commit is contained in:
martin 2010-08-23 17:19:59 +00:00
parent dcb7c549f9
commit 2c75806565
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -331,18 +331,15 @@ function GTKAPIWidgetClient_Timer(Client: Pointer): GTKEventResult; cdecl;
var
WClient: PGTKAPIWidgetClient;
begin
Result := gtk_false;
WClient := PGTKAPIWidgetClient(Client);
if WClient^.Caret.Timer <= 0 then
begin
Result := gtk_false;
exit;
end;
WClient^.Caret.BlinkHide := not WClient^.Caret.BlinkHide;
GTKAPIWidgetClient_DrawCaret(Client,true);
if WClient^.Caret.Timer <> 0 then
Result := gtk_true
else
Result := gtk_false;
begin
WClient^.Caret.BlinkHide := not WClient^.Caret.BlinkHide;
GTKAPIWidgetClient_DrawCaret(Client,true);
if WClient^.Caret.Timer <> 0 then
Result := gtk_true;
end;
end;
procedure GTKAPIWidgetClient_Realize(AWidget: PGTKWidget); cdecl;