|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
15.06.2007, 16:57 | #1 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
Сглаживание углов формы.
BorderStyle:=bsNone;
Подскажите пожалуйста как сгладить углы формы. Хочется с каждого из четырех углов убрать 1 пиксель (сделать его прозрачным). Помогите пожалуйста, это очень важно для меня. |
15.06.2007, 17:20 | #2 |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 323
|
так работай над канвой... точки ставиш и делаеш прозрачным тот цвет которым ты зделал точки...
Всё проще чем вы думаете, нужно только правильно подойти к тому или иному вопросу?
|
15.06.2007, 17:24 | #3 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
Расскажите пожалуйста подробней, я новичок в Delphi.
|
15.06.2007, 17:31 | #4 |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 323
|
Canvas - это поверхность на которой возможно рисовать разные фигуры... там можно выбирать цвет карандаша(Pen), кисти(Brush) и всякие разные настройки,
пример: Form1.canvas.pen.color:=clred; form1.canvas.point(x,y) // - это кажысь точка, давно с этим не работал, точно не скажу... Думаю розберёшся. УДачи!
Всё проще чем вы думаете, нужно только правильно подойти к тому или иному вопросу?
|
15.06.2007, 19:20 | #5 |
Форумчанин
Регистрация: 15.06.2007
Сообщений: 182
|
С вашей идеей так и не получилось разобраться, но смотрите что я нашел:
Код:
|
15.06.2007, 23:33 | #6 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
procedure TForm1.FormCreate(Sender: TObject);
begin r1 := CreateRectRgn(0, 2, 250, 248); r2 := CreateRectRgn(2, 0, 248, 250); region := CreateRectRgn(0,0,250,250); CombineRgn(region, r1, r2, RGN_OR); SetWindowRgn(Handle, region, TRUE); end; вообще форму можно создать любой формы (простите за тафтологию) но конечно это будет посложнее
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог Последний раз редактировалось mutabor; 15.06.2007 в 23:42. |
16.06.2007, 07:54 | #7 |
Форумчанин
Регистрация: 03.11.2006
Сообщений: 321
|
Вы уже объясняли бы для всех, а то кто нибудь начнёт читать, пробовать, а с этим ещё не сталкивался. Начнет запускать Ваш код, а он не пойдёт, так как не указано, что:
var r1,r2,region:HRGN; |
16.06.2007, 21:58 | #9 |
Телепат с дипломом
Старожил
Регистрация: 10.06.2007
Сообщений: 4,929
|
я специально не указал, чтоб он машинально не скопировал, у него они глобальные
The future is not a tablet with a 9" screen no more than the future was a 9" black & white screen in a box. It’s the paradigm that survives. (Kroc Camen)
Проверь себя! Онлайн тестирование | Мой блог |
09.02.2009, 23:44 | #10 |
Форумчанин
Регистрация: 13.10.2008
Сообщений: 714
|
я использовал вот ваш код
Код:
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Про формы в длл | Altera | Общие вопросы Delphi | 2 | 24.06.2008 22:19 |
Формы | Diamand | Общие вопросы Delphi | 3 | 23.06.2008 13:49 |
Фон формы | FAiver | Общие вопросы Delphi | 4 | 15.12.2007 23:09 |
обозначение углов | BuBen4ik | Помощь студентам | 3 | 18.04.2007 14:11 |
формы | LeoN | Общие вопросы Delphi | 22 | 13.11.2006 08:33 |