Cursor Resource Einbinden klapt nicht warum ?

[madina]

Hallo,

ich habe versucht mit Resource Workshop V4.5, 5 verschiedene Cursors erstellt und in ein MyCursor.rc abgespeichert.

Dann mit brcc32.exe MyCursor.rc kompiliert
und ohne Probleme mir MyCursor.res ausgegeben.

{$R MyCursor.res} in mein Prog eingebunden und kompiliert keine Probleme.

dann in FormCreate wie folgt aufgerufen:
const cuHand= 1;
cuFaust=2;
Screen.Cursors[cuHand] := LoadCursor(HInstance, 'Cursor_1');
Screen.Cursors[cuFaust]:= LoadCursor(HInstance, 'Cursor_2');

PaintBox1.Cursor:= cuFaust;

Frage ?:
er ändert den PaintBox1.Cursor überhaupt nicht, obwohl er keine Fehler ausgibt

warum??

mfg

[chaosben]

Zitat von Die Delphi-Hilfe:

Deklarieren Sie eine Cursor-Konstante, die nicht mit vorhandenen Cursor-Konstanten kollidiert.

1 und 2 kollidieren bei dir scheinbar mit einem bestehenden Cursor.
So müsste es theoretisch immer funktionieren:

Delphi-Quellcode:

var
  crMeine : Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  crMeine := Screen.CursorCount + 1;
  Screen.Cursors[crMeine] := LoadCursor(HInstance, '3DWMOVE');
  PaintBox1.Cursor := crMeine;
end;

[turboPASCAL]

Eigentlich ist an dem gezeigten Quelltext, hier mal mit delphi-Tags

Delphi-Quellcode:

const
  cuHand  = 1;
  cuFaust = 2;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[cuHand] := LoadCursor(HInstance, 'Cursor_1');
  Screen.Cursors[cuFaust]:= LoadCursor(HInstance, 'Cursor_2');

  PaintBox1.Cursor := cuFaust;
end;

nichts falsch.


Alle Systemcursors haben einen Wert kleiner oder gleich Null.
Dem zufolge sollte das Beispiel funktionieren.

Was ich mir vorstellen kann ist, das die Cursors nicht geladen wurden.
Einfach mal wie folgt überprüfen:

Delphi-Quellcode:

const
  cuHand  = 1;
  cuFaust = 2;

procedure TForm1.FormCreate(Sender: TObject);

  function LoadCursorFromResource(Instance: hInst; ResName: PChar): HCURSOR;
  begin
    Result := LoadCursor(Instance, ResName);
    if Result = 0 then
      ShowMessage(format('Cursor "%s" konnte nicht geladen werden.', [ResName]));
  end;

begin
  Screen.Cursors[cuHand] := LoadCursorFromResource(HInstance, 'Cursor_1');
  Screen.Cursors[cuFaust] := LoadCursorFromResource(HInstance, 'Cursor_2');

  PaintBox1.Cursor := cuFaust;
end;

Ohne diese Abfrage über eine Hilfsvariable wird im Falle das der Cursor nicht
geladen bzw. in der Resource gefunden wurde keine Fehlermeldung erzeugt.
Der Rückgabewert von LoadCursor ist im Fehlerfall Null (0) das heisst der
Defauldcursor (IDC_ARROW) würde geladen / angezeigt.

[madina]

Hallo,

wie richtig vermutet er liest den Cursor nicht richtig.

Ich habe versucht einzeln ein *.cur nach *rc zu speichern und dann brcc32.exe *.rc *.res ausgeführt. Er kann aber einzeln lesen.

Aber wie kann ich alle meine Cursors zusammen in eine *.res datei packen ??

mfg

[lbccaleb]

Hallo

Z.B. so:

Cursor einbinden

[madina]

Hallo,

nun habe ich geschafft alle meine *.cur Dateien in einem *.rc uns danach in *.res zu kompilieren und in mein Application erfolgreich einbinden und jeden Mauszeiger einzeln je nach Wunsch ansprechen und darstellen.

nächstes Problem:

Wenn ich in OnMouseDown(), OnMouseMove() und OnMouseUp() den Screen.Cursor:= cur... setze ist alles kein Problem, wenn ich nur den Mauszeiger für PaintBox1.Cursor:= cur... ändere, ändert sich der Mauszeiger unter gleichen o.g. Bedingungen nicht wie gewünscht alle richtig ansprechen und darstellen.

warum ??

mfg

[turboPASCAL]

Könntest du mal dein Programm/Source als Zip anhängen ?

[madina]

Hallo,

wie gewünscht der Sourcedaten

nur bei Zuweisung der Cursorzeigern beim PaintBox1.Cursor klappe nicht alle Zeigerzuweisungen.

mfg

[turboPASCAL]

Das Problemchen ist das der Faustcursor immer wieder auf den Handcursor gesetzt wird.

Genau an dieser Stelle:

Delphi-Quellcode:

procedure TfrmPrintPreview.sbHandLupeClick(Sender: TObject);
begin
  if (sbHandLupe.Down) then PaintBox1.{Screen}Cursor:= crLupe
  else PaintBox1.{Screen}Cursor:= crHand;
end;

sbHandLupeClick wird in PaintBox1MouseUp aufgerufen.

[madina]

Hallo,

solange ich den linken MouseTaste gedrückt halte und Mouse bewege sollte er eigentlich keine Fauständerung geben (was sich in Screen.Cursor ganz OK verhält) in der OnmouseMove. Wenn ich los lasse dann gibt es eine Mouseänderung zum crHand.

mfg