VPF::Картинку вперед - Форум программистов

WolfON

Дата 9.11.2004, 22:18 (ссылка)

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

Загрузка ...

Опытный

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

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

krid24
Richedit формы - прямоугольник с закругленными(достаточно сильно закругленными) углами, а картинка тут затем, как я думал, чтобы ее наложить сверху и таким образом получить нст ричедит

WolfON

Дата 10.11.2004, 00:10 (ссылка)

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

Загрузка ...

Опытный

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

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

krid24
Ричедит формы прямоугольника со скругленными углами(сильно скругленными), я просто хотел наложить сверху картинку, чтобы ричедит стал такой формы

krid24

Дата 10.11.2004, 09:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Ага, понял smile

Ну если просто RichEdit с круглыми углами, тогда можно примерно так

Код

procedure TForm1.FormCreate(Sender: TObject);
var
    FRegion:HRGN;
begin
    FRegion := CreateRoundRectRgn(0, 0, RichEdit1.Width, RichEdit1.Height, RichEdit1.Width div 4, RichEdit1.Height div 4);
  if FRegion <> 0 then
    SetWindowRgn(RichEdit1.Handle, FRegion, True);
end;

тока надо подобрать параметры у CreateRoundRectRgn (высоту/ширину/эллипсы), чтобы выглядело так, как тебе надо.

А если хочешь именно картинку, тогда вполне подойдет то, что я выше написАл (про SetBitmapWindow).
Можешь дать мне эту картинку (здесь приаттачить или мне на мыло krid24<гав-гав>@mail.ru) и я гляну чего с ней можно сделать.

Это сообщение отредактировал(а) krid24 - 6.4.2006, 23:49

WolfON

Дата 16.11.2004, 19:51 (ссылка)

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

Загрузка ...

Опытный

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

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

krid24
Хочешь обрадую??? smile

НЕ РАБОТАЕТ smile

(я юзаю jvrichedit, из JEDI http://jediproject.sourceforge.net)

p0s0l

Дата 18.11.2004, 02:25 (ссылка)

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

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

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

Перенесено из раздела Дельфи

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

С уважением, г-н Посол.

RuRnit

Дата 9.3.2008, 11:53 (ссылка)

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

Загрузка ...

Новичок

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

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

так че надо просто закруглить rich?
легко! (только полосы прокрутки пропадут)

Код


procedure MakeRounded(Control: TWinControl);
 var
   R: TRect;
   Rgn: HRGN;
 begin
   with Control do
   begin
     R := ClientRect;
     rgn := CreateRoundRectRgn(R.Left + 3, R.Top + 3, R.Right, R.Bottom, 5, 5);
     Perform(EM_GETRECT, 0, lParam(@r));
     InflateRect(r, -4, -4);
     Perform(EM_SETRECTNP, 0, lParam(@r));
     SetWindowRgn(Handle, rgn, True);
     Invalidate;
   end;
 end;

пошлешь в эту процедурку любой компонент и все ОК smile

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