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

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

← →
FishNode   (2008-02-26 14:43) [0]

не скомпилировать ошибка и курсор после первой запятой,
что надо ?

var
Size:TSize;
begin
GetTextExtentPoint32(hdc,"проверка",22,size);

хочу узнать длину в пикселях текста (для его последующей отсентровки)

[Error] unit4.pas(112): "(" expected but "," found

---

← →
Palladin ©   (2008-02-26 14:50) [1]

а какая из этих трех строк стодвенадцатая?

---

← →
Thrasher ©   (2008-02-26 14:52) [2]

Надо так

var
Size:TSize;
begin
GetTextExtentPoint(HDC,"Проверка",22,size);


---

← →
Thrasher ©   (2008-02-26 14:53) [3]

GetTextExtentPoint32 - вызывается из GetTextExtentPoint и напрямую вызываться не может

---

← →
Плохиш ©   (2008-02-26 15:04) [4]

> FishNode   (26.02.08 14:43)  

Хто такой этот hdc?

---

← →
Palladin ©   (2008-02-26 15:04) [5]

> Thrasher ©   (26.02.08 14:53) [3]

да ну что вы говорите...

---

← →
Thrasher ©   (2008-02-26 15:07) [6]

> Palladin

Мда... тупимс :)... Все вызывается

---

← →
Thrasher ©   (2008-02-26 15:12) [7]

Вот конкретный пример

procedure TForm1.Button1Click(Sender: TObject);
var
Size:TSize;
begin
GetTextExtentPoint32(Form1.Canvas.Handle,"Проверка",8,size);
ShowMessage("Длина текста "+ IntToStr(Size.cx));
end;



---

← →
Плохиш ©   (2008-02-26 15:21) [8]

> Thrasher ©   (26.02.08 15:12) [7]
> Вот конкретный пример


> GetTextExtentPoint32(Form1.Canvas.Handle,"Проверка",8,size);

Это пример маразматического кода-глюкодрома.

---

← →
FishNode   (2008-02-26 17:10) [9]

для проверки сунул код в обычное приложение - все нормально

оказалось надо Consol.hdc прописать, где Consol - мой тип с записью hdc:handle
странно что оно не сказало синтакс еррор или еще что-нибудь

---

← →
Palladin ©   (2008-02-26 17:11) [10]

как не сказало, очень даже сказало, только ты не понял...

---

Страницы: 1 вся ветка

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



Память: 0.47 MB
Время: 0.01 c