Einzelnen Beitrag anzeigen

juelin

Registriert seit: 9. Mai 2006
Ort: Mannheim
107 Beiträge
 
Delphi XE5 Professional
 
#1

Stringgrid mit Bildern scrollen

  Alt 4. Mai 2019, 14:01
Hi,
ich habe Delphi XE5.
Ich habe ein Stringgrid in dem ich in Column 1 Bilder anzeige (siehe Code).

var e1bilder: array[1..99999] of string;
var e1bildnum: integer;
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var r: TRect;
var u: integer;
var t: string;
begin
if ((ARow = 0) and (ACol = 0)) then
begin
StringGrid1.RowHeights[ARow]:=32;
end else begin
if ((ARow > 0) and (ACol = 0)) then
begin
if ((e1bildnum > 0) and (ARow <= e1bildnum)) then
begin
t:=e1bilder[ARow];
u:=1;
if t <> '' then
begin
try
Image1.Picture.LoadFromFile(t);
except
u:=0;
end;
if u = 1 then
begin
r.Left:=0;
r.Right:=Image1.Picture.Width-1;
r.Top:=0;
r.Bottom:=Image1.Picture.Height-1;
Rect.Left:=0;
Rect.Right:=Image1.Picture.Width-1;
Rect.Top:=32+(ARow-1)*80+ARow;
Rect.Bottom:=Rect.Top+Image1.Picture.Height-1;
StringGrid1.Canvas.CopyRect(Rect, Image1.Canvas, r);
end;
end;
end;
end;
end;
end;

Das klappt auch ganz gut.
Nur wenn mehr Zeilen im Stringgrid sind, als auf dem Bildschirm passen,
und ich nun nach unten scrolle
dann sind die Bilder unterhalb des 1. Bildschimes weg.

Hat da jemand eine Idee.
Es gibt leider kein Ereignis "OnScroll".

Danke und Gruß
Jürgen
Jürgen Linder
  Mit Zitat antworten Zitat