Архив форумов ЦИТФорума

[-:LION:-]

Привет всем!

В моей игрушке я рисую на канве. При этом Имаджики растягиваються на неопределенные размеры и рисовать нужно точно по размерам.

Код:-----------------

iname:='img'+inttostr(i)+'_'+inttostr(j); //так будет называться имаджик
img:=(findcomponent(iname) as timage);
img.Width:=w; //ширина
img.height:=w;
img.Left:=x;
img.Top:=y;
imgcanvas(i,j,0); //процедура рисования
------------------------
Все это происходит в цикле в обработчике события ONRESIZE. Процедура imgcanvas(i,j,0) непосредственно рисует на канве учитывая ширину и высоту имаджика.

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

Надеюсь понятно объяснил.

Помогите!!! Плиз!!!

[Mytilus Galloprovincialis]

Понятно, но не очень. А что должно быть там вместо этой "прозрачности"?

[-:LION:-]

Впринципе не важно что там должно быть. Хоть что там рисуй все равно при растягивании рисуеться все как нодо а отображаеться не все как надо.

[Mytilus Galloprovincialis]

Можешь все-таки по-подробнее написать, что должно получиться и что в итоге получается?

[-:LION:-]

Имееться много (81) имаджика. В обработчике события OnResize выщитываеться ширина и высота имаджиков (все одинаковые), и изменяеться на новые знач. После этого я рисую на канве с учетом новых размеров (форма увеличилась - имаджики тоже увеличились). Рисуться все как надо, но место которое добавилось к имаджику остаеться прозрачным, хотя по событию OnMouseMove я могу определить что имаджик действительно изменил свои размеры. Данная проблема появляеться когда сильно растягиваю форму на больших расширениях.

[MG_Togliatty]

[-:LION:-]

Выглядит так:

// img_ris имаджмк на котором рисую
img_ris:=timage.Create(panel1);
img_ris:=(findcomponent('img'+inttostr(ci)+'_'+inttostr(cj)) as timage);
// тут определяю что и как рисовать
tip:=a[ci,cj] div 10;
ch:='';
case tip of
0: begin
if z=0 then begin
bg_col:=$dcf8ff;
bord_col:=$94d6ff;end
else begin
bg_col:=$94d6ff;
bord_col:=$dcf8ff;end;
end;
1: begin
bg_col:=$aaaaaa;
bord_col:=$222222;
text_col:=$1100ff;
ch:=inttostr(a[ci,cj] mod 10)[1];
end;
2: begin
bg_col:=$555555;
bord_col:=$990000;
text_col:=$000099;
ch:=inttostr(a[ci,cj] mod 10)[1];
end;
3..20: begin
bg_col:=$222222;
bord_col:=$11ff11;
text_col:=$eeeeee;
ch:=inttostr(a[ci,cj] mod 10)[1];
end;

end;
// здесь непосредственно рисую
FONT_.Color:=text_COL;
img_ris.Canvas.FillRect(Canvas.ClipRect);
img_ris.Canvas.Brush.Color:=bg_col;
img_ris.Canvas.Pen.Color:=bord_col;
img_ris.Canvas.Pen.Width:=bord;
img_ris.Canvas.Font:=font_;
img_ris.Canvas.Rectangle(0,0,img0.Height-bord,img0.Height-bord);
img_ris.Canvas.TextOut(l,t,ch);

(findcomponent('img'+inttostr(ci)+'_'+inttostr(cj)) as timage).Picture:=img_ris.Picture;
end;