Вниз
Скачать: CL | DM;

А как вывести координаты на форму?   Найти похожие ветки 

 
Hdd   (2004-07-01 23:22) [0]

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


 
Рыба ©   (2004-07-01 23:24) [1]

Canvas.TextOut(Format("%d - %d", [x, y]), 10, 10);


 
Рыба ©   (2004-07-01 23:25) [2]

>но самое прикольное что в хелпе делфи про нее не слова...

Да ну?


 
Hdd   (2004-07-02 00:28) [3]

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


 
GuAV ©   (2004-07-02 00:40) [4]

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


 
Hdd   (2004-07-02 00:47) [5]

это что такое ? =)


 
GuAV ©   (2004-07-02 00:52) [6]

TextOut, invalidate... всё есть в хэлпе... у тебя он видимо поврежден :)


 
Hdd   (2004-07-02 08:17) [7]

я в таймер закинул и пошла жара =0
Canvas.TextOut(20,30,"X:"+inttostr(Xb)+" Y:"+inttostr(Yb));

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


 
jb   (2004-07-02 10:01) [8]

Зачем таймер не я понял, разве OnMouseMove у формы не бывает.
А насчет invalidate:
InvalidateRect(Handle,nil,false);


 
GuAV ©   (2004-07-05 14:31) [9]


> InvalidateRect(Handle,nil,false);

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


 
TUser ©   (2004-07-05 14:46) [10]


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

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


 
MacroDenS ©   (2004-07-05 15:52) [11]

to

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

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


 
MacroDenS ©   (2004-07-05 16:32) [12]

Не слушай ни кого на этом форуме...

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



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

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



Память: 0.47 MB
Время: 0.022 c
1-1088854897
ZedeS
2004-07-03 15:41
2004.07.18
Работа со String переменными


1-1088695851
default
2004-07-01 19:30
2004.07.18
Каков минимальный размер в байтах строки кода Delphi?


8-1083752286
LexusU
2004-05-05 14:18
2004.07.18
Сглаженный Zoom в TImage


3-1087809669
xmrz
2004-06-21 13:21
2004.07.18
MS SQL 7.0 DST пакет - не запускается через Job


1-1089101589
Сергей_И
2004-07-06 12:13
2004.07.18
StringGrid удаление, вставка строк




   Наверх