طریقه ارسال رشته به چابگر

[zehs_sha]

بچه ها چگونه می توانم در دلفی رشته ای را به چابگر ارسال کنم که به صورت میلیمتری باشد یعنی X,Y را میلیمتری به چابگر ارسال کنیم آیا در دلفی چنین امکانی دارد

[hr110]

با سلام
دوست عزیز یونیتی با نام printers وجود دارد که در آن یک متغییر سراسری تعریف شده است با نام printer این ابجکت یک پراپرتی با عنوان canvas دارد که همانند canvas فرم میتوانید با آن کار کنید ، برای نمونه این مثال را توجه کنید :

uses

    printers;



procedure TForm1.Button1Click(Sender: TObject);

var

  S   : string;

  X,Y : Integer;

begin

 Printer.BeginDoc;

 SetMapMode(printer.Canvas.Handle,MM_TEXT);

 S:='Hellow word';

 X:=100;

 Y:=200;

 Printer.Canvas.Font.Size:=40;

 Printer.Canvas.Brush.Color:=clRed;

 TextOut(Printer.Canvas.Handle,X,Y,PChar(S&  #41;,Length(S));



 Printer.EndDoc;

end;

همه آنچه که شما برای کارتان نیاز دارید من در این کد کوچک نوشته ام ، امیدوارم که به کارتان بیاید .
موفق باشید

[zehs_sha]

با تشکر فروان از شما آیا می توانم تغییری در کد شما بدهم که عددی که جلوی X,Y می نویسم به صورت میلیمتری چاپ کنم :oops:

[hr110]

با سلام
بله دوست عزیز اگر MM_TEXT را عوض کنید و نوع دیگر آنرا قرار دهید ...