Форум: "Начинающим";
Текущий архив: 2014.03.09;
Скачать: [xml.tar.bz2];
ВнизРамка 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.002 c