|
#1
|
|||
|
|||
Рамка Image
Не получается вывести рамку для Image, так как выводит белый закрашенный прямоугольник. в чем дело-не пойму. помогите
Код:
procedure TForm1.Image4Click(Sender: TObject); begin Image4.Canvas.pen.Color := clBlack; Image4.Canvas.Pen.Width:=10; Image4.Canvas.Rectangle(584, 64, 584+Image4.Width, 64+ Image4.Height); end; |
#2
|
||||
|
||||
Добавить.
Код:
Image4.Canvas.Brush.Style := bsClear; Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |