Форум: "Media";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
ВнизПомогите с сеткой для графика. Найти похожие ветки
← →
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 вся ветка
Форум: "Media";
Текущий архив: 2002.12.02;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.024 c