Текущий архив: 2014.03.09;
Скачать: CL | DM;

Вниз

Рамка Image   Найти похожие ветки 

← →
Ponchik ©   (2013-05-14 13:14) [0]

Не получается вывести рамку для 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;

---

← →
clickmaker ©   (2013-05-14 13:17) [1]

Image4.Canvas.Brush.Style := bsClear;

а почему 584, а не Image4.Left?

---

← →
brother ©   (2013-05-14 13:41) [2]

бррр, еще и в основном?

---

← →
Ega23 ©   (2013-05-14 13:43) [3]

with canvas do
begin
 Pen.Style:=psDot;
 Pen.Mode:=pmXOR;

 MoveTo(CutFrame.Left,CutFrame.Top);
 LineTo(CutFrame.Right,CutFrame.Top);
 LineTo(CutFrame.Right,CutFrame.Bottom);
 LineTo(CutFrame.Left,CutFrame.Bottom);
 LineTo(CutFrame.Left,CutFrame.Top);

end;


---

← →
Kilkennycat ©   (2013-05-14 22:51) [4]

Canvas.FrameRect(Rect(x,y,xx,yy));

---

Страницы: 1 вся ветка

Текущий архив: 2014.03.09;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.009 c