Hallo liebes Forum,

in der Delphi Dokumentation wird beschrieben, wie mit Vcl.Forms.TScreen.Cursors ein benutzerdefinierter Cursor erstellt wird. "...verwenden Sie entweder zwei Bitmaps (ein Bitmap für das normale Bild und ein Bitmap für das Maskenbild) zum Erstellen eines Symbols..." Was ist mit Maskenbild Bitmap gemeint? Wie erzeuge ich so ein Bitmap? Kann ich bei dem (normalen) Bitmap generell die Größe anpassen- so dass Kinder die App leichter bedienen können?

Vielen Dank für Antworten.

Zitat:

oder führen Sie die folgenden Schritte aus

Willst du nicht lieber das ODER machen?



Ein Schwarz/Weiß-Bitmap, zum Ausschneiden,
quasi als Alpha-Kanal, dort wo die Pixel des normalen Bitmaps transparent sein sollen, bzw. wo nicht.
Ich glaub es war Schwarz=Transparent und Weiß=SicherbarerPixelDesCursors.

siehe ICONINFO.hbmColor und ICONINFO.hbmMask für CreateIconIndirect

https://learn.microsoft.com/en-us/wi...teiconindirect
https://learn.microsoft.com/en-us/wi...nuser-iconinfo





Es ist die Erweiterung vom CreateCursor,
wo man zwei Masken-Bitsmaps angeben konnte, eines für AND und das Andere für XOR,
also Bitmap für Transparenz und eines für die "Farbe", wobei Farbe dort bedeutet "invertierte Farbe des drunterliegenden Pixels des Desktop/Fenster/...".

Die Cursorgröße gibt windows vor, man kann sie aber global einstellen, daher vermute ich, dass man über windows (WMI ?) da irgendwie ran käme, man würde aber sicherlich global umstellen.

Oder du benutzt einen Resource-Editor.

Im Internet gibt es jede Menge frei Resource- Editoren.
Eine Googlesuche schaft abhilfe.

In der Delphi Dokumentation steht:

"1. Erstellen Sie die Cursor-Ressource mithilfe eines Ressourcen-Editors.
2. Deklarieren Sie eine Cursor-Konstante mit einem Wert,der mit einer vorhandenen Cursor-Konstanten nicht in Konflikt steht.
3. Ermitteln Sie mit Hilfe der Windows API-Funktion LoadCursor ein Handle für den neuen Cursor.
4. Setzen Sie die Cursors-Eigenschaft, die von der neu deklarierte Cursor-Konstante indiziert ist, auf das von LoadCursor ermittelte Handle."

Den ersten Punkt habe ich ausgeführt mit meiner Datei "RedBigCursor.res". Da ich nur ein Laie bin komme ich nicht klar mit der restlichen Anleitung, insbesondere dem Handle. Kann jemand den Code posten?

Nochmals Danke.

Ich hab die Cursor unter Prjekt -> Ressourcen und Bilder hinzugefügt und dann mache ich im Programm einfach folgendes

zusammenfalten · markieren

Delphi-Quellcode:

procedure TSATMAT.LoadCursors;
var CursorLoadID: Cardinal;
begin
  CursorLoadID := LoadCursor(hInstance, 'CUCURVE');
  screen.Cursors[cuCu] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'CUPEQQ');
  screen.Cursors[cuPEQ] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'REDDOT');
  screen.Cursors[cuRD] := CursorLoadID;
  CursorLoadID := LoadCursor(hInstance, 'CURED');
  screen.Cursors[cuRed] := CursorLoadID;
end;

Und dann halt screen.cursor := cuCu

Hallo, Danke @TomyN. Es gelingt mir, den Code mit einer VCL Anwendung zu realisieren, ich habe jedoch eine Firemonkey App. Ich bin auf diese Aussage gestoßen:

Zitat:

Unfortunately, FireMonkey does not support custom cursors.

Wäre es sinnvoll alles in eine VCL Anwendung zu übertragen und dann mit einem Emulator zu arbeiten, wenn man die App auf Android bedienen möchte?

Oder gibt es doch noch eine Möglichkeit einen eigenen Cursor in Firemonkey zu haben?