FontSize Height?

[odvesims]

Hey There!

Is there a way to enlarge the fonts vertically only? Im printing a receipt using the Printer unit, and it all works fine but i want to enlarge a font but only vertically while keeping the same horizontal base. What'd be the best approach to achieve this?

Thanks in advance!

[typo]

You could StretchDraw a bit, but the result is not so good.

[odvesims]

Would you mind elaborating on it typo? I'm literally out of options here, so anything would be greatly appreciated.

[typo]

You could write the text to a bitmap and StretchDraw the bitmap to the desired Canvas.

[odvesims]

I dont want to sound demanding or anything, but could you point me to some example or something? Im fairly new to free pascal 

[typo]

Code: [Select]

var
  bmp: Graphics.TBitmap;
  s: string = 'abc';
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := Canvas.TextWidth(s);
    bmp.Height := Canvas.TextHeight(s);
    bmp.Canvas.Font.Color := clBlack;
    bmp.Canvas.Brush.Color := clWindow;
    bmp.Canvas.FillRect(0, 0,bmp.Width, bmp.Height);
    bmp.Canvas.TextOut(0, 0, s);
    Canvas.StretchDraw(Rect(0, 0, bmp.Width, bmp.Height + 20), bmp);
  finally
    bmp.Free;
  end;
end;           


[odvesims]

Thanks typo, i tried it and though it "worked" the final result wasn't desirable, as you stated. Im going to move on and try with different font types, styles, etc. Thanks though ^_^