paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 14:29:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL, qt, fix duplicated entries in TListBox, ComboBox and ChecklistBox when compiled with FPC trunk (2.7.1), issue #24059

Browse Source 
git-svn-id: trunk@40811 -
This commit is contained in:
jesus 2013-04-14 22:15:44 +00:00
parent 534dfef951
commit 83942fc439
1 changed files with 14 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lcl/interfaces/qt/qtprivate.pp
View File

@ -27,6 +27,12 @@ interface
{$I qtdefines.inc}
// todo: check if build macros can handle this and define it
// in package LCL instead (it's needed for several widgetsets)
{$if (FPC_FULLVERSION>=20701)}
{$define HAS_INHERITED_INSERTITEM}
{$endif}
uses
// Bindings
qt4,
@ -47,7 +53,9 @@ type
FOwner: TQtComboBox;
protected
procedure Put(Index: Integer; const S: string); override;
{$IFNDEF HAS_INHERITED_INSERTITEM}
procedure InsertItem(Index: Integer; const S: string); override;
{$ENDIF}
procedure InsertItem(Index: Integer; const S: string; O: TObject); override;
public
constructor Create(AWinControl: TWinControl; AOwner: TQtComboBox);
@ -70,7 +78,9 @@ type
FOwner: TQtListWidget;
protected
procedure Put(Index: Integer; const S: string); override;
{$IFNDEF HAS_INHERITED_INSERTITEM}
procedure InsertItem(Index: Integer; const S: string); override;
{$ENDIF}
procedure InsertItem(Index: Integer; const S: string; O: TObject); override;
public
constructor Create(AWinControl: TWinControl; AOwner: TQtListWidget);
@ -471,7 +481,7 @@ begin
FOwner.setItemText(Index, S);
FOwner.EndUpdate;
end;
{$IFNDEF HAS_INHERITED_INSERTITEM}
procedure TQtComboStrings.InsertItem(Index: Integer; const S: string);
var
FSavedIndex: Integer;
@ -490,7 +500,7 @@ begin
end;
FOwner.EndUpdate;
end;
{$ENDIF}
procedure TQtComboStrings.InsertItem(Index: Integer; const S: string; O: TObject);
var
FSavedIndex: Integer;
@ -605,7 +615,7 @@ begin
FOwner.EndUpdate;
end;
end;
{$IFNDEF HAS_INHERITED_INSERTITEM}
procedure TQtListStrings.InsertItem(Index: Integer; const S: string);
begin
inherited InsertItem(Index, S);
@ -624,7 +634,7 @@ begin
FOwner.EndUpdate;
end;
end;
{$ENDIF}
procedure TQtListStrings.InsertItem(Index: Integer; const S: string; O: TObject);
begin
inherited InsertItem(Index, S, O);