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

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



Память: 0.46 MB
Время: 0.028 c