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

LCL-GTK2: Fix the boolean logic clause. Issue #32604.

Browse Source 
git-svn-id: trunk@56196 -
This commit is contained in:
juha 2017-10-25 19:48:33 +00:00
parent 6b5b623410
commit 444f0dd6f1
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -1053,7 +1053,7 @@ begin
if AInfo <> nil then if AInfo <> nil then
begin begin
if (AInfo^.LCLObject is TCustomEdit) if (AInfo^.LCLObject is TCustomEdit)
and (AInfo^.CursorPos > 0) or (AInfo^.SelLength > 0) then and ((AInfo^.CursorPos > 0) or (AInfo^.SelLength > 0)) then
begin begin
// gtk_entry_set_position(PGtkEntry(Widget), AInfo^.CursorPos); // gtk_entry_set_position(PGtkEntry(Widget), AInfo^.CursorPos);
// gtk_editable_select_region(PGtkEditable(Widget), AInfo^.CursorPos, AInfo^.CursorPos); // gtk_editable_select_region(PGtkEditable(Widget), AInfo^.CursorPos, AInfo^.CursorPos);