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

• #2097 Tomi_78 aktív tag

  Új Válasz 2023-05-16 11:13:42 #2097

  Ú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

  

  Tomi_78

  aktív tag

  A fenébe is, valami nem jó, mert ezt a géppuskáskatona képet nem jeleníti meg, és nem értem, hogy miért?
  Ez a kód:
  gpkatallkcs:=TBitmap.Create;
  gpkatallkcs.LoadFromFile('kepei/egysegek/gpkat/gpkatall.bmp');
  kcsbal:=0;
  for i:=0 to 7 do
begin
gpkatallkep[i]:=TBitmap.Create;
    t1.left:=kcsbal; t1.top:=0; t1.right:=kcsbal+round(gpkatallkcs.width/8); t1.bottom:=gpkatallkcs.height;
    t2.width:=t1.width; t2.height:=t1.height;
    gpkatallkep[i].Canvas.CopyRect(t2,gpkatallkcs.Canvas,t1);
    gpkatallkep[i].transparent:=true;
    if i<7 then
       kcsbal:=kcsbal+round(gpkatallkcs.width/8)
    else
        kcsbal:=0;
  end;
  gpkatallkcs.Free;

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