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

Вниз

вертикальная надпись   Найти похожие ветки 

 
infom ©   (2004-03-23 16:32) [0]

как и с помощью каких компонентов можно написать надпись по-вертикали. Пример

м
а
с
т
е
р
а


 
infom ©   (2004-03-23 16:36) [1]

Ау
Помогите !!!


 
Курдль ©   (2004-03-23 16:40) [2]

TMemo

А если надо сам шрифт повернуть, то

function TGantt2D.CreateRotatedFont(AFont: TFont; Angle: Integer): HFont;
var lf : TLogFont;
begin
 {Создаем описание для нового шрифта.}
 with lf do
 begin
   {Устанавливаем текущие для объекта AFont параметры, кроме углов.}
   lfHeight := AFont.Height;
   lfWidth := 0;
   lfEscapement := Angle * 10; {Угол наклона строки в 0.1 градуса}
   lfOrientation := Angle * 10; {Угол наклона символов в строке в 0.1 градуса}
   if fsBold in AFont.Style then lfWeight := FW_BOLD else lfWeight := FW_NORMAL;
   lfItalic := Byte(fsItalic in AFont.Style);
   lfUnderline := Byte(fsUnderline in AFont.Style);
   lfStrikeOut := Byte(fsStrikeOut in AFont.Style);
   lfCharSet := DEFAULT_CHARSET;
   StrPCopy(lfFaceName, AFont.Name);
   lfQuality := DEFAULT_QUALITY;
   lfOutPrecision := OUT_DEFAULT_PRECIS;
   lfClipPrecision := CLIP_DEFAULT_PRECIS;
   lfPitchAndFamily := DEFAULT_PITCH;
 end;
 {Создаем новый шрифт}
 Result := CreateFontIndirect(lf);
end;



 
clickmaker ©   (2004-03-23 17:02) [3]

можно и TLabel c WordWrap = true и шириной в 1 символ



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

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

Наверх




Память: 0.47 MB
Время: 0.035 c
8-1076068502
$tranger
2004-02-06 14:55
2004.04.11
Непрямоугольная форма на основе TImage


7-1079349256
dr Tr0jan
2004-03-15 14:14
2004.04.11
Voice функции модема


6-1079554274
DEMON_XXX
2004-03-17 23:11
2004.04.11
Как получить e-mail адреса из контактной книги Outlook


14-1081694633
Soft
2004-04-11 18:43
2004.04.11
Параметры рассчета антенн.


3-1081851425
united
2004-04-13 14:17
2004.04.11
Oracle. вставка CLOB c помощью DOA