Delphi - Combobox per cambare font

08/04/10 11:54

ciao a tutti,
nonostante abbia trovato qualcosina sul web non riesco a far cambiare il font al testo che sta in un richedit...
questo è il codice che dovrei usare, ma non mi funziona:

procedure Trel.RichEdit1SelectionChange(Sender: TObject);
begin
 with (richedit1.SelAttributes) do
    combofont.ItemIndex:=combofont.Items.IndexOf(richedit1.SelAttributes.Name);
    richedit1.SelAttributes.Name:=combofont.Text;
    
end;

Mi aiutate cortesemente?
Ciao e grazie

aaa

27/04/10 19:16

a_butta

Se ho capito bene tu vuoi cambiare il font della reachEdit selezionando il font da un ComboBox...
Beh intanto il codice lo devi mettere nell'evento OnChange della ComboBox.
Nel combobox metti i vari tipi dii font come normali stringhe (ma esse devono coincidere perfettamente con i font: Arial, Calibri, Times New Roman) e in seguito il codice:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  RichEdit1.Font.Name := ComboBox1.Text;
end;

aaa

28/04/10 7:02

carmelo

Si esatto è quello che vorrei fare.
Ma è possibile far apparire in automatico nel combobox la lista dei font disponibili anziché scriverli ad uno ad uno come stringa?
Ciao e grazie per la risposta

aaa

28/04/10 7:54

carmelo

Postato originariamente da carmelo:

Si esatto è quello che vorrei fare.
Ma è possibile far apparire in automatico nel combobox la lista dei font disponibili anziché scriverli ad uno ad uno come stringa?
Ciao e grazie per la risposta

Ho risolto con un componente esterno...
Grazie comunque per il suppporto
Alla prox
Ciauz

aaa

28/04/10 11:21

a_butta

ok... giusto per sapere, che componente hai usato?

aaa

28/04/10 17:35

carmelo

certo, ecco il link
scip.be/…
ciauz

aaa

28/04/10 21:10

a_butta