VPF::Панель для ярлыков - Форум программистов

Gudzik11

Дата 6.3.2014, 01:17 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте ! Скажите возможно ли сделать такую панель в Delphi?

Присоединённый файл ( Кол-во скачиваний: 32 )

1.jpg 425,65 Kb

kami

Дата 6.3.2014, 08:01 (ссылка)

(голосов:3)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Цитата(Gudzik11 @ 6.3.2014, 01:17

)

возможно ли сделать такую панель в Delphi?

Да.

Gudzik11

Дата 6.3.2014, 19:52 (ссылка)

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

Загрузка ...

Новичок

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

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

каким оброзом добитьса прозрачности иконок на прозрачной форме

Добавлено через 10 минут и 22 секунды
видел я компонент AdvSmoothDock но с него нечего путнего не вышло

Gudzik11

Дата 20.3.2014, 23:38 (ссылка)

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

Загрузка ...

Новичок

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

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

Ребят помогите ! Выдумал тут я такую себе панельку сделать.
Вобщем пытаюсь сделать чтото похожее на TabSet делаю всё из обычных панелей то есть на форму положил панель и в ней  динамически добовляю панели.
задача такая
   1 панель которая добовляетса растягиваетса на всё длину
   2 должна поделить 1 пополам и стать за ней и так все последушие
тоесть нужно чтоб все панели вместились в панель родителя
вот так я пытаюсь это сделать

Код


var
// pages: TPanel;
 Pages: array [0..20] of TPanel;
 Lists: array [0..20] of TPanel;
begin
 if i<=20 then
 begin
  if i=0 then
   begin
    Pages[i]:= TPanel.Create(Self);
    with Pages[i] do
     begin
      Parent:=Panel4;
      //Align:=alLeft;
      AlignWithMargins:=True;
      Left:=3;
      top:=3;
      Width:= Panel4.Width - 6;
      Height:= Panel4.Height - 6;
      Color:=clSilver; // цвет панели
      Name:='Pages'+inttostr(i); //
      Caption:='Pages'+inttostr(i);
      Font.Size:=9;  // размер шрифта
      Font.Style:=[fsbold];  // жирный шрифт
      OnClick:=PClick;    // клик для панели
      ParentBackground:=False; // для окраски панели
     end;
   end
    else
     begin
      for j:=0 to Panel4.ControlCount-1 do // здесь по идеи должны все панели уменьшатса 
       if (Panel4.Controls[j] is TPanel) then
        begin
         with TPanel(Panel4.Controls[j]) do
         Left:=0+TPanel(Panel4.Controls[j]);


        end;
     end;



 end
 else
  begin
   ShowMessage('запрешено');
  end;
 inc(i);
end;

IDRoot

Дата 3.4.2014, 13:06 (ссылка)

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

Загрузка ...

Новичок

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

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

Цитата(Gudzik11 @ 20.3.2014, 23:38)

Код


var
// pages: TPanel;
 Pages: array [0..20] of TPanel;
 Lists: array [0..20] of TPanel;
begin
 if i<=20 then
 begin
  if i=0 then
   begin
    Pages[i]:= TPanel.Create(Self);
    with Pages[i] do
     begin
      Parent:=Panel4;
      //Align:=alLeft;
      AlignWithMargins:=True;
      Left:=3;
      top:=3;
      Width:= Panel4.Width - 6;
      Height:= Panel4.Height - 6;
      Color:=clSilver; // цвет панели
      Name:='Pages'+inttostr(i); //
      Caption:='Pages'+inttostr(i);
      Font.Size:=9;  // размер шрифта
      Font.Style:=[fsbold];  // жирный шрифт
      OnClick:=PClick;    // клик для панели
      ParentBackground:=False; // для окраски панели
     end;
   end
    else
     begin
      for j:=0 to Panel4.ControlCount-1 do // здесь по идеи должны все панели уменьшатса 
       if (Panel4.Controls[j] is TPanel) then
        begin
         with TPanel(Panel4.Controls[j]) do
         Left:=0+TPanel(Panel4.Controls[j]);


        end;
     end;



 end
 else
  begin
   ShowMessage('запрешено');
  end;
 inc(i);
end;

TMS software есть компонент, похожий на rocketdock. smile

Называется TAdvSmoothDock.

Вот как он выглядит.

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

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