Переместить курсор

[CapOne]

Каким образом на Дельфи можно переместить курсор в определенную точку экрана?

[Darthman]

SetCursorPos пробовал?

[CapOne]

спасибо

А как выделить в программе время на выполнение внешних событий (типа команды DoEvents в бэйсике)?

[Darthman]

Можно поконкретнее?

[CapOne]

Например, у меня большой цикл, который тормозит программу секунд на 10. Как сделать, чтобы в это время можно было, например, переместить форму или чтоб перерисовалось изображение в TImage?

[Darthman]

Сделать отдельным процессом, с приоритетом normal, или idle.
А перерисовать форму можно так:
InvalidateRect(*форма*.handle, nil, false);
Для перерисовки Image можно воспользоваться такой функцией:
*image*.repaint; (.refresh)

[AWESOME]

Насколько помню, может помочь вставка Application.ProcessMessages в цикл

[Darthman]

Но ИМХО предпочтительнее вычисления сделать отдельным потоком.

[CapOne]

А как определить позицию объекта на форме относительно верхнего левого края экрана?
Ведь ширина рамок формы может быть разной.

[CapOne]

И еще вопрос. Имеется TImage. Задаю ему размер. Через TCanvas чего-нить рисую. Через .picture.SaveToFile сохраняю в файл. Потом нужно поменять ему размер и сделать все заново. Но размер не меняется... Чего делать?

[CapOne]

И еще вопрос.
Для процедуры val нужна строка с точкой для разделения целой и дробной частей, а функция floattostr ставит запятую. Можно как-нибудь сделать, чтобы либо валу нужна была запятая, либо floattostr выдавал точку. Или только поиском и заменой в строке? А то издевательство какое-то получается.

[Darthman]

Цитата

А как определить позицию объекта на форме относительно верхнего левого края экрана?
Ведь ширина рамок формы может быть разной.

Да запросто

GetWindowRect(hWnd, r);

Где hWnd - будет скорее всего form1.handle
а r - переменная Trect
Получишь координаты окна.
Нужен контрол, тогда хендл на контрол подставь.

[Darthman]

Цитата

Первоначальное сообщение от CapOne
И еще вопрос. Имеется TImage. Задаю ему размер. Через TCanvas чего-нить рисую. Через .picture.SaveToFile сохраняю в файл. Потом нужно поменять ему размер и сделать все заново. Но размер не меняется... Чего делать?

Непонял?

[Darthman]

Цитата

Первоначальное сообщение от CapOne
И еще вопрос.
Для процедуры val нужна строка с точкой для разделения целой и дробной частей, а функция floattostr ставит запятую. Можно как-нибудь сделать, чтобы либо валу нужна была запятая, либо floattostr выдавал точку. Или только поиском и заменой в строке? А то издевательство какое-то получается.

SetDecimalSeparator меняет системный разделитель.

[CapOne]

2) Я хочу из проги сохранять битмап. И предварительно ему указывать размер в высоту и в ширину. Этим битмапом должна быть картинка, сгенерированная самой прогой. Если я делаю это через TImage, то все работает нормально, но если во второй раз я хочу сделать битмап с другим размером, то размер холста не меняется, и сохраняется только кусок изображения.

[Darthman]

Проще динамически создавать в памяти Tbitmap и сохранять его. после использования удалять, или переделывать.

[CapOne]

1) GetWindowRect выдает те же координаты, что и tform.left и tform.top. Так что облом. Кроме формы, вроде, ни у чего hwnd нет.
2) Попробую.
3) Такой функции, кажись нет. Компилятор ругается. Ни в одном хелпе не нашел.

[Darthman]

1) Естественно. А о каком контролле речь? У тех же TButton есть точно. Да и вообще хендл должен быть почти у всех компонентов.
2)А чего там пробовать. Делать надо
3)Пардон. Просто DecimalSeparator, переменная, а не функция. Мне стыдно... гыгы

[CapOne]

1) Хех. Если в нужную точку поставить тот же tbutton, все получается.
2) Сделал. Только немного по-другому.
3) Получилось.

[Darthman]

Все проблемы решены?

[CapOne]

Пока да

[CapOne]

Вот что из всего этого получилось: http://vadim.gczn.nsk.su/surf.rar.

[Darthman]

2CapOne:
зря двойную буферизацию не задействовал. Не мерцало бы...

[CapOne]

Там все на 100% software.
Как предлагаешь эту буферизацию задействовать?

[Darthman]

Ну простейший метод - это рисовать в битам (в памяти) и делать bitblt
Второй вариант (часто не прокатывает и тормозит больше) это задать панели или форме, на которой это нарисовано придать значение DoubleBuffered = true.

[CapOne]

10x