Прорисовка линии

[dmitriegorovih]

Помогите пожалуйста, я написал добовление фрейма но когда я прорисовал линию она прорисовалась до туда где изночально размеры картинки на фрейме.
Я правильно панимаю canvas не успевает прорисовать картинку и поэтому не прорисовываеться вся картинка?

procedure Tform1.dobavlenienov2(Owner:Tcomponent;owner2:TwinControl;per_x,per_y,vtr_x,vtr_y:integer);
var
WindowRgn: HRGN;
begin
komn2:=komn2+1;
 kom2:=TFrame3.Create(Owner);

 kom2.Parent:=Owner2;
 kom2.Image1.Canvas.Pen.Width:=5;
 kom2.Image1.Canvas.Pen.Color:=clblack;
 if vtr_y>per_y then begin
 kom2.Left:=per_x;
 kom2.Top:=per_y;
 kom2.Width:=(vtr_x-per_x+5);
 kom2.Height:=(vtr_y-per_y+5);
kom2.Image1.Width:=kom2.Width;
kom2.Image1.Height:=kom2.Height;
 kom2.Image1.Picture.Bitmap.Canvas.MoveTo(5,5);
 kom2.Image1.Picture.Bitmap.Canvas.LineTo(vtr_x-per_x,vtr_y-per_y);
 end;
  if vtr_y=per_y then begin
 kom2.Left:=per_x;
 kom2.Top:=per_y-round(kom2.Height/2);
 kom2.Width:=vtr_x+5;
kom2.Image1.Width:=kom2.Width;
kom2.Image1.Height:=kom2.Height;
 kom2.Image1.Canvas.MoveTo(round(kom2.Width/2),round(kom2.Height/2));
 kom2.Image1.Canvas.LineTo(vtr_x-per_x,vtr_y-per_y);
 showmessage('2');
 end;
   if vtr_y<per_y then begin
 kom2.Left:=per_x;
 kom2.Top:=per_y-kom2.Height;
 kom2.Width:=vtr_x+5;
 kom2.Height:=vtr_y-5;
kom2.Image1.Width:=kom2.Width;
kom2.Image1.Height:=kom2.Height;
 kom2.Image1.Canvas.MoveTo(5,kom2.Image1.Height-5);
 kom2.Image1.Canvas.LineTo(vtr_x-per_x,per_y-vtr_y);
 showmessage('3');
 end;
 kom2.Tag:=komn2;
 komponent.Add(inttostr(komn2));
 kom2.Name:='Frame_'+inttostr(komn2);
 //kom2.Image1.Transparent:=true;
windowRgn := CreateRgnFromBitmap(kom2.Image1.Picture.Bitmap);
SetWindowRgn(kom2.Handle, WindowRgn, True);
end;

[Stilet]

Что-то я не понял что ты этим кодом делаешь...

[dmitriegorovih]

Я создаю новый фрейм на фрейме картинка а на картинке отрисовываю линию но она отрисовываеться не вся.

[Stilet]

А тебе не будет лучше рисовать эту линию в событии OnPaint?

[dmitriegorovih]

Спасибо, Не пробовал, попробую

Зделал но вместо лиинии просто белый квадрат

[Stilet]

Зделал но вместо лиинии просто белый квадрат

Хвастайся кодом
Вот как я на Фреймах рисовал бы:

procedure TForm1.FormPaint(Sender: TObject);
var c:TCanvas;
begin
c:=TCanvas.Create;
c.Handle:=GetDC(Frame21.Handle);
c.LineTo(100,100);
c:=nil;
end;

Все как грится не сложнее чем просто

[dmitriegorovih]

Большое спаисбо Stilet работает

[Stilet]

Ну если это то что нужно то на здоровье

[dmitriegorovih]

Stilet что мне делать линия прорисовываеться но когда я кидаю её на scrollbox то при движении за её границы линия стираеться

[Stilet]

когда я кидаю её на scrollbox то при движении за её границы линия стираеться

"Когда я кидаю майку в стиралку, при движении за ее барабан пуговицы отлетают. Помогите!" - вот так я понял твой вопрос.

P.S. Кстати, линию нельзя кинуть. ее можно нарисовать.