Создание координатной сетки на компоненте Image

[Thasraney]

Сложность заключается в том, что прога после своей работы(создания блок-схемы) должна сохранять получившееся изображение в файл. Если тупо с помощью канвы отображать сетку то соответственно она тоже будет сохраняться в файл. Пробовал это устроить с помощью двух Image находящихся друг на друге(один из них прозрачный) но нифига.

[-=<[Evklidd]>=-]

А почему бы просто не прятать координатную сетку при нажатии на кнопку сохранить?

[mutabor]

Пробовал это устроить с помощью двух Image находящихся друг на друге(один из них прозрачный) но нифига.

Неправильно прозрачность выставлял, прозрачность имиджа действует если в его канве битмап, и как раз на него она и действует. Если свойства прозрачности не менять, за прозрачный цвет береться угловой пиксель (то ли верхний левый, то ли нижний).

А вообще сетку надо не тупо на канве отображать, а буфер иметь и все нормально будет. И имидж тут не особо нужен, раз такое дело. Имидж хорош когда статическую картинку нужно показать, не больше. И если использовать его, то как канву для вывода.

[Thasraney]

Сообщение от mutabor

А вообще сетку надо не тупо на канве отображать, а буфер иметь и все нормально будет. И имидж тут не особо нужен, раз такое дело. Имидж хорош когда статическую картинку нужно показать, не больше. И если использовать его, то как канву для вывода.

Чесно говоря не допонял насчет буфера приведи пример.

[mutabor]

var
Buffer, Fon, GridChart: TBitmap;

procedure FormCreate
begin 
Buffer:=TBitmap.Create; //буфер
Fon:=TBitmap.Create; //фон
GridChart:=TBitmap.Create; //коорд. сетка

//тут загрузка фона и сетки

Buffer.Assign(Fon); //битмап после создания нужно чем-то заполнить либо 
//задать размеры, кинем в него фон 
GridChart.Transparent:=True; //делаем прозрачным
//если не из файла, то еще и прозрачный цвет задать надо TransparentColor
//если из файла и ничего не менять то пр. цвет левый нижний пиксель,
//можно поменять TransparentMode, тогда цвет берется из TransparentColor
end;

procedure Draw;
begin
//тут построение графика в битмапе Fon

Buffer.Canvas.Draw(0,0,Fon);
Buffer.Canvas.Draw(0,0,GridChart);
Form1.Canvas.Draw(0,0,Buffer); //выводим изменения на экран
end;

//обработка события OnPaint формы
procedure FormPaint;
begin
Canvas.Draw(0,0,Buffer);
end;

//сохраняем график в файл без сетки
procedure SaveGraph;
begin
Fon.SaveToFile('test.bmp');
end;

[Thasraney]

Большое спасибо тебе mutabor.