Image nesnesi üzerine text yazma hakkında

[z]

Image nesnesi üzerine text yazarken kullanılan font özelliklerini (font, size vs) nasıl ayarlıyoruz?

[aykuto]

Şu şekilde yapabilirsiniz sanırım:

   image1.Canvas.Font.Size:=40;
   image1.Canvas.Font.Name:='Arial';
   image1.Canvas.Font.Color:=clYellow;
   image1.Canvas.TextOut(5,5,'Deneme');

[z]

Image üzerine çizim yapıp daha sonra da bunu print edeceğim.

Baskı yapacağım kağıt ölçülerinde bir image nesnesi oluşturmam gerekiyor.

Örneğin kağıt ölçülerim X=160mm  Y=120 mm

Image nesnemin x ve y değerlerini mm cinsinden nasıl tanımlarım?

[aykuto]

Varsayılan yazıcının genişlik ve yüksekliğini mm cinsinden aşağıdaki fonksiyonlarla bulabilirsiniz:

widthmm:=GetDeviceCaps(printer.handle,HORZSIZE);
heightmm:=GetDeviceCaps(printer.handle,VERTSIZE);

Bu değerleri piksele çevirmek için de aşağıdaki gibi bir yol izleyebilirsiniz:

   width:= Trunc( (Screen.PixelsPerInch * GetDeviceCaps(printer.handle,HORZSIZE)) / 25.4);
   height:=Trunc( (Screen.PixelsPerInch * GetDeviceCaps(printer.handle,VERTSIZE)) / 25.4);

Sizin örneğinizde 160mm genişlik 120mm yükseklik için image nesnesinin boyutları şu şekilde hesaplanır.

   image1.width:= Trunc( (Screen.PixelsPerInch * 160) / 25.4);
   image1.height:= Trunc( (Screen.PixelsPerInch * 120) / 25.4);

NOT: Printer ile ilgili fonksiyonları kullanabilmek için uses kısmına Printers eklemeniz gerekir.