طيباوي ابو علي1
2013-06-20, 17:56
كتابة جملة أو كلمة على الفورم
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Font.Name := 'Arial';
Form1.Canvas.Font.Charset := ARABIC_CHARSET;
Form1.Canvas.Font.Size := 10;
Form1.Canvas.Font.Style := [fsBold];
Form1.Canvas.TextOut(10, 5, 'بسم الله الرحمن الرحيم');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Font.Name := 'Arial';
Form1.Canvas.Font.Charset := ARABIC_CHARSET;
Form1.Canvas.Font.Size := 10;
Form1.Canvas.Font.Style := [fsBold];
Form1.Canvas.TextOut(10, 5, 'بسم الله الرحمن الرحيم');
end;