KAKO DA – funkcija AutoComplete, Delphi

Funkcija mnogima poznata iz I.Explorera i sličnih programa. Zašto je ne bi Implementirali i u svoje aplikacije?

Uovom tekstu ćete pronaći veoma korisnu proceduru koja će vašim aplikacijama obezbediti “Autocompletion” mogućnost. Ova mogućnost ste sigurno iskusili uz Internet Explorer, kada ukucavate adresu neke stranice, a browser, zahvaljujući history listi, vrši “dokompletiranje” adrese. Tako će biti i u našem primeru, s tim što ćemo umesto URL-a, imati fontove. Vi možete i sami napraviti neku listu stavki da bi isprobali dokompletiranje. Postavite na praznu formu jedan Combobox, te za dobijanje svih fontova na sistemu, bilo gde dodajte sledeću liniju:

ComboBox1.Items := Screen.Fonts;

Ova linija će u combo polje dodati sve fontove (ovo će nam biti bitno za testiranje). Te, ostalo vam je da unutar događaja OnChange (combobox-a) dodate programski kod:

procedure TForm1.ComboBox1Change(Sender: TObject);
var
I, StartPoz: Integer;
begin
ComboBox1.Items := Screen.Fonts;
for I := 0 to ComboBox1.Items.Count -1 do
begin
with ComboBox1 do
begin
if (Text = ”) or (LowerCase(Items[I]) = LowerCase(Text)) then Exit;
if StrLComp (PChar (LowerCase (Items[I])),_ PChar(LowerCase(Text)), Length(Text)) = 0 then
begin
StartPoz := Length(Text);
Text := Text + Copy(Items[I], StartPoz + 1,_ Length(Items[I]));
SelStart := StartPoz;
SelLength := Length(Text) - StartPoz;
end;
end;
end;
end;

Pripremio: Milenko Kusurović