Entwickler-Ecke :: Thema anzeigen - Eigene Cursors verwenden?

JRegier - Do 16.06.05 18:08
Titel: Eigene Cursors verwenden?

Hallo, ich würd gern wissen wie man selbst erstellte Cursors verwendet!
Und kann man aus beliebigem Icon/BMP ein Cursor machen?
Ich habe nämlich gesehen dass nur vier Farben zur verfügung standen!

Mottor - Do 16.06.05 20:16

Hier gibt es mehr Farben, Partner :D :
Aus BDN

Zitat:

Question and Answer Database

FAQ580D.txt Using an animated cursor.
Category :VCL
Platform :All
Product :All 32 bit

Question:
How do use an animated cursor?

Answer:
You will first need to get a handle to a Windows
cursor and assign it to the TScreen component's Cursors array.

Predefined cursors start at a negative index, and user defined
custom cursors are assigned positive indexes.

The following is an example of a Delphi form that uses an animated cursor:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var
  h : THandle;
begin
  h := LoadImage(0,
                 'C:\Windows\Cursors\Horse.ani',
                 IMAGE_CURSOR,
                 0,
                 0,
                 LR_DEFAULTSIZE or
                 LR_LOADFROMFILE);
  if h = 0 then ShowMessage('Cursor not loaded') else begin
    Screen.Cursors[1] := h;
    Screen.Cursor := 1;
  end;
end;

JRegier - Sa 18.06.05 19:19

Mottor hat folgendes geschrieben:

http://www.mirkes.de/en/delphi/vcls/anicur.php

Sind da die Cursors kostenlos zu haben? Ich muß bis mitte nächster Woche ein Programm fertig haben,
hab jetzt also keine Zeit etwas einzubauen was später noch nachträglich ändern dürfte!

Mottor - Mo 20.06.05 10:04

Zitat:

TmpAnimatedCursors Copyright (C) 2001-2004 markus stephany

This package is free software; you can redistribute it and/or modify
it under the terms of either:

a) the GNU General Public License as published by the Free
Software Foundation; either version 2, or (at your option) any
later version, or

b) the Clarified Artistic License as used by the authors of NCFTP
version 3.0.2.

This package is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License / Clarified Artistic License for more details.

You should have received a copy of the GNU General Public License
along with this package in the file named "COPYING"; if not,
write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
Boston, MA 02111-1307, USA.

You should also have received a copy of the Clarified Artistic
License along with this package in the file named "ARTISTIC"; if not,
you may find a copy at http://www.mirkes.de/downloads/ARTISTIC.txt

JRegier - Mo 20.06.05 10:22

Ne sagt mir mit welchem Programm kann ich eigene Cursors erstellen! Ich werde die CursorBibliothek mir ansehen,
aber ich bräuchte z.B. ein Cursor der eine Schriftart darstellt! Ich will nach dem Auswählen einer Schriftart
solchen Cursor bei beginDrag anzeigen und wenn man auf eine Componente Klickt solse diese Schriftart annehmen!

Mottor - Mo 20.06.05 13:17

Du kannst auch TDragObject oder TDragObjectEx benutzen.
Delphi Help:

Zitat:

Die Methode GetDragImages gibt eine Bilderliste zurück. In dieser Liste befindet sich das Bild, das während des Ziehens angezeigt werden soll.

Delphi-Quelltext

1:	function GetDragImages: TDragImageList; virtual;

Beschreibung

GetDragImages wird zu Beginn einer Drag&Drop-Operation aufgerufen. Entsprechend der Implemetierung in TDragObject, liefert GetDragImages nil (Delphi) bzw. NULL (C++) zurück. Es wird also nur das Cursor-Symbol zum Anzeigen der Drag-Operation verwendet.

In abgeleiteten Klassen enthält die Bilderliste normalerweise nur ein einziges Element. Das Drag-Objekt übernimmt die automatische Erzeugung und Verwaltung dieser Liste.

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!