Mega Code Archive

 

Categories / Delphi / VCL

 

Rich edit kontrolleri

'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);