Kako v Image1 ozadje narediti belo?

Vse o grafiki, canvasu, directdraw, itd.
Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Kako v Image1 ozadje narediti belo?

OdgovorNapisal/-a Fortuna » 30.06.2011 13:23:38

Koda: Izberi vse

procedure TForm1.Button1Click(Sender: TObject);
var yy,ii:integer;
begin
Image1.Canvas.Pen.Color:=clwhite;
for  ii:=1 to Image1.Width   do
  begin
   for  yy:=1 to Image1.Height   do
      begin
       Image1.Canvas.LineTo(ii,yy);
      end;
  end;
end;


Takole ga znam, vendar je to zelo počasno.

edit by admin: hvala, ker uporabljaš code značko

mig640
Prispevkov: 59
Pridružen: 03.01.2008 11:36:54

Re: Kako v Image1 ozadje narediti belo?

OdgovorNapisal/-a mig640 » 30.06.2011 14:22:08

Koda: Izberi vse

procedure TForm12.Button1Click(Sender: TObject);
var Row, Ht: Word ;
begin

Ht:=( Image1.Height + 255 ) div 256;
for Row := 0 to 255 do
with Image1.Canvas do begin
//   Brush.Color :=RGB(0, 0, 0) ; // Its Yellow
   Brush.Color:=clWhite;
   FillRect(Rect(0, Row * Ht,ClientWidth, (Row + 1) * Ht)) ;
end;


edit by admin: hvala, ker uporabljaš code značko

Fortuna
Prispevkov: 1097
Pridružen: 26.06.2004 09:59:52

Re: Kako v Image1 ozadje narediti belo?

OdgovorNapisal/-a Fortuna » 01.07.2011 09:25:36

Hvala.
To dela zelo hitro.
lp


Vrni se na

Kdo je na strani

Po forumu brska: 0 registriranih uporabnikov in 1 gost