Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

А как вывести координаты на форму? [D6, WinME]

Hdd © (2004-07-01 23:22:00)
например мышки, не охота лабел кидать на форму - слишком уж примитивно =)
Хотел вывести 'руками' Canvas.Draw(x,y,Graphics:TGraphics) не дает, не могу х,у типа Интегер в грапхикс сунуть, TextOut слышал есть, но самое прикольное что в хелпе делфи про нее не слова...

MacroDenS (2004-07-05 16:32:00) [1]
Не слушай ни кого на этом форуме...

Берегись подсказок из слов заумных...
Обходи лайблы и подобные им компоненты стороной, и следи, что бы они сами на формы прыгать не начали, закопайся в хелп Делфовский по самое нехочу. И когда ты с текстаутом в плотную столкнешься,
хватай быстро лейбл швыряй его на форму и заводи координаты через все что можно и какие нужно.

MacroDenS (2004-07-05 15:52:00) [2]
to

GuAV © (02.07.04 00:52) [6]
TextOut, invalidate... всё есть в хэлпе... у тебя он видимо поврежден :)

У него скорее не хелп поврежден, а руки с мозгами

TUser (2004-07-05 14:46:00) [3]

> не охота лабел кидать на форму - слишком уж примитивно =)

Эх, а я-то какие примитивные программы пишу :)

GuAV (2004-07-05 14:31:00) [4]

> InvalidateRect(Handle,nil,false);

И это будет правильно. И можно еще Rect задать.

jb (2004-07-02 10:01:00) [5]
Зачем таймер не я понял, разве OnMouseMove у формы не бывает.
А насчет invalidate:
InvalidateRect(Handle,nil,false);

Hdd (2004-07-02 08:17:00) [6]
я в таймер закинул и пошла жара =0
Canvas.TextOut(20,30,'X:'+inttostr(Xb)+' Y:'+inttostr(Yb));

тока там глючит по У, координаты могут доходить до пары тысяч, хотя там всего 400 где то можно максимум. Потом также резко падают когда требуеться.

GuAV (2004-07-02 00:52:00) [7]
TextOut, invalidate... всё есть в хэлпе... у тебя он видимо поврежден :)

Hdd (2004-07-02 00:47:00) [8]
это что такое ? =)

GuAV (2004-07-02 00:40:00) [9]
так invalidate в том же таймере.
и имхо незачем выпендриватся кидай лабел, он же невиндатый и ресурсов много не возьмет.

Hdd (2004-07-02 00:28:00) [10]
А еще вопрос - поместил такое дело
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.TextOut(20,30,'X:'+inttostr(Xb)+' Y:'+inttostr(Yb));
end;
тока вот не прорисовываеться заново, в таймере меняються координаты

Рыба (2004-07-01 23:25:00) [11]
>но самое прикольное что в хелпе делфи про нее не слова...

Да ну?

Рыба (2004-07-01 23:24:00) [12]
Canvas.TextOut(Format('%d - %d', [x, y]), 10, 10);

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »