Скачать: CL | DM;

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

← →
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]

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 не устроит?

---

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

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

---

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

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

---

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

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

---

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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.011 c