Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 29.03.2015, 15:23   #1
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию Рамка на Image Delphi

Не рисуется рамка:
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin  	//не работает: Incompatible types: 'TBrush' and 'TFormBorderStyle'
//вы не поверите, но это из http://www.programmersclub.ru/рамка-для-image/     
Image1.Canvas.Brush:=bsNone;
Image1.Canvas.pen.Color := clBlack;
Image1.Canvas.Pen.Width:=10;
Image1.Canvas.Rectangle(584, 64,    584+Image1.Width,   64+ Image4.Height);
end;
Рисуется, но слишком тонкая:
Код:
procedure TForm1.Button1Click(Sender: TObject);
 begin  //работает, но выводит очень тонкую
  with Image1.Canvas do 
  begin
    MoveTo(0, 0);
    LineTo(Image1.Width-1, 0);
    LineTo(Image1.Width-1, Image1.Height-1);
    LineTo(0, Image1.Height-1);
    LineTo(0, 0);
    end;
end;
Не рисуется:
Код:
procedure TForm1.Button1Click(Sender: TObject);//не работает
begin
   Image1.Canvas.Brush.Style := bsClear;
   Image1.Canvas.pen.Color := clBlack;
   Image1.Canvas.Pen.Width:=10;
   Image1.Canvas.Rectangle(584, 64,584+Image1.Width,64+Image1.Height);
end;
Покажите рабочий вариант толстой рамки.
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Старый 29.03.2015, 15:25   #2
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Убрать:
Код:
Image1.Canvas.Brush.Style := bsClear;
Изменить:
Код:
Image1.Canvas.Rectangle(0, 0,Image1.Width-1,Image1.Height-1);
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]

Последний раз редактировалось newerow1989; 29.03.2015 в 15:28.
newerow1989 вне форума Ответить с цитированием
Старый 29.03.2015, 15:31   #3
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию

Такое уже пробовал. Убивается изображение, появляется пустое белое поле.
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Старый 29.03.2015, 15:34   #4
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Тогда оставить:
Код:
Image1.Canvas.Brush.Style := bsClear;
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 29.03.2015, 15:43   #5
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию

Работает, но тонко. Где тут ширина пера?
Явно не Image1.Canvas.Pen.Width:=10;
Репутация: полный "0"
zvygin1964 вне форума Ответить с цитированием
Старый 29.03.2015, 15:44   #6
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Код:
Image1.Canvas.Pen.Width:=10;
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 29.03.2015, 15:46   #7
zvygin1964
Старожил
 
Аватар для zvygin1964
 
Регистрация: 19.06.2013
Сообщений: 2,463
По умолчанию

Нет, она не слушается Image1.Canvas.Pen.Width:=80;

Вот картинка:
Изображения
Тип файла: jpg Картинку в студию.JPG (51.1 Кб, 122 просмотров)
Репутация: полный "0"

Последний раз редактировалось zvygin1964; 29.03.2015 в 15:54.
zvygin1964 вне форума Ответить с цитированием
Старый 29.03.2015, 15:47   #8
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

Картинку в студию
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Старый 29.03.2015, 15:54   #9
BDA
МегаМодератор
СуперМодератор
 
Аватар для BDA
 
Регистрация: 09.11.2010
Сообщений: 7,285
По умолчанию

Delphi 7:
Код:
img1.Canvas.Brush.Style := bsClear;
img1.Canvas.Pen.Color := clBlack;
img1.Canvas.Pen.Width := 10;
img1.Canvas.Rectangle(0, 0, img1.Width, img1.Height);
Изображения
Тип файла: jpg form.jpg (25.9 Кб, 129 просмотров)
Пишите язык программирования - это форум программистов, а не экстрасенсов. (<= это подпись )
BDA на форуме Ответить с цитированием
Старый 29.03.2015, 15:54   #10
newerow1989
Я самый любопытный
Участник клуба
 
Аватар для newerow1989
 
Регистрация: 24.07.2012
Сообщений: 1,949
По умолчанию

У меня так получилось!
Изображения
Тип файла: jpg Безымянный22.jpg (69.7 Кб, 117 просмотров)
С запрограммированным приветом, Неверов Евгений!
Сайт: http://newerow1989.ru
[Паскаль] [Delphi]
newerow1989 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Рамка Image Pilyla Общие вопросы Delphi 2 15.05.2013 06:15
Image в Delphi I'm_Not_Afraid Помощь студентам 6 22.05.2011 18:57
Delphi 7 Image Itachi Помощь студентам 6 16.04.2011 18:14
PageControl+Image (Delphi) VadEr Помощь студентам 2 05.06.2009 21:04
Image B Delphi Gromsky Помощь студентам 1 29.02.2008 15:40