Forum: Object-Pascal / Delphi-Language
by himitsu,
5. Jan 2010
eigentlich sollte sich TImage diese Refreshnachricht selber schicken, wenn das Bild geändert wird, aber versuchen kann man es dennoch mal
ja, wenn jetzt das Bild nur verschwindet, dann stimmt wohl irgendwas hiermit nicht:
galier.GetBitmap(i,Char.Picture.Bitmap);
Forum: Object-Pascal / Delphi-Language
by himitsu,
5. Jan 2010
Dann sieh nochmal genauer hin und prüfe mal nach, was dein Code ohne dieses BEGIN macht,
denn dein Code macht quasi dieses hier:
procedure TForm2.Time_GalierTimer(Sender: TObject);
begin
if (i < 6) then
begin
Memo1.Lines:='Titmer_galier on';
galier.GetBitmap(i,Char.Picture.Bitmap);
Memo1.Lines:='galier_pic'+IntToStr(i);
i:=i+1;
Forum: Object-Pascal / Delphi-Language
by himitsu,
5. Jan 2010
jetzt siehst du mal, wozu eine ordentliche Einrückung gut ist,
denn dann kommt bei dem Code dieses raus
procedure TForm2.Time_GalierTimer(Sender: TObject);
begin
if(i < 6) then
begin
Memo1.Lines:='Titmer_galier on';
galier.GetBitmap(i,Char.Picture.Bitmap);
Memo1.Lines:='galier_pic'+IntToStr(i);
i:=i+1;