|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.04.2014, 01:11 | #1 |
Пользователь
Регистрация: 05.03.2014
Сообщений: 40
|
Paint Delphi
Помогите доделать код
Satana21
Последний раз редактировалось Катерина19; 15.04.2014 в 01:39. |
15.04.2014, 09:16 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
а какая задачи, что надо сделать, доделать внутри архива написано?
Или нужно самому догадаться?! |
15.04.2014, 09:22 | #3 |
Пользователь
Регистрация: 05.03.2014
Сообщений: 40
|
Загружаю немного переделанную но,
1.когда при рисовании пытаюсь поменять размер(на 2 форме) программа зависает 2. Не могу сделать так чтобы заливка эллипса и квадрата была не белого цвета, а выбранного цвета
Satana21
Последний раз редактировалось Катерина19; 15.04.2014 в 09:28. |
15.04.2014, 13:27 | #4 | |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
Цитата:
Код:
|
|
15.04.2014, 14:01 | #5 | |
Пользователь
Регистрация: 05.03.2014
Сообщений: 40
|
Цитата:
Satana21
|
|
15.04.2014, 20:44 | #7 | |
Пользователь
Регистрация: 05.03.2014
Сообщений: 40
|
Цитата:
Спасибо вы мне очень помогли!)
Satana21
|
|
17.04.2014, 13:11 | #8 |
Пользователь
Регистрация: 05.03.2014
Сообщений: 40
|
if btn7.Down then
begin img1.picture.Assign(img2.picture); img1.Canvas.pen.Width := strtoint(edt1.text); Img1.Canvas.Brush.color := pnl3.color; img1.Canvas.Pen.color := pnl4.Color; if rb1.checked = true then img1.Canvas.Brush.Style := bsClear else img1.Canvas.Brush.Style := bsSolid; Img1.Canvas.ellipse(x,y,x1,y1); end; if btn8.Down then begin img1.picture.Assign(img2.picture); img1.Canvas.pen.Width := strtoint(edt1.text); Img1.Canvas.Brush.color := pnl3.color; img1.Canvas.Pen.color := pnl4.Color; if rb1.Checked = true then img1.Canvas.Brush.Style := bsClear else img1.Canvas.Brush.Style := bsSolid; img1.Canvas.Rectangle(x,y,x1,y1); end; Как сделать чтобы и контур и заливка были одного цвета???
Satana21
|
17.04.2014, 13:14 | #9 | |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
Цитата:
Код:
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
paint | Лилиана1992 | Мультимедиа в Delphi | 0 | 11.12.2013 22:22 |
Paint на Delphi | guffer | Свободное общение | 7 | 31.10.2011 18:03 |
Работа с Paint | devi409 | Win Api | 9 | 18.12.2008 18:51 |
Paint | Артэс | Win Api | 4 | 30.11.2008 02:09 |
paint | ben95 | Общие вопросы Delphi | 1 | 30.03.2008 09:27 |