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

• #2064 Tomi_78 aktív tag

  Új Válasz 2022-07-22 15:26:06 #2064

  Ú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

  No szóval, most így sikerült úgy-ahogy megoldanom:
  if vizdb>0 then
  begin
       for i:=1 to vizdb-1 do
       begin
            if random(100)=1 then
            begin
              for vsz:=viztomb[i,0] to viztomb[i,0]+palyakep.width div 8 do
                  for vm:=viztomb[i,1] to viztomb[i,1]+palyakep.height div 8 do
                  begin
                       if (random(100)=1) and (palyakep.canvas.Pixels[vsz,vm]=clBlue) then
                       begin
                         palyakep.Canvas.Brush.Color:=clWhite;
                         palyakep.canvas.fillrect(vsz,vm,vsz+1,vm+1);
                       end
                       else if (random(100)=1) and (palyakep.canvas.Pixels[vsz,vm]=clWhite) then
                       begin
                         palyakep.Canvas.Brush.Color:=clBlue;
                         palyakep.canvas.fillrect(vsz,vm,vsz+1,vm+1);
                       end;
                  end;
            end
            else Continue;
       end;
  end;De valamiért gyanúsan sok fehér képpontot tesz ki, úgyhogy még gondolkodom ezen az egészen...

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