'Baktım kimsenin yazacağı yok ben yazayım dedim. Umarım işinize yarar.
'Hadi Kolay gelsin.
'Saygılaırmla
'MCU mcuyan@hotmail.com
'Font Değiştirme
CurrText.Name := combobox1.Items[combobox1.ItemIndex];
'Punto Değiştirme
CurrText.Size := Sayi;
'Kalın&Normal Yazma
CurrText.Style := CurrText.Style + [fsBold]
CurrText.Style := CurrText.Style - [fsBold];
'İtalic&Normal Yazma
CurrText.Style := CurrText.Style + [fsItalic]
CurrText.Style := CurrText.Style - [fsItalic];
'Altıçizili&Normal Yazma
CurrText.Style := CurrText.Style + [fsUnderline]
CurrText.Style := CurrText.Style - [fsUnderline];
'Geri Al (Undo)
with Richedit1 do
if HandleAllocated then SendMessage(Handle, EM_UNDO, 0, 0);
'Hizzalama
richedit1.Paragraph.Alignment := TAlignment(TControl(Sender).Tag);