Обновить Timage

[ScorpioN_T]

Ситуация такая...
Графичестикй редактор.
Нашел я на форумах два проекта, решил их совместить...

итак...
На форме 1 есть кнопка "Открыть в редакторе" - она проверяет файл является ли "BMP" или нет. Если ДА то грузит форму с РЕДАКТОРОМ.
Картинка как положено открывается и редактируется по необходимости.

Проблема.
Когда хочешь сделать "Новый лист" то выходит что на форме картинка исчезает и больше не появляется, если не загрузить другую картинку.

Или проще как мне В TImage обнулить данные, чтоб далее можно было работать с канвой.

Как я понимаю где то проблема с канвой или BitMap
Исходник ниже...

З.Ы. Я мог не совсем правильно постваить вопрос, просто немного подустал...

[Neeter]

А вы там пишете:

picture := nil; //Уничтожаете изображение

Чтобы очистить канву надо писать примерно так:

picture.canvas.fillrect(picture.canvas.cliprect); //Заполняем Image

[ScorpioN_T]

вопрос еще один появился...

теперь после изменения, другая проблема
Не изменяется картинка, даже высота и длина TImage

ЧТО делать...

with graphform.image1 do begin
canvas.fillrect(canvas.cliprect); //Заполняем Image
height:=spinedit1.Value;
Width:=spinedit2.Value;
canvas.pen.color:=clwhite;
canvas.rectangle(0,0,width,height);

Лист не меняет размеров,
до этого он хотя бы ЛИСТ чистил и длину и высоту подгонял под мои значения, теперь НЕ ХОЧЕТ

[Neeter]

Может перестановка поможет

with graphform.image1 do begin
height:=spinedit1.Value;
Width:=spinedit2.Value;
canvas.fillrect(canvas.cliprect); //Заполняем Image
canvas.pen.color:=clwhite;
canvas.rectangle(0,0,width,height);
end;

[ScorpioN_T]

неа
не прет даже этот код

with graphform.image1 do begin
height:=1;
Width:=1;
canvas.fillrect(canvas.cliprect); //Заполняем Image
height:=spinedit1.Value;
Width:=spinedit2.Value;
canvas.pen.color:=clwhite;
canvas.rectangle(0,0,width,height);
end;

размеры от картинки НЕ меняется
После нажатия на кнопку чистит лист, но размеры остаются.

[Neeter]

Попробуйте вот так:

with graphform.image1 do begin
height:=spinedit1.Value;
Width:=spinedit2.Value;
InValidateRect(Canvas.handle,NIL,True);
canvas.pen.color:=clwhite;
canvas.rectangle(0,0,width,height);
end;

Или так:

with graphform.image1 do begin
height:=spinedit1.Value;
Width:=spinedit2.Value;
PatBlt(Canvas.Handle, 0, 0, Width, Height, WHITENESS); 
canvas.pen.color:=clwhite;
canvas.rectangle(0,0,width,height);
end;

[ScorpioN_T]

Второй способ работает лчуше, но размеры не изменются...

а нельзя как нить по другому...
ну например убить картинку и заново создать канву и т.д. ?

[uberchel]

Вот!

with graphform.image1 do begin
picture:= nil;
picture.Create;
AutoSize:=false;
height:=spinedit1.Value;
Width:=spinedit2.Value;
canvas.pen.color:=clwhite;
canvas.rectangle(0,0,width,height);
end;
close;
end;

[ScorpioN_T]

Заработало

Весы по любому бы нажал бы, всё таки как никак откликнулись !!!!