Sehr cool!
Auf dem alten Rechner hier hab ich aber Probleme mit folgendem:
Delphi-Quellcode:
// FOnMouseActivate: TMouseActivateEvent;
// FOnMouseEnter : TNotifyEvent;
// FOnMouseLeave : TNotifyEvent;
// FOnMouseWheel : TMouseWheelEvent;
Hat der Compiler angemeckert, deshalb hab ich die Events ausgebunden.
Desweiteren gabs hier auf der alten kiste ein Problem mit dem ColorFormat:
fOGLRC := CreateRenderingContext(fOGLDC, [opDoubleBuffered], 32, 16, 0, 0, 0, 0);
Musste ich auf 16 runterschrauben also nicht 24 wie von dir, ggf. sollte geprüft werden vorher was unterstützt wird?
Ich konnte nicht weiter testen, weil der Rechner hier definitiv zu lahm ist, deshalb falls nicht eingebaut, wäre ein Zoom noch sehr cool wie bei Apple wenn das Cover ausgewählt ist also mittig steht zoomt der auf Originalgröße soweit ich mich erinnere?
Ansonsten, hochachtung wirklich genial!
Grüsse
s!