Button üzerine dikey yazı yazma

[adelphiforumz]

S.A.

Butonun üzerine yazıyı dikey olarak nasıl yazabilirim
with :=32
Height : 200
Caption : SATIŞ İŞLEMİ

Teşekkürler

[xozcanx]

Merhaba;
Buton üzerinde canvas işlemi gerekebilir BitBtn da yapmak isterseniz WordWrap özelliğini True yaparak aşağıdaki şekilde yapabilirsiniz.

Kod: Tümünü seç

const
  a ={$IFDEF MSWINDOWS} AnsiString(#13#10) {$ENDIF};
  .
  .
  .
  BitBtn1.Caption:='S'+a+'A'+a+'T'+a+'I'+a+'Ş'+a+a+'İ'+a+'Ş'+a+'L'+a+'M'+a+'İ';
  

sürekli kullanacaksanız bunu Function olarak hazırlamak daha mantıklı olur

[ikra]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
const
  X = 50;
  Y = 450;
begin
  SelectObject(Canvas.Handle, CreateFont(40, 0, 900, 0, fw_normal, 0, 0, 0, 1, 0, $10, 2, 4, 'Arial'));
  Canvas.TextOut(X, Y, 'SATIŞ İŞLEMİ');
end;

[fesiharslan]

Merhaba;
Butonun Canvas metodunu kullanarak bir başlık yazabilir, Font.Orientation özelliği ile de başlığa açı verebilirsiniz.

Kod: Tümünü seç

With btnButonAdı do 
begin
  Canvas.Font.Orientation := 900;
  Canvas.TextOut(x, y, 'SATIŞ İŞLEMİ');
end;

İyi çalışmalar...

[adelphiforumz]

benim bulduğum çözümde aşağıdaki gibi oldu işimi gördü
ilgilenen arkadaşlara teşekkürler

function fn_VerticalText( const AInString: AnsiString ): AnsiString;
var
ii : Integer;
begin
Result := AInString;
for ii := Length( AInString ) downto 2 do
Insert( sLineBreak, Result, ii );
end; //VerticalText

Button.Caption := fn_VerticalText('SATIŞ İŞLEMİ');