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

Вниз

Глюк   Найти похожие ветки 

 
Zilog ©   (2002-12-27 11:50) [0]

Text := " Hello All! ";
TextLength := length(Text);

j := Screen.Width+TextLength*20;

// with Form1.DXDraw1.Surface.Canvas do begin
// Brush.Style := bsClear; Font.Color := clLime; Font.Size := 30; Font.Name:="Courier"; Font.Style := [fsBold];
// end;

for i := TextLength downto 1 do begin
Chars[i].SYM := Text[i];
Chars[i].X := j;
Chars[i].Y := Screen.Height div 2;
GetTextExtentPoint32(Form1.DXDraw1.Surface.Canvas.Handle,pchar(Chars[i].SYM),0,cs);
j := j - cs.cx;
end;


 
Игорь Шевченко ©   (2002-12-27 12:00) [1]

Как минимум, надо сделать так
var
AText : array [0..1] of char;

AText[0] := Text[i];
AText[1] := #0;
GetTextExtentPoint32(....., AText, 1, cs);



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

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

Наверх




Память: 0.46 MB
Время: 0.022 c
1-6503
alpa
2003-03-24 16:30
2003.04.03
запуск *.EXE из командной строки с ключами?


1-6493
Dimonich
2003-03-24 15:02
2003.04.03
Как свернуть прогу в трей?


3-6326
Xela
2003-03-13 20:24
2003.04.03
Ошибка импортирования в словарь данных


1-6439
Серега
2003-03-23 00:14
2003.04.03
Клавиши!!


6-6643
Nicky
2003-02-06 20:14
2003.04.03
аутентификация на локальной проксе