VPF::Как сгладить края у нестандартной формы?

elestrago

Дата 1.2.2008, 17:08 (ссылка)

(голосов:1)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

вот собственна форма user posted image

--------------------

THandle

Дата 1.2.2008, 17:10 (ссылка)

(голосов:1)

Загрузка ...

Хранитель Клуба
Group Icon

Награды: 1

Профиль
Группа: Админ
Сообщений: 3639
Регистрация: 31.7.2007
Где: Moscow, Dubai

Репутация: 1
Всего: 372

Смотри в сторону регионов. В DRKB помойму были примеры.

elestrago

Дата 1.2.2008, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

я про региона там много че нашел а вот про сглаживание неровных краев чето не могу откопать... поэтому тут отписал тему..

--------------------

Alexeis

Дата 1.2.2008, 17:58 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Можно просто задать прозрачный цвет и сделать его цветом формы, потом нарисовать на форме нужуню картинку любым другим цветом отличным от прозрачного.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

elestrago

Дата 1.2.2008, 21:53 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

--------------------

MetalFan

Дата 1.2.2008, 22:14 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 5
Всего: 128

наверное стоит смотреть в сторону UpdateLayeredWindow

--------------------

There are always someone smarter than you...

Alexeis

Дата 1.2.2008, 23:01 (ссылка)

(голосов:1)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  TransparentColor      := true;
  TransparentColorValue := clBlue;
  Color                 := clBlue;
  AlphaBlend            := true;
  AlphaBlendValue       := 150;
  BorderStyle           := bsNone;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture();
  form1.Perform(WM_SYSCOMMAND, $F012, 0);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color := clBlack;
  Canvas.Pen.Color := clBlack;
  Canvas.Ellipse(-100, -100, 100, 100);
end;

--------------------

elestrago

Дата 2.2.2008, 09:14 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

не совсем гладкие края user posted image

Добавлено через 1 минуту и 59 секунд
читал где то в нете что можно сделать что то типа визуального уменьшения формы типа как рисук сперва рисуешь в большом разрешшение потом уменьшаешь и получается четкий рисунок!

--------------------

Urvin

Дата 2.2.2008, 10:15 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 1.6.2006

Репутация: нет
Всего: нет

Вот такую фишку нашел:

Медленная зараза, но, может, на первых порах подойдет.
Там ели брать на рассмотрение только часть окружности определенной толщины...
http://urvin.ifolder.ru/5194855

elestrago

Дата 2.2.2008, 10:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

на виндовс виста это вот как выглядит smile

--------------------

Alexeis

Дата 2.2.2008, 12:44 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

Цитата(elestrago @ 2.2.2008, 08:14

)

не совсем гладкие края

Так и в первом посте они не гладкие! Чтобы они были гладкими нужна изменяющаяся прозрачность. Т.е. переходила бы в 0 на самом краю. Такое можно сделать функцией UpdateLayeredWindow, как и сказал MetalFan.
Самопальная прозрачность неканает, слишком медленно работает да и следы видны. Прорисовкой LayeredWindow занимается винда, от того оно получается сравнительно быстро и красиво. Это единственный более менее приличный вариант.

--------------------

elestrago

Дата 2.2.2008, 13:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 146
Регистрация: 23.8.2007
Где: runet

Репутация: нет
Всего: 3

откопал очень интересный исходник ссылка

user posted image

может кому пригодится smile

Это сообщение отредактировал(а) elestrago - 2.2.2008, 13:13

--------------------

Urvin

Дата 2.2.2008, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 66
Регистрация: 1.6.2006

Репутация: нет
Всего: нет

elestrago, Отличный пример, спасибо!

AntonN

Дата 2.11.2008, 18:38 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 491
Регистрация: 8.8.2006

Репутация: 7
Всего: 18

нарисовал второй пример заставки, более "живой" и похожий на сплеш, возможно кому то пригодится.
с выводтом текста статуса загрузки, прогрессбаром и понтовыми иконками smile

AnimateSplash_thread.zip (zip, 280kb с ЕХЕ).

--------------------

pseud

Дата 6.11.2008, 11:30 (ссылка)

(нет голосов)

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: нет
Всего: 40

супер.
жаль только что при таскании за брюхо процесс отсанавливается.
да и заметка для скачавших - при закрытии сплеша по альт+ф4 - прогу нужно вырубать диспетчером или ждать пока сплеш где-то там дозагрузится.

--------------------

Испытание чужого терпения можно считать успешным, если оно лопнуло...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »