Варианты курсора(Delphi)

[DomiNick]

FunnyDelphiCursor.zip (196.0 Кбайт, 0 просмотров)

Я ща обижусь... Больше 4-х дней прошло... Неужели никому не интересно?

[Ramires]

DomiNick, это ты сам делал?
Исходничек дай глянуть..
Если так смотреть чисто визуально, то логически подумав скажу следующее: вместо изображения курсора выводится его карта..
Такой же принцип и в анимации.. Изображение + его Изображение на фоне..

[DomiNick]

Ну... Часть кода взял из какой-то статьи... Кое-что переделал...

Если честно - смысл многих команд мне неизвестен...

function remakecur: hicon;
var cwidth, cheight: integer; ii: iconinfo; bmp1, bmp2: tbitmap; icon: hicon; curponts: array [0..3] of tpoint;
begin
curponts[0]:=point(1,1);
curponts[1]:=point(round(strtoint(form1.Edit.text)/2),strtoint(form1.Edit.text));
curponts[2]:=point(round(strtoint(form1.Edit.text)/2),round(strtoint(form1.Edit.text)/2));
curponts[3]:=point(strtoint(form1.Edit.text),round(strtoint(form1.Edit.text)/2));
bmp1:=tbitmap.create;
bmp1.pixelformat:=pf4bit;
bmp1.width:=strtoint(form1.Edit.text);
bmp1.height:=strtoint(form1.Edit.text);
bmp2:=tbitmap.create;
bmp2.pixelformat:=pf4bit;
bmp2.width:=strtoint(form1.Edit.text);
bmp2.height:=strtoint(form1.Edit.text);
      with bmp1.Canvas do
            begin
            brush.color:=clgreen;
            polygon(curponts);
            end;
      with bmp2.canvas do
            begin
            brush.color:=clblack;
            end;
bmp1.TransparentColor:=clmoneygreen;
bmp1.Transparent:=true;
bmp2.TransparentColor:=clmoneygreen;
bmp2.Transparent:=true;
ii.fIcon:=false;
ii.hbmColor:=bmp1.Handle;
ii.hbmMask:=bmp2.handle;
ii.xHotspot:=0;
ii.yHotspot:=0;
icon:=createiconindirect(ii);
result:=copyicon(icon);
destroyicon(icon);
bmp1.Free;
bmp2.free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
screen.cursors[1]:=remakecur;
screen.cursor:=crnone;
screen.cursor:=1;
end;

[Ramires]

Я не проверял, но что если

ii.hbmColor:=bmp1.Handle;
ii.hbmMask:=bmp2.handle;

поменять на

ii.hbmColor:=bmp2.Handle;
ii.hbmMask:=bmp1.handle;

[JTG]

А чего сделать-то надо? Может проще сохранить курсор заранее и грузить через LoadImage/LoadCursor

[DomiNick]

Вложения
cur.rar (178.6 Кбайт, 1 просмотров)

Благодарю...