Курсоры
Подскажите пожалуйста! Как в программу подгружать файл курсора, расширение .cur ???
Из справки:
Цитата:
This example shows how to add custom cursors to an application. It assumes that a custom cursor with the name NewCursor has been added to the resources (.RES file) of the application. You can add the cursor using the image editor. (Tools | Image Editor)
The following code makes this cursor available to the application via the constant crMyCursor, and sets it as the global cursor to the application.
const crMyCursor = 5;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Screen->Cursors[crMyCursor] = LoadCursor(HInstance, "NewCursor");
Cursor = crMyCursor;
}
The following code makes this cursor available to the application via the constant crMyCursor, and sets it as the global cursor to the application.
const crMyCursor = 5;
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Screen->Cursors[crMyCursor] = LoadCursor(HInstance, "NewCursor");
Cursor = crMyCursor;
}
А можно запихнуть в *.res-файл картинки курсоров с помощью программы Restorator. И далее прописать такой код:
Вставить перед этим
//---------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
вот это:
const int crFill = 1;
const int crPlus = 2;
const int crDraw = 3;
const int crErase = 4;
//константы курсоров
На событие FormCreate:
//Регистрация курсоров
Screen->Cursors[crFill] = LoadCursor(HInstance, "FILL");
Screen->Cursors[crPlus] = LoadCursor(HInstance, "PLUS");
Screen->Cursors[crDraw] = LoadCursor(HInstance, "DRAW");
Screen->Cursors[crErase] = LoadCursor(HInstance, "ERASE");
где ERASE; DRAW - названия курсоров (картинок, которые могут быть bmp-формата)
А далее на событие кнопки, когда должен включаться курсор написать:
Image1->Cursor = crErase; (crИМЯКУРСОРА)
//в данном случае курсор включиться при нахождении на Image1
Вставить перед этим
//---------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
вот это:
const int crFill = 1;
const int crPlus = 2;
const int crDraw = 3;
const int crErase = 4;
//константы курсоров
На событие FormCreate:
//Регистрация курсоров
Screen->Cursors[crFill] = LoadCursor(HInstance, "FILL");
Screen->Cursors[crPlus] = LoadCursor(HInstance, "PLUS");
Screen->Cursors[crDraw] = LoadCursor(HInstance, "DRAW");
Screen->Cursors[crErase] = LoadCursor(HInstance, "ERASE");
где ERASE; DRAW - названия курсоров (картинок, которые могут быть bmp-формата)
А далее на событие кнопки, когда должен включаться курсор написать:
Image1->Cursor = crErase; (crИМЯКУРСОРА)
//в данном случае курсор включиться при нахождении на Image1