Új hozzászólás Aktív témák

• #676 killerjohn addikt Diskcopy #669

  Új Válasz 2005-03-11 13:36:24 #676

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  killerjohn

  addikt

  válasz Diskcopy #669 üzenetére

  Procedure ClearBitmap(Btm: TBitmap);
  Begin
  With Btm.Canvas Do
  Begin
  Pen.Color := clWhite;
  Brush.Color := clWhite;
  Rectangle(0,0,Btm.Width,Btm.Height);
  End;
  End;
  
  
  itt jön a Tiéd :
  
  Var Img : TImage;
  
  For c := 1 to 5 Do
  Begin
  dobott[c]:=random(5)+1;
  Img := Timage(Form1.FindComponent('Image'+IntToStr(c)));
  ClearBitmap(Img.Picture.Bitmap);
  Imagelist2.GetBitmap( dobott[c]-1, Img.Picture.Bitmap);
  Img.Invalidate;
  End;
  
  próba, kemence.

Új hozzászólás Aktív témák