JvrichEditte türkçe karakter sorunu Yaşıyorum

[arkantos_55]

JvRichEdit bileşeninden yazıcıya çıktı aldığımda ş altçizgi İ ler 0 gibi çıkıyor ne yaptıysak bulamadım sonucu
Kodlarım aşşağıda kafayı yiyeceğim.

Kod: Tümünü seç

procedure TFormUcretOnayYazdirma.BtnYazdirClick(Sender: TObject);
var i,h:integer ;
    v:string;
    ADevice,ADriver,APort:PChar;
    ADeviceMode:THandle;
    Rect:TRect;
begin
  if PrinterDialog.Execute Then
  begin
    
      Rect.Top:=0;
      Rect.Left:=50;
      Rect.Right:=Image1.Picture.Graphic.Width*6;
      Rect.Bottom:=Image1.Picture.Graphic.Height*6;

      Printer.BeginDoc;
      Printer.Canvas.Font.Size:=9;
      Printer.Canvas.Font.Name:='Courier New';
      Printer.Canvas.Font.Charset:=TURKISH_CHARSET;
      JvRichEditYazdirma.Font.Charset:=TURKISH_CHARSET;
      try
        h:=2700;
        Printer.Canvas.StretchDraw(Rect,Image1.Picture.Graphic);
        for i:= JvRichEditYazdirma.Lines.Count-1 downto 0 do
        begin
          printer.Canvas.TextOut(0,h,JvRichEditYazdirma.Lines[i]);
          h:=h+Printer.Canvas.Font.Height;
        end;
        Printer.EndDoc;
      except
        Printer.Abort;
      raise;
    end;
  end;
end;

[cecihan]

sorununuzu söyleyebilirim. JvRichEditYazdirma.Lines ile maalesefki sadece string özelliklerine ulaşıyorsunuz. O satırın font size vs. özellikleri Lines ile alamıyorsunuz.

[arkantos_55]

sorununuzu söyleyebilirim. JvRichEditYazdirma.Lines ile maalesefki sadece string özelliklerine ulaşıyorsunuz. O satırın font size vs. özellikleri Lines ile alamıyorsunuz.

peki nasıl alabilirim içinden veya tavsiye edeceğiniz başka bir richedit bileşeni varmı rich edit kullanmamın tek nedeni hem image hem text yazıyı aynı anda listeleme ve yazdırma . qreport kullanmak istemiyorum.

[arkantos_55]

sonuca farklı şekilde ulaştım belki işinize yarar jvrichedite resimden sonraki alanda yazıyı eklerken aynı anda gizli bir memoya da yazdırdım ve sonuçta yazıcı çıktısı alırken resmi jvricheditten text kısmıda memodan aldırarak direk printere gönderdim şirketimizin logosunu kullanarak teklif formunu bu şekilde bastırdım.