Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

$f [D6, Win95/98]

Алексей Ким © (2002-09-21 19:17:00)
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-22 10:01:00) [1]
спасибо большое

MBo (2002-09-22 09:17:00) [2]
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;

Алексей Ким (2002-09-22 08:17:00) [3]
ээ... сори по идее должна выдавать градиент на BM

MBo (2002-09-21 23:28:00) [4]
Оба варианта работают, один выдает одну мурню, второй - другую мурню. Какая именно мурня нужна, ты не удосужился пояснить.

Алексей Ким (2002-09-21 19:21:00) [5]
pss. первый вариант не не работает а делает мурню
x-integer

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »