Write vertical text (without font rotate)  

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 18/01/00

Tip accessed 463 times

 


In the example, we will write on the canvas of a TImage (Image1):

  • Put a Timage (Image1) and a TButton (Button1) in your form
  • Put this code in the OnClick of Button1:


     procedure TForm1.Button1Click(Sender: TObject);
       procedure EscribeEnVertical(Donde:TCanvas;x,y:integer;Texto:string);
       var
          n      : integer;
       begin
         for n:=1 to Length(Texto) do
         begin
           with Donde do
             TextOut( x,
                      y+(TextHeight('W')*(n-1)),
                      Texto[n]);
         end;
       end;
     begin
       EscribeEnVertical(Image1.Canvas,10,10,'Pruebilla');
     end;