Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 4. Dez 2003
  So, nach reiflicher Überlegung hab ich LoadCursorFromFile doch eingebaut:
  
  
  function CreateAniCursorFromResource(pBytes : pByte; dwSize : DWORD) : HCURSOR;
  var
  fs : TFileStream;
  td : array Of Char;
  tfn : string;
  begin
  result := 0;
• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 1. Dez 2003
  So, habs jetzt getestet. Es liegt daran, das der Cursor 256 Farben hat, die Funktion CreateIconFromResource() unterstützt aber nur max. 16 Farben. Habe noch keine Ausweg abgesehen von dem nicht so tollen LoadCursorFromFile() gefunden.
• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 30. Nov 2003
  Wenn du auf Antwort gehst ist ganz unten unter dem Textfeld die Rubrik "Attachment hinzufügen", dort klickst du auf "Durchsuchen" und wählst deine Datei aus. Danach kannst du ganz normal "Absenden".
• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 30. Nov 2003
  So, hier das funzende Beispiel im Anhang.
  
  PS: Der dritte Parameter ist nur erforderlich, wenn der Cursor in einer anderen Section als "ANICURSOR" gespeichert ist, was im Beispiel nicht der Fall ist. Bei den Sektionennamen werden übrigens nur Großbuchstaben verwendet.
• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 30. Nov 2003
  Wie wärs mit.... ausprobieren? Bei mir funzt es wunderbar.
  
  PS: Wenn man das Handle einem TIcon zuweist, wird natürlich nur das erste Bild der ANI zugewiesen, wenn man es aber tatsächlich als Cursor verwendet, wirds auch animiert.
• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 30. Nov 2003
  Hier nochmal eine optmierte Fassung, um Laufzeitfehler zu vermeiden:
  
  
  function LoadAniCursor(hInst : Cardinal; lpID : PChar; lpType : PChar = nil) : HCURSOR;
  var
  hRes : HRSRC;
  dwSize : DWORD;
  hGlob : HGLOBAL;
  pBytes : PBYTE;
  begin
• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 30. Nov 2003
  Klappts, wenn du
  
  Screen.Cursors := LoadAniCursor(hInstance, '1')); // <-- In die Zeile springt er
  
  verwendest?
• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 29. Nov 2003
  Einfach das Beispiel oben abändern:
  
  ID := 10;
  Screen.Cursors := LoadAniCursor(hInstance, MAKEINTRESOURCE(1));
• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 29. Nov 2003
  function LoadAniCursor(hInst : Cardinal; lpID : PChar; lpType : PChar = nil) : HCURSOR;
  var
  hRes : HRSRC;
  dwSize : DWORD;
  hGlob : HGLOBAL;
  pBytes : PBYTE;
  begin
  If not Assigned(lpType) then
  lpType := PChar('ANICURSOR');
• Forum: Multimedia

  Re: Animirten Cursor in exe einbinden?

    Delphi
    by scp, 29. Nov 2003
  1 ANICURSOR "appstart.ani"