$f

← →
Алексей Ким © (2002-09-21 19:17) [0]

bm=tbitmap(width=100,height=100)
cl-integer;

BM.Canvas.Pen.Color := $00FFFFFF;
cl := $0000FFFF div ( BM.Height ) ;
for X := 3 to BM.Height - 3 do
begin
BM.Canvas.Pen.Color := BM.Canvas.Pen.Color - cl;
BM.Canvas.MoveTo ( 3, X);
BM.Canvas.LineTo ( BM.Width - 3, X );
end;
не работает
BM.Canvas.Pen.Color := $00FFFFFF;
cl := $0000FFFF div ( BM.Height -$F ) ;
for X := 3 to BM.Height - 3 do
begin
BM.Canvas.Pen.Color := BM.Canvas.Pen.Color - cl;
BM.Canvas.MoveTo ( 3, X);
BM.Canvas.LineTo ( BM.Width - 3, X );
end;
работает но не дорисовывает...

в чем трабла?

ЗЫ:...только не бейте сильно я с графикой не очень дружу

← →
Алексей Ким © (2002-09-21 19:21) [1]

pss. первый вариант не не работает а делает мурню
x-integer

← →
MBo © (2002-09-21 23:28) [2]

Оба варианта работают, один выдает одну мурню, второй - другую мурню. Какая именно мурня нужна, ты не удосужился пояснить.

← →
Алексей Ким © (2002-09-22 08:17) [3]

ээ... сори по идее должна выдавать градиент на BM

procedure TForm1.Button1Click(Sender: TObject);
var i,w,h:integer;
r,g,b:byte;
bm:tbitmap;
startcol,endcol:tcolor;
r0,r1,g0,g1,b0,b1:byte;
rScale,gscale,bscale:Double;
begin
w:=image1.width;
h:=image1.height;
bm:=tbitmap.create;
bm.width:=W;
bm.height:=h;
StartCol:=$00FF00;
EndCol:=$FF00FF;
r0:=GetRValue(StartCol);
g0:=GetGValue(StartCol);
b0:=GetBValue(StartCol);
r1:=GetRValue(EndCol);
g1:=GetGValue(EndCol);
b1:=GetBValue(EndCol);
rscale:=(r1-r0)/(h-1);
gscale:=(g1-g0)/(h-1);
bscale:=(b1-b0)/(h-1);
with bm.canvas do
for i:=0 to h-1 do begin
r:=r0+Trunc(i*rscale);
g:=g0+Trunc(i*gscale);
b:=b0+Trunc(i*bscale);
Pen.Color:=RGB(r,g,b);
MoveTo(0,i);
LineTo(w,i);
end;
image1.picture.assign(bm);
bm.free;
end;

спасибо большое

$f Найти похожие ветки