U ovom 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 da napravite 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;
Pratite Krstaricu na www.krstarica.com