بچه ها چگونه می توانم در دلفی رشته ای را به چابگر ارسال کنم که به صورت میلیمتری باشد یعنی X,Y را میلیمتری به چابگر ارسال کنیم آیا در دلفی چنین امکانی دارد
Printable View
بچه ها چگونه می توانم در دلفی رشته ای را به چابگر ارسال کنم که به صورت میلیمتری باشد یعنی X,Y را میلیمتری به چابگر ارسال کنیم آیا در دلفی چنین امکانی دارد
با سلام
دوست عزیز یونیتی با نام 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;
همه آنچه که شما برای کارتان نیاز دارید من در این کد کوچک نوشته ام ، امیدوارم که به کارتان بیاید .
موفق باشید
با تشکر فروان از شما آیا می توانم تغییری در کد شما بدهم که عددی که جلوی X,Y می نویسم به صورت میلیمتری چاپ کنم :oops:
با سلام
بله دوست عزیز اگر MM_TEXT را عوض کنید و نوع دیگر آنرا قرار دهید ...