http://forum.delphimaster.net/cgi-bin/forum.pl?id=1549820106&n=10

DragAndDrop Toolbar.


RusSun ©   (10.02.19 20:35

Всем привет.
Как реализовать в программе, есть Toolbar с кнопками и форма с paintbox.
Можно ли сделать следующее при нажатии на кнопку на возникала иконка
курсора как при DragAndDrop и после рисовалась картинка на paintbox'се.
То есть это не обязательно true DragandDrop. Возможно ограничиться только сменой вида курсора.
https://yadi.sk/i/6ovsPsZyIGxvGQ
среди представленных в KOL_ansi.inc его нет.
const
 IDC_ARROW = MakeIntResource(32512);
 IDC_IBEAM = MakeIntResource(32513);
 IDC_WAIT = MakeIntResource(32514);
 IDC_CROSS = MakeIntResource(32515);
 IDC_UPARROW = MakeIntResource(32516);
 IDC_SIZE = MakeIntResource(32640);
 IDC_ICON = MakeIntResource(32641);
 IDC_SIZENWSE = MakeIntResource(32642);
 IDC_SIZENESW = MakeIntResource(32643);
 IDC_SIZEWE = MakeIntResource(32644);
 IDC_SIZENS = MakeIntResource(32645);
 IDC_SIZEALL = MakeIntResource(32646);
 IDC_NO = MakeIntResource(32648);
 IDC_HANDs = MakeIntResource(32649);
 IDC_APPSTARTING = MakeIntResource(32650);
 IDC_HELP = MakeIntResource(32651);


Или DragAndDrop с Toolbar'a можно осуществлять перенос на форму готовых объектов. Которые уже в свою очередь содержать все необходимые поля с инфой (цвет, размер, точку или точки и так далее).

Вообщем интересует любая информация-). Заранее спасибо.


RusSun ©   (13.02.19 14:20[1]

Hello.
How to implement in the program, there is a Toolbar with buttons and a form with a paintbox.
Is it possible to do the following when pressing the button on the icon appeared
the cursor as in DragAndDrop and after the picture was drawn on the paintbox.
That is, it is not necessarily true DragandDrop. It is possible to confine only to changing the type of cursor.
https://yadi.sk/i/6ovsPsZyIGxvGQ
among those represented in KOL_ansi.inc there is none.
const
 IDC_ARROW = MakeIntResource (32512);
 IDC_IBEAM = MakeIntResource (32513);
 IDC_WAIT = MakeIntResource (32514);
 IDC_CROSS = MakeIntResource (32515);
 IDC_UPARROW = MakeIntResource (32516);
 IDC_SIZE = MakeIntResource (32640);
 IDC_ICON = MakeIntResource (32641);
 IDC_SIZENWSE = MakeIntResource (32642);
 IDC_SIZENESW = MakeIntResource (32643);
 IDC_SIZEWE = MakeIntResource (32644);
 IDC_SIZENS = MakeIntResource (32645);
 IDC_SIZEALL = MakeIntResource (32646);
 IDC_NO = MakeIntResource (32648);
 IDC_HANDs = MakeIntResource (32649);
 IDC_APPSTARTING = MakeIntResource (32650);
 IDC_HELP = MakeIntResource (32651);

Or DragAndDrop from the Toolbar can transfer the finished objects to the form. Which in turn contain all the necessary fields with info (color, size, point or points and so on).

Generally interested in any information-). Thank you in advance.


RusSun ©   (13.02.19 17:34[2]

В мск показывает иконки тулбара.
-> TstGHasIcons.exe
В kol only нет.
-> Project1noIcons.exe
Пример:
https://yadi.sk/d/VkhAIBcB6xuVmA

In Mck shows toolbar icons.
-> TstGHasIcons.exe
In "kol only" not.
-> Project1noIcons.exe
Example:
https://yadi.sk/d/VkhAIBcB6xuVmA


http://forum.delphimaster.net/cgi-bin/forum.pl?id=1549820106&n=10