GetCharWidth

← →
Quattro © (2006-05-15 15:00) [0]

Господа! Подскажите пожалуйста вот почему эта функция все время возвращает мне 14??
DC:HDC; Buff:Array [0..2] of integer; procedure TForm1.FormCreate(Sender: TObject); begin DC:=GetDC(Edit1.Handle); end; procedure TForm1.Button1Click(Sender: TObject); var x:Integer; begin GetCharWidth(DC,0,1,Buff); Label1.Caption:=FloatToStr(Buff[1]); end;

← →
Ega23 © (2006-05-15 15:04) [1]

Разве TEdit.Handle является указателем на HDC?

← →
Quattro © (2006-05-15 15:07) [2]

ээ...а разве нет?...тогда что нужно указать?

← →
Игорь Шевченко © (2006-05-15 15:07) [3]

procedure TForm1.Button1Click(Sender: TObject);
var
Buff:Array [0..2] of integer;
DC:HDC;
begin
DC:=GetDC(Edit1.Handle);
GetCharWidth(DC,Ord("m"),Ord("m"),Buff);
Label1.Caption:=IntToStr(Buff[0]);
end;

← →
Ega23 © (2006-05-15 15:12) [4]

> ээ...а разве нет?...тогда что нужно указать?

Я не в курсе. Сомнения у меня по этому поводу. Смотреть надо. Плохо в WinAPI разбираюсь, к своему стыду.
Но судя по [3] - таки является. :о)

← →
MetalFan © (2006-05-15 15:19) [5]

простите... а чем
...Canvas.TextWidth("m")
не подходит?

да, а еще интересная приписка к GetCharWidth:
...GetCharWidth cannot be used on TrueType fonts. To retrieve character widths for TrueType fonts, use GetCharABCWidths...
у Вас там случаем не трутайп шрифт?

Перед end; в [3] можно добавить строчку ReleaseDC(Edit1.Handle, DC);

GetCharWidth Найти похожие ветки