Re: Vous les faites avec quoi vos textes à 90° ?
+1
Faust a écrit :
> réponse au titre: je fais comme ton code, à savoir création d'une
> nouvelle font avec rotation, utilisation de la font...
>
> un jour peut-être que la VCL connaitra ce paramètre (ce qui serait
> plutôt bien)
>
> /_BigGrizzly_ a couché sur son écran/ :
>> J'ai cherché dans la JVCL, j'ai pas trouvé de "RotatedLabel"...
>
>> Alors j'ai adapté un bout de code trouvé dans l'aide W32...
>
>> procedure TFenAppMutes.PaintBox1Paint(Sender: TObject);
>> var
>> plf : TLogFont;
>> hfnt, oldh : HFONT;
>> ALV : TVersionInfo;
>> AText : string;
>> begin
>> FillChar(plf, SizeOf(plf), 0);
>> StrPCopy(plf.lfFaceName, 'Arial');
>> plf.lfHeight := -MulDiv(8, GetDeviceCaps(PaintBox1.Canvas.Handle,
>> LOGPIXELSY), 72);
>> plf.lfWeight := FW_NORMAL;
>> plf.lfEscapement := 900;
>> hfnt := CreateFontIndirect(plf);
>> try
>> //PaintBox1.Canvas.Font.Handle := hfnt;
>> oldh := SelectObject(PaintBox1.Canvas.Handle, hfnt);
>> try
>> ALV := TVersionInfo.Create(Application.ExeName);
>> try
>> AText := 'Version ' + LongVersionToString(ALV.FileLongVersion);
>> PaintBox1.Canvas.TextOut(PaintBox1.Width -
>> PaintBox1.Canvas.TextHeight(AText), PaintBox1.Height
>> {PaintBox1.Canvas.TextWidth(AText)}, AText);
>> finally
>> ALV.Free;
>> end;
>> finally
>> SelectObject(PaintBox1.Canvas.Handle, oldh);
>> end;
>> finally
>> DeleteObject(hfnt);
>> end;
>> end;
>
|