Dein Projekt kann ich nicht kompilieren, da gibt's 39 Fehlermeldungen:
Zitat: |
[DCC Fehler] PeriodXtremeSHDocVw.pas(1686): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen |
Nimm's nicht persönlich, aber ich möchte dem jetzt nicht auf den Grund gehen!
jaenicke hat folgendes geschrieben : |
sprich eigentlich reicht x div 50. |
Wenn ich, wie du vorschlägst,
Image1.Canvas.Draw(X div 50, Y div 50, aIcon); angebe, wird bei jedem Klicken alles stets in der linken oberen Ecke gezeichnet, je nachdem, wo ich klicke, um einige Pixel versetzt, aber im Grunde alles links oben!
//Edit: Habe die Lösung:
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
| p := Image1.ScreenToClient(Mouse.CursorPos);
p.x := p.x div 50; p.y := p.y div 50; aIcon := TIcon.Create;
ImageList1.GetIcon(0, aIcon); Image1.Canvas.Draw(p.X * 50, p.Y * 50, aIcon);
aIcon.Free; |
Das kriege ich noch einfacher hin, mal sehen!
gedunstig war's - und fahle wornen zerschellten karsig im gestrock. oh graus, es gloomt der jabberwock - und die graisligen gulpen nurmen!