Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.18;
Скачать: CL | DM;

Вниз

Изменить высоту Canvas a   Найти похожие ветки 

 
DelphiLexx ©   (2005-11-22 18:12) [0]

Есть TPanel на TPanel"и лежит TPaintBox.Align = alClient TPaintBox"е. Есть процедура в которую передается Canvas(а именно TPaintBox.Canvas), котором автоматически рисуется перевернутый текст(90 градусов) и его масштабирование происходит точно по его размеру. Но мне нужно сделать не по всей длине TPaintBox.Canvas"a а чуть меньше всей длины. Поэтому нужно как-то уменьшить высоту TPaintBox.Canvas"a при
этом PainttBox.Align = alClient (изменять FontData.fWidth не предлагать).

procedure AdvTextOut(Canvas: TCanvas; const X, Y, Angle: Integer; const aText: String);
var
 OldFont, NewFont: THandle;
 FontData: TLogFont;
begin
 if Assigned(Canvas) then
   GetObject(Canvas.Font.Handle, SizeOf(FontData), @FontData)
 else
   Exit;
 FontData.lfEscapement := Angle * 10;
 FontData.lfOrientation := FontData.lfEscapement;
 NewFont := CreateFontIndirect(FontData);
 OldFont := SelectObject(Canvas.Handle, NewFont);
 Canvas.TextOut(X, Y, aText);
 SelectObject(Canvas.Handle, OldFont);
 DeleteObject(NewFont);
end;


 
Leonid Troyanovsky ©   (2005-11-22 18:45) [1]


> DelphiLexx ©   (22.11.05 18:12)  
> Есть TPanel на TPanel"и лежит TPaintBox.Align = alClient
> TPaintBox"е. Есть процедура в которую передается Canvas(а
> именно TPaintBox.Canvas), котором автоматически рисуется
> перевернутый текст(90 градусов) и его масштабирование происходит
> точно по его размеру. Но мне нужно сделать не по всей длине
> TPaintBox.Canvas"a а чуть меньше всей длины. Поэтому нужно
> как-то уменьшить высоту TPaintBox.Canvas"a при


> procedure AdvTextOut(Canvas: TCanvas; const X, Y, Angle:
>  Integer; const aText: String);

Ну и передай туда еще и Rect: TRect в который должно оное уместиться.

А ты полагаешь, что приведенный код делает чего-то полезное?

--
Regards, LVT.


 
TUser ©   (2005-11-22 18:54) [2]

Создай дополнительную канвас, и потом - Copyrect. НАпример так.


 
DelphiLexx ©   (2005-11-22 20:14) [3]


> Создай дополнительную канвас, и потом - Copyrect. НАпример
> так.

Как так?


 
DelphiLexx ©   (2005-11-22 20:15) [4]


> А ты полагаешь, что приведенный код делает чего-то полезное?

Просто уверен.



Страницы: 1 вся ветка

Текущий архив: 2005.12.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.04 c
14-1132353545
lookin
2005-11-19 01:39
2005.12.18
Skype никто не хочет воспользоваться?


4-1129897383
Гас
2005-10-21 16:23
2005.12.18
Как в TEdit отключить beep при выходе из этого контрола?


14-1133036180
Доктор Семенюк
2005-11-26 23:16
2005.12.18
Родину сняли с выборов


2-1133377141
kraim
2005-11-30 21:59
2005.12.18
ID жесткого


2-1133272643
FShadow
2005-11-29 16:57
2005.12.18
Как обновить програмно данные в TDBGrid после изменения данныхю.