Cursor aus BITMAP-Ressourcenname laden

[3_of_8]

Morgen.

Ich habe eine BITMAP Ressource, die über den Ressourcennamen angesprochen wird. Wie kriege ich die jetzt als Mauscursor?

LoadCursor geht schonmal nicht.

[SirThornberry]

du kommst nicht drumherum die Bitmap in einen richtigen Cursor zu wandeln. Eine Bitmap ist nur ein Bild, ein Cursor hingegen besitzt noch eigenschaften für die Mausposition etc.

[3_of_8]

Ich wäre dir durchaus dankbar, wenn du mir noch sagen würdest, wie ich das mache.

EDIT: Zur Laufzeit meine ich.

[Christian Seehase]

Moin Manuel,

warum speicherst Du das nicht gleich als Cursor?

[3_of_8]

Weil die Quelle als Bitmap vorliegt. Ich verwende das Bitmap als Glyph für einen SpeedButton. Und wenn man draufklickt, soll das Glyph als Cursor angezeigt werden.

[Hawkeye219]

Hallo Manuel,

vielleicht hilft das weiter.

Gruß Hawkeye

[3_of_8]

Habs mit CreateIconIndirect probiert. Aber das erzeugt komischerweise kein gültiges Icon. Ich kanns nicht per icon.handle:=Screen.Cursors[$0101]; laden und per icon.SaveToFile(); abspeichern. Gibt eine Exception "Ungültiges Icon" Aber dieser Cursor ist eindeutig gesetzt und hat auch ein Handle.

[turboPASCAL]

Zitat:

Cursor aus BITMAP-Ressourcenname laden

So ?

Delphi-Quellcode:

procedure TfrmInfo.FormCreate(Sender: TObject);
var
  Cur: HCursor;
begin
  Cur := LoadImage(hInstance, MAKEINTRESOURCE(1), IMAGE_CURSOR, 0, 0, 0);
  Screen.Cursors[1] := Cur;
  DeleteObject(Cur);

  Cursor := 1;

  Button1.Cursor := Cursor;
  StaticText1.Cursor := Cursor;
  //...
end;

Aller dings ist die Resource kein Bitmap sondern ein Cursor....

oder soll es dyn. erstellt werden ?

[3_of_8]

Es soll dynamisch erstellt werden. Aus einem Bitmap.

[turboPASCAL]

Dann so:

Delphi-Quellcode:

// ...
implementation

const
   crMyCursor = 1;
var
   IconInfo : TIconInfo;

procedure TForm1.Button1Click(Sender: TObject) ;
var
   bmpMask : TBitmap;
   bmpColor : TBitmap;
begin
   bmpMask := TBitmap.Create;
   bmpColor := TBitmap.Create;

   //ein Bitmap auf die einfache Art erstellen ;-)
   bmpColor.LoadFromFile('..\TestMapCur.bmp');
   bmpMask.LoadFromFile('..\TestMaskCur.bmp');

   IconInfo.fIcon := False; // kein Icon sondern Cursor
   IconInfo.xHotspot := 5;
   IconInfo.yHotspot := 5;
   IconInfo.hbmMask := bmpMask.Handle;
   IconInfo.hbmColor := bmpColor.Handle;

   Screen.Cursors[crMyCursor] := CreateIconIndirect(iconInfo) ;

   Screen.Cursor := crMyCursor;
   Button1.Cursor := 1;


   bmpMask.Free;
   bmpColor.Free;
end;