Скачать: CL | DM;

Vista Manifest и Vista Style Components   Найти похожие ветки 

← →
TIF ©   (2006-12-14 15:51) [0]

Всем привет. Кто считает меня сумасшедшим (из-за названия темы) - пусть считают. Не жалко. Но тема актуальная. Пока ещё :-)

А всё-таки, где достать такой компонент? Или что-то в таком роде? Есть ссылка

http://www.installationexcellence.com/articles/VistaWithDelphi/Index.html

тут описано, как подключить всё это, если у тебя стоит Vista. А если ХР? Или 2000? Или вообще 98? Поэтому компоненты в стиле Vista всё-таки лучше. Подскажите, где достать, плз

---

← →
Eraser ©   (2006-12-14 16:02) [1]

> [0] TIF ©   (14.12.06 15:51)

при чем тут манифест?
доп. манифест нужно будет делать, если, к примеру, понадобится при старте приложения запросить админские права.

---

← →
Игорь Шевченко ©   (2006-12-14 16:03) [2]

Автор ты читать умеешь ?

---

← →
TIF ©   (2006-12-14 16:04) [3]

> при чем тут манифест?


А про XP Manifest ты забыл?

---

← →
Eraser ©   (2006-12-14 16:12) [4]

> [3] TIF ©   (14.12.06 16:04)

см. [2].
With Windows Vista, as long as our applications were developed to work with Windows XP, we will automatically benefit from our applications matching the new visual style found in Windows Vista.

---

← →
TIF ©   (2006-12-14 16:17) [5]

а как такой дизайн-то сделать??????

---

← →
Игорь Шевченко ©   (2006-12-14 16:26) [6]

> а как такой дизайн-то сделать??????


Висту свою написать

---

← →
TIF ©   (2006-12-14 16:29) [7]

> Висту свою написать


плз EXEмпл! В студию!

А всё-таки, как? Винчестером об косяк?

---

← →
Сало ©   (2006-12-14 16:33) [8]

unit VistaForms;

interface

uses
 Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Forms;

type
 TVistaForm = class(TForm)
 protected
   procedure CreateParams(var Params: TCreateParams); override;
   procedure WMSyscommand(var Message: TWmSysCommand);
     message WM_SYSCOMMAND;
 public
   constructor Create(AOwner: TComponent); override;
 end;

implementation

procedure TVistaForm.CreateParams(var Params: TCreateParams);
begin
 inherited CreateParams(Params);
 Params.ExStyle := Params.ExStyle and not WS_EX_TOOLWINDOW or
   WS_EX_APPWINDOW;
end;

procedure TVistaForm.WMSyscommand(var Message: TWmSysCommand);
begin
 case (Message.CmdType and $FFF0) of
   SC_MINIMIZE:
   begin
     ShowWindow(Handle, SW_MINIMIZE);
     Message.Result := 0;
   end;
   SC_RESTORE:
   begin
     ShowWindow(Handle, SW_RESTORE);
     Message.Result := 0;
   end;
 else
   inherited;
 end;
end;

constructor TVistaForm.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 ShowWindow(Application.Handle, SW_HIDE);
 SetWindowLong(Application.Handle, GWL_EXSTYLE,
  GetWindowLong(Application.Handle, GWL_EXSTYLE) and not
    WS_EX_APPWINDOW or WS_EX_TOOLWINDOW);
 ShowWindow(Application.Handle, SW_SHOW);
end;

end.

---

← →
Игорь Шевченко ©   (2006-12-14 16:36) [9]

TIF ©   (14.12.06 16:29) [7]


> А всё-таки, как?


Висту свою написать.

---

← →
@BraIN ©   (2006-12-14 16:41) [10]

Автор, у тебя каша в голове.

1. Манифест нужен для того, чтобы элементы управления соответствовали стилю системы.
2. Используется, начиная с Windows XP, до этого не применялся.
3. Чтобы программа выглядела в Vista в соответствии со стилистикой системы манифеста для XP достаточно (они аналогичны за исключением блока trustInfo, сообщающего системе о привилегиях запуска).
4. Манифест не способствует обратной совместимости со старыми системами. Т.е его использование не поможет сделать в Windows 98 элементы управления «как в Vista». Для некоторых вещей даже ручная отрисовка будет неактуальна.

Сумбурно, но где-то так.

---

← →
DVM ©   (2006-12-14 16:44) [11]

> Подскажите, где достать, плз

http://www.tmssoftware.com/ тут есть кое-что. В частности, очень красивый ribbon bar (помесь меню и тулбаров как в офисе 2007).

---

← →
Anatoly Podgoretsky ©   (2006-12-14 18:52) [12]

> TIF  (14.12.2006 16:29:07)  [7]

> плз EXEмпл! В студию!

Даже EXEмпл будет стоить пару миллиардов, а не то чтобы рабочая версия.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.025 c