|
#1
|
|||
|
|||
Canvas.ClipRect
Доброе время суток!!! Есть форма....на ней Image1.....Image.Align:= alClient. Так вот...рисую на Image1.Canvas, но проблема в том что при изменении размеров формы, а соответственно и Image1, на канве дальше первых размеров не рисуются, я полагаю что это связано с Image1.Canvas.Cliprect, но поменять его я не могу.....как же быть?
APPLICATION.TERMINATOR |
#2
|
||||
|
||||
Используй PaintBox (system)
Не твори зла, и жизнь повернется к тебе передом |
#3
|
|||
|
|||
Вот такой метод решит твою проблему.
Код:
procedure TForm1.FormPaint(Sender: TObject); begin with Image1.Canvas do begin Pen.Style:=psSolid; Pen.Color:=clBlack; MoveTo(0,0); LineTo(Width,Height); end; end; procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered:=true; end; procedure TForm1.FormResize(Sender: TObject); begin Image1.Picture.Bitmap.Height:=Height; Image1.Picture.Bitmap.Width:=Width; end; |
#4
|
|||
|
|||
Спасибо за помощь,я решил эту проблему немного иначе.....Создавал битмап......менял размеры.....как мне надо и на TBitmap.Canvas рисовал....а потом просто скопировал на нужную канву.....
APPLICATION.TERMINATOR |