Увеличение, уменьшения Bitmap

[Mickle]

Привет всем!
Не получается сделать чтобы при нажатие одной кнопки увеличивался масштаб изображение BitMap которое находится в Image, а при нажатие на вторую кнопку уменьшался масштаб изображение.
У меня листинга не так как я даже не представляю как это сделать
программированием я только начал занематься.
Ппомогите кто может пожалуйста
Заранеи благодарю

[mihali4]

А как вы пытались делать? Где листинг программы?
Задача поставлена крайне некорректно.
То ли размер должен изменяться, то ли масштаб, то ли что-то еще...
Может, вы хотите соорудить лупу, т.е. увеличительное стекло?
Формулируйте свои мысли так, чтобы их и другие могли понять...

нужноимено когда чтонибуть нарисовал на Image или когда открыл Bmp файл изображение которое находится в Canve увеличивалось лтбо уменьшалось

М-м-д-ааа... Ничуть понятнее не стало...

[RSLoader]

Если речь идёт о масштабе изображения, то можно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Stretch:=true;
Image1.Width:=Image1.Width+10;
Image1.Height:=Image1.Height+10;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Stretch:=true;
Image1.Width:=Image1.Width-10;
Image1.Height:=Image1.Height-10;
end;

[Mickle]

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

Если речь идёт о масштабе изображения, то можно так:

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Stretch:=true;
Image1.Width:=Image1.Width+10;
Image1.Height:=Image1.Height+10;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Image1.Stretch:=true;
Image1.Width:=Image1.Width-10;
Image1.Height:=Image1.Height-10;
end;

нет так не получается нужноимено когда чтонибуть нарисовал на Image или когда открыл Bmp файл изображение которое находится в Canve увеличивалось лтбо уменьшалось
Пробывал и даже так

procedure resizebmp(var bitmp: tbitmap; nw, nh: integer);
var
tmp: tbitmap;
prect: trect;
begin
//инициализация дополнительного битмапа
tmp := tbitmap.create;
//установка его размеров
tmp.width := nw;
tmp.height := nh;
prect := rect(0,0, nw, nh);
//копирование основного битмапа в дополнительный с новыми размерами
tmp.canvas.stretchdraw(prect, bitmp);
//присваивание дополнительного битмапа основному
bitmp.assign(tmp);
tmp.free;
end;
Тоже не получилось помогите Пожалуйсто
Заранеи благодарю...

[Virtson]

вобщем я тоже ничего не понял..
положите свой код,
и 2 примера картинки как есть и как надо