Thumbnail und Text darstellen

[NetSonic]

That's it!

Mit TDBCtrlGrid kann ich genau das machen! Cool. Hab mich immer schon gefragt, für was die da ist...
Jetzt weiß ich es. Nur wie kann ich jetzt noch das Bild laden, welches ja nicht in der DB liegt. Hab ja nur die Pfadangabe...


Hab's schon gefunden. Im OnPaintPanel hab ich das untergebracht und es läuft super!



Jetzt muss ich nur noch wissen, wie ich dem CtrlGrid beibringe, beim Drehen des Mausrades zu scrollen?!?! Gibt es da einen Trick?

Ja, den gibt es... hab auch das selber hinbekommen:

Delphi-Quellcode:

procedure AppMessage(var Msg: TMsg; var Handled: Boolean);
begin
      if Msg.message = WM_MOUSEWHEEL then
      begin
           if Screen.ActiveControl is TDBCtrlGrid then
           begin
                Msg.message := WM_KEYDOWN;
                Msg.lParam := 0;
                if Msg.wParam > 0 then
                   Msg.wParam := VK_UP
                else
                    Msg.wParam := VK_DOWN;
                Handled := False;
           end;
      end;
end;

Alles schön!