Текущий архив: 2008.03.23;
Скачать: 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 вся ветка
Текущий архив: 2008.03.23;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.013 c
