Рамка Image - Общие вопросы Delphi

Pilyla · 14.05.2013, 12:14

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

Stilet · 14.05.2013, 15:23

Добавь

Код:

Image4.Canvas.Brush:=bsNone;

phomm · 15.05.2013, 05:15

Или вообще заменить на

Код:

Image4.Canvas.FrameRect

14.05.2013, 12:14	#1
Pilyla Пользователь Регистрация: 16.12.2012 Сообщений: 42	Рамка 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;` Последний раз редактировалось Stilet; 14.05.2013 в 15:23.

14.05.2013, 15:23	#2
Stilet Белик Виталий :) Старожил Регистрация: 23.07.2007 Сообщений: 57,840	Добавь Код: `Image4.Canvas.Brush:=bsNone;` I'm learning to live...

15.05.2013, 05:15	#3
phomm personality Старожил Регистрация: 28.04.2009 Сообщений: 2,855	Или вообще заменить на Код: `Image4.Canvas.FrameRect` О моих проектах Сотрудничать со мной

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
При столкновении между image переместить другой Image	Алексей_2012	Общие вопросы Delphi	1	07.03.2013 08:32
Рамка	shanluu	Общие вопросы Delphi	2	30.04.2011 22:35
EPNGMissingMultipleIDAT. This PNG Image is invalid because it has missing image parts	kardinal94	Общие вопросы Delphi	0	08.10.2010 19:31
Вопрос по Image (скачанная картинка не хочет выводиться в Image)	Radnor	Мультимедиа в Delphi	2	06.07.2009 01:20
Рамка	Vladya	Помощь студентам	2	12.11.2008 23:54