Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Вниз

Нестандартные курсоры   Найти похожие ветки 

 
Aramis   (2004-04-11 07:43) [0]

Здравствуйте мастера, можно ли по вашему загрузить курсор из любого Bitmap. Пробовал LoadImage но .bmp не удалось загрузить.
вот мой код:

screen.Cursors[1]:=loadimage(Hinstance,
                            "bit.bmp",
                            image_bitmap,
                            0,
                            0,
                            LR_DEFAULTSIZE);

form1.Cursor:=1;
Благодарю заранее..


 
Mim1   (2004-04-11 08:59) [1]

Курсор должен быть cur или ani формата. Как например узнать какая точка курсора управляющая?


 
Cobalt ©   (2004-04-11 10:11) [2]

а зачем узнавать? Если ВЫ нарисовали курсор, то ВЫ знаете, а вообще-то по умолчанию верхняя левая.


 
Aramis   (2004-04-11 10:50) [3]

to mim1
ICO формат тоже подходит - пробовал


 
Aramis   (2004-04-11 10:53) [4]

В Image Editor-е имеется set hot spot


 
ppcat   (2004-04-11 11:35) [5]

Набольшой пример (где взял, не помню):

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
 StdCtrls, ExtCtrls;

type
 TForm1 = class(TForm)
   Timer1: TTimer;
   procedure Timer1Timer(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
   n: word;
   procedure cr(txt: string);
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.cr(txt: string);
var
 bmp, bmb: TBitmap;
 x, y: integer;
 s: string;
   ii:iconinfo;
   icon:hicon;
   ic: hicon;
begin
 x:= 3;
 y:= 10;
 s:= txt;
 bmp:= TBitmap.Create;
 bmb:= TBitmap.Create;
 //bmp.PixelFormat:= pf4bit;
//bmb.PixelFormat:= pf4bit;
 try
   bmb.Width:= 64;
   bmb.Height:= 32;
   bmb.Canvas.brush.Color:= clBtnShadow;
   bmb.Canvas.FillRect(rect(0, 0, 64, 32));
   bmb.Transparent:= true;

   bmp.Width:= 64;
   bmp.Height:= 32;
   bmb.Canvas.brush.Color:= clBtnShadow;
   bmb.Canvas.FillRect(rect(0, 0, 64, 32));
   bmp.Transparent:= true;

   //bmb.Canvas.Font.Style:= [fsBold];
   bmb.Canvas.Font.Color:= clBlack;
   bmb.Canvas.TextOut(x, y, s);

   //bmp.Canvas.Font.Style:= [fsBold];
   bmp.Canvas.Font.Color:= clBtnShadow;
   bmp.Canvas.TextOut(x + 2, y + 4, s);

   bmp.Canvas.Draw(0, 0, bmb);

   //Canvas.Draw(10, 10, bmp);

   ii.fIcon:=false;
   ii.hbmColor:=bmb.Handle;
   ii.hbmMask:=bmp.handle;
   ii.xHotspot:=0;
   ii.yHotspot:=0;
   icon:=createiconindirect(ii);
   ic:=copyicon(icon);

   screen.Cursors[1]:= ic;
   screen.Cursor:= crNone;
   screen.Cursor:= 1;

 finally
   destroyicon(icon);
   bmp.free;
   bmb.free;
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 cr(TimeToStr(Time));
end;

end.


 
Aramis   (2004-04-11 20:43) [6]

таак этот пример не работает, попробую узнать почему?


 
IceDog   (2004-04-12 03:08) [7]

Интересно, а можно ли сделать курсор как в AutoCad? У меня не получилось.



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2004.04.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.256 c
14-1080821975
Layner
2004-04-01 16:19
2004.04.25
Помогите перевести ООО на др. человека...если есть кто из юристов


1-1081318748
Serj
2004-04-07 10:19
2004.04.25
Размер comboboxa


14-1080893711
bar
2004-04-02 12:15
2004.04.25
Народ, кто знает визуальные среды программирования кроме DELPHI


3-1080626158
pt
2004-03-30 09:55
2004.04.25
dBase + ADO


4-1077707302
Мария
2004-02-25 14:08
2004.04.25
ctrl+alt+del





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский