var
i,i2,o : integer;
begin
progressbar1.Max := image1.Width;
for i:=0 to image1.Width do
beginpoczątek 2
progressbar1.Position := i;
for i2:=0 to image1.Height do
beginpoczątek 1
*process alias list
for o:=0 to memo1.lines.count - 1 do *check alias list
begin
if image1.Canvas.Pixels[i,i2] = stringtocolor(memo1.lines[o]) then
begin
end else
begin
image1.Canvas.Pixels[i,i2] := speedbutton15.Font.Color;
end;
end;*end of alias list
end; *koniec 1
end; //koniec 2
progressbar1.Max := 100;
progressbar1.Position := 0;
end;
teraz tak:
wlanijcie do memo takie linijki:
clblack
clred
teraz ustawice sobie font w speedbuttonie (kolor) na clmaroon; :)
następnie zrobicie sobie jakis mały obrazek (100x100) i tam narysujcie czerwoną kreskę i gdzieś indziej czarną, potem np. narysujcie zielone kółko. a jako background w tym obrazku dajcie różowy :]]]]]]]]]]]]
Teraz jebn***ie ten obrazekdo IMAGE1 i sprawdzcie tamtą procedurę :)
Powinno zostać tylko: czarna i czerwona kreska a tło powinno być bordowe czy jakoś tak (clmaroon).
TERAZ PYTANIE - DLACZEGO TO NIE DZIAŁA???????????????????????????????