Transparency problem is not always. Just in some cases.
Drawing my cursor:
Code:
procedure TCommandoForm.Draw_Mouse;
begin
if xenscreen.FullScreen then ImageListmenu.ImageList.Items[0].Draw(mouse.CursorPos.X,mouse.CursorPos.y,0,0,0,1,1,255,255,255,255,round(nwatertimer),bmnormal)
else ImageListmenu.ImageList.Items[0].Draw(
(mouse.CursorPos.X-CommandoForm.Left)*xenscreen.Width div CommandoForm.Width
,(mouse.CursorPos.y-CommandoForm.Top)*xenscreen.Width div CommandoForm.Width,0,0,0,1,1,255,255,255,255,round(nwatertimer),bmnormal);
end;
Strange. In other cases it is working, and before I used your method it was also working. Cannot be a big problem, must be a minor one. :roll:
Firle
Bookmarks