U trendu

Delphi – Mogućnost „Autocompletion“

Krstarica

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 i preko mobilne aplikacije za Android i iPhone.