Hallo, ich habe volgenes Problem, ich möchte ein Bild zur Laufzeit Ändern Lassen...
Die Bilder werden Volgendermaßen im Stringgrid Gezeichnet
Delphi-Quellcode:
procedure Tstandart_frame_form.BuddyListDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var
Value_Split: TExplode_Array;
begin
// Bilder zeichnen
setlength(Value_Split,length(Explode('<n|#|p>', my_buddies[ARow])));
Value_Split:= Explode('<n|#|p>', my_buddies[ARow]);
if Acol = 0 then begin
if Value_Split[2] = 'OFFLINE' then BuddyList.Canvas.Draw(Rect.Left+4,Rect.Top+2,offline_pic.Picture.Bitmap)
else if Value_Split[2] = 'Abwesend' then BuddyList.Canvas.Draw(Rect.Left+4,Rect.Top+2,abwesend_pic.Picture.Bitmap)
else if Value_Split[2] = 'Versteckt' then BuddyList.Canvas.Draw(Rect.Left+4,Rect.Top+2,offline_pic.Picture.Bitmap)
else BuddyList.Canvas.Draw(Rect.Left+4,Rect.Top+2,online_pic.Picture.Bitmap);
end;
// Ende Bilder zeichnen
end;
Nun möchte ich bei einem Bestimmten Ereignis, das diese Procedure noch einmal durchläuft....
nur weiß ich nicht wie ich es Bewerkstelligen soll. da diese Procedure ja viele werte hat
oder kann mir jemand sagen, wie ich einfach nur ein bild in einer bestimmten Zelle zur laufzeit ändern kann, ohne das alles durchläuft.
MfG Real_Thunder