Главная страница
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.057 c
3-1077202782
Sasha_M
2004-02-19 17:59
2004.03.28
Как прочитать в Array поле Binary ?


1-1078894406
Babay
2004-03-10 07:53
2004.03.28
Серилизация в Delphi


11-1057214468
Vitek
2003-07-03 10:41
2004.03.28
Не качается Updater 3.1 ...


6-1073569733
Иксик
2004-01-08 16:48
2004.03.28
IP Helper API


1-1079069069
Layner
2004-03-12 08:24
2004.03.28
Мастера, подскажите, как повесить "горячую клавишу" на процедуру.