Delphi programozás - Szoftverfejlesztés fórum

üzenetek

hozzászólások


Tomi_78
(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? :F :W
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;

[ Szerkesztve ]

üzenetek