Ú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.

• #675 Szalma őstag Diskcopy #669

  Új Válasz 2005-03-11 13:36:04 #675

  Ú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

  

  Szalma

  őstag

  válasz Diskcopy #669 üzenetére

  (Jónak tűnik. Valami transparent kapargatás kellene neki, de nem tudok többet fejből, szerencsére nincs delfi a gépemen már ~2 éve... )
  
  Szeretettel:
  Szalma
  
  ui.: Jaja... Bitmap mag kapargatás megvan... Lehet lejjebb is menni, de nem éri meg...
  
  szerk.: Szerintem tök jó, ha belefordulnak a képek. Külső resource kicsit ciki. Utána egy UPX-el rámenni, és kicsi lesz.
  
  
  [Szerkesztve]

• #672 killerjohn addikt Diskcopy #669

  Új Válasz 2005-03-11 13:31:02 #672

  Ú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

  az algoritmus jó (persze jobban el tudnám képzelni - ha runtime töltöd be a képeket, akkor nem nő meg a .exe mérete pl)
  
  a transparentre meg van megoldás.

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