Hirdetés

2024. május 2., csütörtök

Gyorskeresés

Hozzászólások

(#2107) Tomi_78 válasza vz12 (#2106) üzenetére


Tomi_78
tag

Köszi a választ, de egyelőre még nem jó. :(
Az imént próbáltam ezzel is a FreeAndNil() helyett: delete(egysegek,edb,1); de hiába - bár most más Assembly utasítást dobott fel.
A másik, bár kevésbé lényeges probléma, hogy ha ez a kóddarab van a FormPaint-ban:
if egysegdb>0 then
          begin
            for edb:=0 to egysegdb-1 do
            begin
              if egysegek[edb].letezik=true then
              begin
             if egysegek[edb].tulaj='jatekos' then
                  canvas.brush.Color:=clBlue
               else
                   canvas.brush.Color:=clYellow;
               radarobj.left:=2+Round(egysegek[edb].xhely / (palyakep.canvas.width / opanelkep.width+2));
               radarobj.top:=radyeltol+Round(egysegek[edb].yhely / (palyakep.canvas.height / opanelkep.width+6));
               radarobj.right:=radarobj.left+2;
               radarobj.bottom:=radarobj.top+2;
               canvas.rectangle(radarobj);
              end;
            end;
end;
akkor miért mindig kék színű lesz a radarobj téglalap? Még a nem játékos irányította egységeknél is? Mert azoknál sárga kellene, hogy legyen.

Copyright © 2000-2024 PROHARDVER Informatikai Kft.