[delphi]czcionki w Combobox

0

mam pytanko wiem ze jak wpisze ComboBox2.Items:=Screen.Fonts; to będą czcionki.Ale jak uruchamiam program na pczątku tego nie widzę.Dopiero jak wpisze na pierwsza litere czcionki to sie poojawiają.Jak to zmienic zeby bylo widoczne od razu.--Początkujący w Delphi zadaje duzo pytan

0

procedure TForm1.FormCreate(Sender: TObject);
begin
ComboBox1.Items:=Screen.Fonts;
ComboBox1.ItemIndex := 0;
end;
--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

0

a dlaczego w tym combobox2.Jak zrobie takie coś ComboBox2.Items:=Richedit1.SelAttributes.Name;

to mi nie działa--Początkujący w Delphi zadaje duzo pytan

0

paweb napisał:
a dlaczego w tym combobox2.Jak zrobie takie coś ComboBox2.Items:=Richedit1.SelAttributes.Name;
to mi nie działa

ComboBox1.Items.Add(Richedit1.SelAttributes.Name);

Items przyjmuje jedynie listę stringów czyli TStrings. Richedit1.SelAttributes.Name to jest pojedynczy string.--Jest jeszcze jeden błąd ... :)

Apel: Piszcie w tematach o jaki język programowania chodzi np. : [Delphi], [C++], itp.

0

ComboBox2.Items[0]:=Richedit1.SelAttributes.Name;

pewnie o to chodzilo :)
--||===

0

No tak ale jak zrobie na te 2 sposoby to.I tak mi sie czcionka nie zmienia.Jak zrobic zeby po wybraniu z ComboBox czcionki zmienila sie ona w RichEdit--Początkujący w Delphi zadaje duzo pytan

0

najpierw np. w OnCreate:
ComboBox1.Items := Screen.Fonts
a w OnChange komponentu ComboBox:
// zmiana czcionki dla calego komponentu:
RichEdit1.Font.Name := ComboBox1.Items[ComboBox1.ItemIndex];
*a dla zaznaczonego tekstu:
*RichEdit1.SelAttributes.Name :=ComboBox1.Items[ComboBox1.ItemIndex];

chyba o to chodzilo :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

1 użytkowników online, w tym zalogowanych: 0, gości: 1