Вниз
Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.027 c
1-1078492564
Samtron
2004-03-05 16:16
2004.03.28
GetFileType


3-1077721146
Uran
2004-02-25 17:59
2004.03.28
Ошибка отображение символов кирилицы dbf файла


4-1073913279
velk
2004-01-12 16:14
2004.03.28
Как вписать текст в Tedit чужой программы?


8-1069763953
pupsik
2003-11-25 15:39
2004.03.28
Можно ли в DELPHI создать генератор звука


14-1074854262
Sergey_Masloff
2004-01-23 13:37
2004.03.28
надежная работа сервера delphi.mastak.ru




   Наверх