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

← →
Cr@sh © (2002-08-16 09:21) [0]

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

← →
MBo © (2002-08-16 09:30) [1]

верхний сделай Transparent

← →
Cr@sh © (2002-08-16 09:35) [2]

>MBo
Делал, все равно после прорисовки сетки, нижний Image закрывается.

← →
MBo © (2002-08-16 09:56) [3]

у меня не закрывается
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 10:08) [4]

>MBo
Неа, опять закрывает. Че делать?
У тебя кая версия Делфи? У меня 6.

← →
MBo © (2002-08-16 10:09) [5]

← →
MBo © (2002-08-16 10:10) [6]

может, ты, кроме сетки, еще что-то рисуешь во втором?

← →
Cr@sh © (2002-08-16 10:18) [7]

Нет, только сетка.
И еще если во второй загрузить битмап с рисунком сетки и задать транспарент колор cl***, тогда канает.
Только есть маленькая проблемка с этим, мне надо чтобы имэйдж 1 был 4500 в ширину...тогда битмап будет весить до х и больше.
Так что мне делать?

← →
MBo © (2002-08-16 10:22) [8]

а TChart не устроит?

щас попробую...

То есть че значит Чарт и че с ним ты предлагаешь делать?
Сетку рисовать или все вместе?

>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.

Помогите с сеткой для графика. Найти похожие ветки