| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
GetTextExtentPoint32 [D5]
FishNode © (2008-02-26 14:43:00)не скомпилировать ошибка и курсор после первой запятой,
что надо ?
var
Size:TSize;
begin
GetTextExtentPoint32(hdc,'проверка',22,size);
хочу узнать длину в пикселях текста (для его последующей отсентровки)
[Error] unit4.pas(112): '(' expected but ',' found
Palladin (2008-02-26 17:11:00) [1]как не сказало, очень даже сказало, только ты не понял...
FishNode (2008-02-26 17:10:00) [2]для проверки сунул код в обычное приложение - все нормально
оказалось надо Consol.hdc прописать, где Consol - мой тип с записью hdc:handle
странно что оно не сказало синтакс еррор или еще что-нибудь
Плохиш (2008-02-26 15:21:00) [3]
> Thrasher © (26.02.08 15:12) [7]
> Вот конкретный пример
> GetTextExtentPoint32( Form1.Canvas.Handle,'Проверка',8,size);
Это пример маразматического кода-глюкодрома.
Thrasher (2008-02-26 15:12:00) [4]Вот конкретный пример
procedure TForm1.Button1Click(Sender: TObject);
var
Size:TSize;
begin
GetTextExtentPoint32(Form1.Canvas.Handle,'Проверка',8,size);
ShowMessage('Длина текста '+ IntToStr(Size.cx));
end;
Thrasher (2008-02-26 15:07:00) [5]
> Palladin
Мда... тупимс :)... Все вызывается
Плохиш (2008-02-26 15:04:00) [6]
> FishNode (26.02.08 14:43)
Хто такой этот hdc?
Palladin (2008-02-26 15:04:00) [7]
> Thrasher © (26.02.08 14:53) [3]
да ну что вы говорите...
Thrasher (2008-02-26 14:53:00) [8]GetTextExtentPoint32 - вызывается из GetTextExtentPoint и напрямую вызываться не может
Thrasher (2008-02-26 14:52:00) [9]Надо так
var
Size:TSize;
begin
GetTextExtentPoint(HDC,'Проверка',22,size);
Palladin (2008-02-26 14:50:00) [10]а какая из этих трех строк стодвенадцатая?
| |
