Текущий архив: 2006.06.04;
Скачать: CL | DM;
Вниз
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")
не подходит?
← →
MetalFan © (2006-05-15 15:22) [6]да, а еще интересная приписка к GetCharWidth:
...GetCharWidth cannot be used on TrueType fonts. To retrieve character widths for TrueType fonts, use GetCharABCWidths...
у Вас там случаем не трутайп шрифт?
← →
Джо © (2006-05-15 15:27) [7]> [4] Ega23 © (15.05.06 15:12)
> Но судя по [3] - таки является. :о)
Судя по [3], как раз НЕ является :)
← →
Игорь Шевченко © (2006-05-15 15:36) [8]Перед end; в [3] можно добавить строчку ReleaseDC(Edit1.Handle, DC);
Страницы: 1 вся ветка
Текущий архив: 2006.06.04;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.045 c
