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

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

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.11.2009, 20:14   #1
ser2031
Пользователь
 
Регистрация: 13.11.2009
Сообщений: 10
Лампочка овальный listbox

можно ли сделать овальный лист бокс? если да..то как?
ser2031 вне форума
Старый 17.11.2009, 20:18   #2
russian-stalker
Участник клубаДжуниор
 
Аватар для russian-stalker
 
Регистрация: 23.08.2008
Сообщений: 1,616
По умолчанию

Код:
procedure MakeRounded(Control: TWinControl);
 var
   R: TRect;
   Rgn: HRGN;
 begin
   with Control do
   begin
     R := ClientRect;
     rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 200, 200); //Этими параметрами играемся
     Perform(EM_GETRECT, 0, lParam(@r));
     InflateRect(r, - 5, - 5);
     Perform(EM_SETRECTNP, 0, lParam(@r));
     SetWindowRgn(Handle, rgn, True);
     Invalidate;
   end;
 end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  listbox1.BorderStyle:=bsnone;
  MakeRounded(listbox1 as twincontrol);
end;
pushl $0x18E3DF6B
call ICQ
russian-stalker вне форума
Старый 17.11.2009, 21:41   #3
ser2031
Пользователь
 
Регистрация: 13.11.2009
Сообщений: 10
По умолчанию

что то я не очень понимаю...что такое:MakeRounded
ser2031 вне форума
Старый 17.11.2009, 21:47   #4
russian-stalker
Участник клубаДжуниор
 
Аватар для russian-stalker
 
Регистрация: 23.08.2008
Сообщений: 1,616
По умолчанию

Советую для начала прочитать книгу по паскалю(делфи), а потом уже задавать глупые вопросы..
pushl $0x18E3DF6B
call ICQ
russian-stalker вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
как добавить в listbox файлы(пишу с помощью bassplayer)(Listbox+opendialog=play) blackstersl Общие вопросы Delphi 11 09.06.2010 13:23
ListBox W0LF Общие вопросы Delphi 2 26.09.2009 14:07
listbox counter Win Api 10 11.02.2009 01:49
Овальный Button Experementator Компоненты Delphi 6 28.04.2008 22:58
выделение строки в ListBox'е, но не установкой на него фокуса. D-fens Компоненты Delphi 5 06.06.2007 17:47