Перерисовка на Image

[SERG1980]

Суть такова. На форме есть имидж с выравниваем по всей площади. При нажатии на кнопку на имидже отрисовывается 16 битмапов 4*4 (шаг по оси Х и оси Y зависит от ширины и длины имиджа (соответственно и от размеров формы). После увеличиваем размер формы нажимаем на кнопку, а так как шаг между битмапами изменился то все я их увидеть не могу ПОЧЕМУТО. Как сделать чтобы видимая облать канвы соответствовала размеру имиджа

[Stilet]

Чет не очень понял вопрос, но из того что понял и представил полагаю что StretchDraw поможет

[mutabor]

Очень похоже на баг с перерисовкой, НО это же имидж, к-рый в ручной перерисовке не нуждается.
Скорее всего неправильный расчет координат для отрисовки.

p.s. без кода больше сказать ничего не могу

Как сделать чтобы видимая облать канвы соответствовала размеру имиджа

она ему всегда соответствует

[SERG1980]

вот эта процедура
procedure DrawVBV(Image:TImage;n:integer;type VBV:String);
var zazorx,zazory,row,col,a,b:integer;
VBV:TBitMap;
R:Trect;
j: Integer;
i: Integer;
begin
image.canvas.fillrect(image.canvas. cliprect);
VBV:=TBitMap.Create;
VBV.LoadFromFile(typeVBV);
form1.Edit3.Text:= inttostr(image.Canvas.ClipRect.Righ t);
if n<8 then col:=n else if (n in[8..16]) then col:=4 else col:=6;
row:=round(n/col);
zazorx:=trunc((Image.Width-(VBV.Width*col))/(col+1));
zazory:=trunc((Image.Height-(VBV.Height *row))/(row+1));
form1.Edit2.Text:=inttostr(zazorx)+ ' '+inttostr(zazory);
for j:=1 to row do
begin
a:=zazorx;
b:=zazory+((j-1)*(VBV.Height+zazory));
for i:=1 to col do
begin
//r:=Bounds(a,b,VBV.Width,VBV.Height) ;
Image.Canvas.Draw (a,b,VBV);
a:=a+zazorx+VBV.Width;
end;
end;
VBV.Free;
end;

шаг между картинками расчитывается правильно (складывал ширину картинок и шаг между ними и результат получался равный ширине имижда)
Глянте проект

[Stilet]

Серж, опиши задачу. По-моему все решить можно гораздо проще

[mutabor]

Сейчас проект скачаю посмотрю

[SERG1980]

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

Серж, опиши задачу. По-моему все решить можно гораздо проще

Пусть будет отрисовка битмапов при разных размерах формы и соответственно имиджа

[_Dmitry]

Изменяй вручную размер Bitmap в Image, при изменении размера формы

procedure TForm1.FormResize(Sender: TObject);
begin
  Image1.Picture.Bitmap.Width:=Image1.Width;
  Image1.Picture.Bitmap.Height:=Image1.Height;
end;

Имидж служит для отображения картинок, поэтому размер Bitmap равен размеру картинки или первоначальному размеру Имиджа, если картинка не загружена. Изменяя размер Image, вы не меняете размер картинки, поэтому размер Bitmap при этом также не меняется.
У вас "на форме есть имидж с выравниваем по всей площади", изменяя размер формы, вы меняете размер Имиджа но не Bitmap.

[mutabor]

Раз уж ты пытался перерисовывать имидж, что делать необязательно, то можешь смело использовать PaintBox, баг исчезнет.
Или как Дмитрий сказал. Почему то второй раз в имидже битмап сам уже не тянется, хотя процедура вызывается та же.

[SERG1980]

Спасибо Dmitry проблема решена