| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Рамка Image [D7]

Ponchik ©   (2013-05-14 13:14:00) 

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

---

Kilkennycat   (2013-05-14 22:51:00) [1]

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

---

Ega23   (2013-05-14 13:43:00) [2]

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;


---

brother   (2013-05-14 13:41:00) [3]

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

---

clickmaker   (2013-05-14 13:17:00) [4]

Image4.Canvas.Brush.Style := bsClear;

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

---

Наверх