Статьи по программированию
примеры программного кода
Delphi, Kylix, C, C++, SQL, Visual Basic, Bash, Assembler, 1С
Qt, KOL, MFC, Rx Library, Windows, Linux, Mac OS
Как нарисовать повёрнутый текст
Опубликовано codeLocker в 16.07.2008 в 06:46.
uses
QT;
procedure TForm1.RotatedText(Cnv: TCanvas; Wkl: Integer; Pxy: TPoint; Txt: string);
var
PrPoint: TPoint;
begin
// Rotate Canvas
QPainter_rotate(Cnv.Handle, Wkl);
// Convert Device Coord. to Modell- Coord.
QPainter_xFormDev(Cnv.Handle, PPoint(@PrPoint),
PPoint(@Pxy));
// Write text.
Canvas.TextOut(PrPoint.X, PrPoint.Y, 'Txt');
end;
QT;
procedure TForm1.RotatedText(Cnv: TCanvas; Wkl: Integer; Pxy: TPoint; Txt: string);
var
PrPoint: TPoint;
begin
// Rotate Canvas
QPainter_rotate(Cnv.Handle, Wkl);
// Convert Device Coord. to Modell- Coord.
QPainter_xFormDev(Cnv.Handle, PPoint(@PrPoint),
PPoint(@Pxy));
// Write text.
Canvas.TextOut(PrPoint.X, PrPoint.Y, 'Txt');
end;
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php
Материал похожий на Как нарисовать повёрнутый текст
- Как нарисовать метафайл?
- Как нарисовать радугу?
- Как в QDateEdit при выпадающем календаре сделат первый день недели понедельник
- Куки (Cookies)
- Синтез QT и Excel
Метки
cookies php
Навигация
Сейчас на сайте
Сейчас на сайте 0 пользователей и 1 гость.
Статистика
Всего материалов: 1387