Animiertes LoadCursor?

[himitsu]

Moin, LoadCursor, LoadCursorFromFile erlauben es ja, dass man animierte Cursor (*.ani) lädt.

Aber warum erlauben die RessourcenCompiler vom Delphi nicht das Einbinden dieser Cursor?

Code:

xxx CURSOR "MyCursor.ani"

Es gibt da eine Fehlermeldung ala "ungülige Datei".

Unter 'nem anderen Ressource-Typ lässt sich diese Datei zwar einbinden, aber dann finden LoadCursor und LoadImage diese "Cursor"-Ressource nicht
und man darf das Laden der Ressource selber implementieren und diesen Cursor kann man dann (offiziell) nicht aus dem RAM, bzw. dem Pointer dieser Ressourse laden, sondern müsste (offiziell) diesen Cursor dann erstmal in 'ne Datei speichern.


offiziell = ich weiß wie es dennoch geht (aktuell)

[Uwe Raabe]

Unter Delphi 10.1 Berlin funktioniert das tadellos.

[himitsu]

Hatte es mal auch schon in XE8 probiert und da ging es nicht ... toll, dass man sich ständig die Bugfixe kaufen darf

[Aviator]

Zitat von himitsu:

Aber warum erlauben die RessourcenCompiler vom Delphi nicht das Einbinden dieser Cursor?

Also ich hatte sowas auch mal gemacht und das funktionierte. Mit XE3.

Bei mir sah das dann so aus in der Res RC-Datei:

Code:

#define ANICURSOR 21
DROPBELOWCUR CURSOR "DropBelow.cur"
DROPABOVEANI ANICURSOR "DropAbove.ani"

Die Datei lässt sich dann auch problemlos kompilieren und in das Projekt einbinden.

Geladen habe ich die Datei dann mit folgenden Code. Keine Ahnung ob das der beste Weg ist, aber es funktioniert problemlos.

Delphi-Quellcode:

procedure LoadAnimatedCursor(ResourceName: string; ResourceType: PWideChar; CursorIdx: Integer);
var
  ResStream: TResourceStream;
  ResFileName: PWideChar;
begin
  ResStream := TResourceStream.Create(HInstance, ResourceName, ResourceType);
  try
    ResFileName := PWideChar(IncludeTrailingPathDelimiter(ExtractFilePath(aktuellerpfadUserIni)) + 'CursorRes');
    ResStream.Position := 0;
    ResStream.SaveToFile(ResFileName);
    Screen.Cursors[CursorIdx] := LoadImage(HInstance, ResFileName, IMAGE_CURSOR, 0, 0,
      LR_DEFAULTSIZE or LR_LOADFROMFILE);
    DeleteFile(ResFileName);
  finally
    ResStream.Free;
  end;
end;

[himitsu]

Zitat:

Code:

#define ANICURSOR 21
DROPBELOWCUR CURSOR "DropBelow.cur"
DROPABOVEANI ANICURSOR "DropAbove.ani"

Witziger Weise hatte ich mit dem DEFINE auch Probleme ... da mackerte ebenfalls der ResCompiler.
Ohne Define, also mit dem Namen "ANICURSOR" (oder irgendeinem anderem Bezeichner) ging es.

Aber auch bei deinem Code das genannte zweite unschöne Problem.
Man muß vorher den Cursor als Datei speichern. (auch wenn es "aktuell" einen Trick/Bug gibt, sodass man LoadImage auch aus dem RAM laden lassen kann)
-> Die Ressource selber auslesen, in Datei schreiben, von dort laden und danach die TempDatei aufräumen
-> anstatt die Ressource direkt laden lassen zu können.

Oder FindResource > LoadResource > LockResource > LoadImage
Oder TRessourceStream > Stream.Memory (ist das HGlobal) > LoadImage
Aber auch hier alles wieder "manuell".

[Aviator]

Zitat von himitsu:

Aber auch bei deinem Code das genannte zweite unschöne Problem.
Man muß vorher den Cursor als Datei speichern.

Ja das stimmt wohl. Wobei ich das jetzt nicht unbedingt als absolutes NoGo bezeichnen würde. Eine temporäre Datei beim Start irgendwo anzulegen die nach dem Laden des Cursors sofort wieder gelöscht wird finde ich persönlich jetzt nicht so schlimm.

Nachteil beim Ablegen einer Datei ist natürlich, dass dadurch der Programmstart u.U. verzögert wird. Es handelt sich zwar nur um eine sehr kleine Datei, aber dennoch muss ja alles im NTFS System gemacht werden was auch bei einer großen Datei der Fall wäre.

Bis jetzt hatte ich aber noch keinen Fall, in dem das Programm "ewig" zum Starten gebraucht hätte. Man müsste da höchstens mal mit dem QueryPerformanceCounter() messen wie lange das dauert. Mit einem TickCount würde das wahrscheinlich nicht ersichtlich werden.

[himitsu]

Es wird eine Komponente für "fremde" Programme und in sowas schreibe ich ungern Dateien einfach so irgendwo auf die Platte.

[Aviator]

Zitat von himitsu:

Es wird eine Komponente für "fremde" Programme und in sowas schreibe ich ungern Dateien einfach so irgendwo auf die Platte.

Tja, dann musst du wohl bei deinem "Hack" bleiben.

[himitsu]

Mir scheint es ja eher ein "Bug" in den beiden RessourcenCompilern vom Delphi zu sein ... war mir nur nicht sicher, ob es nicht doch richtig so ist.

[Uwe Raabe]

Das Beispiel in Berlin habe ich direkt mit dem Menüpunkt Projekt - Ressourcen und Bilder hinzugefügt und den Typ einfach auf CURSOR geändert. Das führt zu folgender RC-Datei:

AniCursor CURSOR "C:\\WINDOWS\\Cursors\\aero_working.ani"

Der Code zum Laden sieht dann so aus:

Delphi-Quellcode:

procedure TForm126.FormCreate(Sender: TObject);
var
  cur: HCURSOR;
begin
  cur := LoadCursor(HInstance, 'AniCursor');
  Screen.Cursors[1] := cur;
  Cursor := 1;
end;

Als Resourcen-Compiler verwende ich den mitgelieferten brcc32.exe Dateiversion 50.4.227.0.