Richeditte üst simge ve alt simge kullanımı

[mepc]

Merhaba arkadaşlar

Richeditte yazı tipi olarak üst simge ve alt simgeyi kodla nasıl yapabilirim.

[fatihtolgaata]

Mantık aynı. Bütün richedit karakter formatlarını aşağıda verdiğim gibi değiştirebilirsin. Eğer richedit mesajlarını öğrenirsen, richedit üzerindeki görselliği artırabilirsin. Al sana bir procedure ve bir iki örnek:

Kod: Tümünü seç

type
TCharacterFormat = (CFM_Superscript, CFM_Subscript, CFM_Normal); 

procedure SetCharFormat(RichEdit: TRichEdit; CharacterFormat: TCharacterFormat); 
var 
// CHARFORMAT yapısı, bir richeditdeki formatı belirler. 
  Format: TCharFormat; 
begin
  FillChar(Format, SizeOf(Format), 0); 
  with Format do
  begin 
    cbSize := SizeOf(Format); 
    dwMask := CFM_OFFSET; 
    // Karakterin yükseklik cinsinden değeri.
    //Burada değişiklik yapabilirsin.
    //pozitif değerler yukarıyı, negatifler aşağıyı gösterir. 
    case CharacterFormat of 
      CFM_Superscript: yOffset := 60; 
      CFM_Subscript: yOffset := -60; 
      CFM_Normal: yOffset := 0; 
    end; 
  end;
  //EM_SETCHARFORMAT, bu mesaj richeditin karakter formatını belirler.
  // SCF_SELECTION: seçili olan manasındadır. 
  Richedit.Perform(EM_SETCHARFORMAT, SCF_SELECTION, Longint(@Format)); 
end;

// Örnekler: 
// Üst simgeyi seçili olan texte uygular:
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SetCharFormat(RichEdit1, CFM_Superscript); 
end;

// Alt simgeyi Seçili texte uygular
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  SetCharFormat(RichEdit1, CFM_Subscript); 
end;

Kolay gelsin..

[mepc]

öncelikle ilgin için teşekkür ederim. ancak

Kod: Tümünü seç

TCharacterFormat = (CFM_Superscript, CFM_Subscript, CFM_Normal);

bölümünde

Kod: Tümünü seç

expected ':' but '=' found

hatası aldığımdan çalıştıramadım. acaba eksik bir şey mi var

Not: Delphi 5 kullanıyorum

[Master_Yoda]

sanırım
type
satırını atladın ?

[mepc]

type satırını atlamadım ama tekrar kontrol edeyim