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

IDE: clean up

Browse Source 
git-svn-id: trunk@44143 -
This commit is contained in:
mattias 2014-02-18 18:38:53 +00:00
parent deb8e8c40a
commit b76dce2e3f
1 changed files with 1 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
ide/ideprocs.pp
View File

@ -285,9 +285,7 @@ type
function IndexInStringList(List: TStrings; Cmp: TCmpStrType; s: string): integer;
procedure SetComboBoxText(AComboBox:TComboBox; const AText: String;
Cmp: TCmpStrType);
procedure SetComboBoxText(AComboBox:TComboBox; const AText: String;
Cmp: TCmpStrType; MaxCount: integer);
Cmp: TCmpStrType; MaxCount: integer = 1000);
function CheckGroupItemChecked(CheckGroup: TCheckGroup; const Caption: string): Boolean;
@ -2759,22 +2757,6 @@ begin
Result:=-1;
end;
procedure SetComboBoxText(AComboBox: TComboBox; const AText: String;
Cmp: TCmpStrType);
var
a: integer;
begin
a:=IndexInStringList(AComboBox.Items,Cmp,AText);
if a>=0 then
AComboBox.ItemIndex:=a
else
begin
AComboBox.Items.Add(AText);
AComboBox.ItemIndex := IndexInStringList(AComboBox.Items,Cmp,AText);
end;
AComboBox.Text := AText;
end;
procedure SetComboBoxText(AComboBox:TComboBox; const AText: String;
Cmp: TCmpStrType; MaxCount: integer);
var