From b76dce2e3fe68f29ca536e7b04e9b0b4a4b08c19 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 18 Feb 2014 18:38:53 +0000 Subject: [PATCH] IDE: clean up git-svn-id: trunk@44143 - --- ide/ideprocs.pp | 20 +------------------- 1 file changed, 1 insertion(+), 19 deletions(-) diff --git a/ide/ideprocs.pp b/ide/ideprocs.pp index e45f53b533..6167fcc3cb 100644 --- a/ide/ideprocs.pp +++ b/ide/ideprocs.pp @@ -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