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

Вниз

Как использовать функцию GetCharABCWidths?   Найти похожие ветки 

 
GrayFace ©   (2004-01-05 11:00) [0]

Извините, что повторяюсь. Мне нужно вызвать GetCharABCWidths, но она не срабатывает. Как ее правильно вызвать?


 
YuRock ©   (2004-01-05 11:49) [1]

А почему ты решил, что она не срабатывает?


 
GrayFace ©   (2004-01-13 01:43) [2]

Потому, что возвращает false и все значения массива - нули.


 
MBo ©   (2004-01-13 08:31) [3]

очевидно, хелп не читан.

procedure TForm1.Button1Click(Sender: TObject);
var
 i:Integer;
 Wdts:array of TABC;
begin
Canvas.Font.Name:="Arial";
Canvas.Font.Size:=24;
SetLength(Wdts,Ord("Z")-Ord("A")+1);
GetCharABCWidths(Canvas.Handle,Ord("A"),Ord("Z"),Wdts[0]);
for i:=0 to Ord("Z")-Ord("A") do
 Memo1.Lines.Add(Format("%s: %d %d %d",
   [Chr(Ord("A")+i),Wdts[i].abcA,Wdts[i].abcB,Wdts[i].abcC]));
end;


 
GrayFace ©   (2004-01-13 23:26) [4]

Спасибо. Хелп читан, но я не знал, что надо TABC. Делал _ABC. И еще указатель на массив, а не на первый элемент делал.


 
GrayFace ©   (2004-01-14 20:38) [5]

Не работает.  Вот примерно код:
var bmp:TBitmap; ab:array[0..255] of TABC;
begin
........
 GetCharABCWidths(bmp.canvas.handle,0,255,ab);
........
end;

еще пробовал так:
var bmp:TBitmap; ab:array[0..255] of TABC; ooo:TPointer;
begin
........
 ooo:=@abc[0];
 GetCharABCWidths(bmp.canvas.handle,0,255,ab);
........
end;


 
MBo ©   (2004-01-15 06:53) [6]

шрифт TTF должен быть выбран


 
GrayFace ©   (2004-01-15 09:33) [7]

Он вроде выбран. А как же быть с не TrueType шрифтами.


 
MBo ©   (2004-01-15 09:49) [8]

Эта функция предназначена только для TTF
GetCharABCWidthsFloat



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

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

Наверх




Память: 0.48 MB
Время: 0.037 c
3-1077885349
LAndreyV
2004-02-27 15:35
2004.03.28
как быстро очистить таблицу от данных


8-1069085167
g-l-u-k
2003-11-17 19:06
2004.03.28
ListBox DoubleClick


3-1077179718
SerKom
2004-02-19 11:35
2004.03.28
В чем разница в TSQL "AS" от "="?


1-1078725988
DRUID
2004-03-08 09:06
2004.03.28
Создание файла с ресурсами.


7-1073129488
Ilg
2004-01-03 14:31
2004.03.28
Смена разрешения экрана