Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Media";
Текущий архив: 2003.01.09;
Скачать: [xml.tar.bz2];

Вниз

$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


 
MBo   (2002-09-22 09:17) [4]

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 10:01) [5]

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



Страницы: 1 вся ветка

Форум: "Media";
Текущий архив: 2003.01.09;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
14-25085
XMbIPb
2002-12-22 00:15
2003.01.09
---|Ветка была без названия|---


3-24773
nikolo
2002-12-10 11:06
2003.01.09
Как записать графический файл в MS SQL?


8-24980
IgorZu
2002-09-19 14:48
2003.01.09
Работа с MP3


1-24962
Max79
2002-12-26 17:56
2003.01.09
Как принудительно показать Hint ?


1-24840
Alathorne
2002-12-27 14:13
2003.01.09
RXLib For





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский