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

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

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

Помогите с сеткой для графика.

Cr@sh © (2002-08-16 09:21:00)
Добрый день, Ув. мастера.
Вопрос заключается в следующем:
имеются 2 Image`a расположенные друг над другом, на первом(нижнем) строится график, который должен сохранятся в битмап. А теперь вопрос: как сделать так, чтобы на втором(верхнем) Image`e строилась сетка для графика, без белого фона, т.е. чтобы сквозь нее было видно Image1.
P.S. Сетка в сохраненном битмапе НЕ нужна.
Если есть другие предложения по построению сетки, пожалуйста, напишите.
Заранее спасибо.

Cr@sh (2002-08-16 10:38:00) [1]
>MBo
Все MBo, спасиба огромное, до меня дошло, как по другому сделать с маленькой картинкой на большом имэйдже, и чтоб еще и просвечивало:
procedure TForm1.ElPopupButton1Click(Sender: TObject); var i:integer; b:Tbitmap; begin image1.picture.loadfromfile("C:\7d0.bmp"); image2.canvas.Pen.color:=clYellow; image2.Transparent:=True; b:=Tbitmap.Create; b.LoadFromFile("C:\sh\setka.bmp"); image2.Canvas.Brush.Bitmap:=b; image2.Canvas.FillRect(image2.ClientRect); end; end.

Cr@sh (2002-08-16 10:25:00) [2]
То есть че значит Чарт и че с ним ты предлагаешь делать?
Сетку рисовать или все вместе?

Cr@sh (2002-08-16 10:23:00) [3]
щас попробую...

MBo (2002-08-16 10:22:00) [4]
а TChart не устроит?

Cr@sh (2002-08-16 10:18:00) [5]
Нет, только сетка.
И еще если во второй загрузить битмап с рисунком сетки и задать транспарент колор cl***, тогда канает.
Только есть маленькая проблемка с этим, мне надо чтобы имэйдж 1 был 4500 в ширину...тогда битмап будет весить до х и больше.
Так что мне делать?

MBo (2002-08-16 10:10:00) [6]
может, ты, кроме сетки, еще что-то рисуешь во втором?

MBo (2002-08-16 10:09:00) [7]
5

Cr@sh (2002-08-16 10:08:00) [8]
>MBo
Неа, опять закрывает. Че делать?
У тебя кая версия Делфи? У меня 6.

MBo (2002-08-16 09:56:00) [9]
у меня не закрывается
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
image1.picture.loadfromfile("e:\4.bmp");
image2.canvas.Pen.color:=clYellow;
image2.Transparent:=True;
for i:=1 to 4 do begin
image2.canvas.moveto(i*(image2.width div 5),0);
image2.canvas.lineto(i*(image2.width div 5),image2.height);
end;
end;

Cr@sh (2002-08-16 09:35:00) [10]
>MBo
Делал, все равно после прорисовки сетки, нижний Image закрывается.

MBo (2002-08-16 09:30:00) [11]
верхний сделай Transparent

Наверх

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