VPF::Вопрос о Skin'e - Форум программистов

Deiv

Дата 28.8.2007, 16:11 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 43
Регистрация: 11.2.2006
Где: ЛаПаc-Боливия (Ю жная Америка)

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

Программа Registry Mechanic   http://www.pctools.com/registry-mechanic/
Это имеет График или Skin в его Бруске Заглавия?
Мне обратилось внимание, что на лебои части Бруска Заглавия это тянется по направлению к ниже графика, и когда окно Максимизировано покаэивается мундир без того, что изменили другие кнопки включенные в "Брусок Заглавия."
Если это Skin, С какой Программой был это сделано?: VCLSkin, BussinessSkinForm, DynamicSkinForm, SuiSkin, SkinCrafter, другой?

Asks on Skin
The program Registry Mechanic http://www.pctools.com/registry-mechanic/
Does it have a Graph or a Skin in its Bar of Title?
What gets me the attention is in the left part of the Bar of Title it is drawn toward below the graph, and when the window is maximized it makes it uniform without altering the other buttons included in the "Bar of Title."
If it is a Skin, With which it Programs was it made?: VCLSkin, BussinessSkinForm, DynamicSkinForm, SuiSkin, SkinCrafter, another?

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

RegMechanic.zip 45,98 Kb

Snowy

Дата 28.8.2007, 16:26 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

ИМХО, никакого скина там нет.
Просто сами сделали форму-прототип с таким заголовком и от неё пронаследовали все остальные.

pseud

Дата 28.8.2007, 16:36 (ссылка)

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

Загрузка ...

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

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

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

может и скины, а может и не скины
1. убираем стандартный заголовок и бордюры
2. в заголовок = Рисунок1(с логотипом) + Рисунок2(однородный/растягиваемый) + Рисунок 3(с загагулиной и местом под кнопки)
3. наследуем все формы от базовой

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

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

Snowy

Дата 28.8.2007, 18:04 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Цитата(pseud @ 28.8.2007, 16:36

)

в заголовок = Рисунок1(с логотипом) + Рисунок2(однородный/растягиваемый) + Рисунок 3(с загагулиной и местом под кнопки)

Ну там сделано не так.
В скиновых движках обычно делается что-то вроде этого:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    bmp: TBitMap;
    procedure WMNCPaint(var Msg: TWMNCPaint); message WM_NCPAINT;
  end;

var Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('C:\1.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free;
end;

procedure TForm1.WMNCPaint(var Msg: TWMNCPaint);
var
  h: HDC;
begin
  //inherited;
  h := GetWindowDC(Handle);
  Rectangle(h, 0, 0, Width, Height);
  StretchBlt(h, 0, 0, Width, GetSystemMetrics(SM_CYCAPTION)+ GetSystemMetrics(SM_CXBORDER),
  bmp.Canvas.Handle, 0, 0, bmp.Width, bmp.Height, SRCCOPY);
  ReleaseDC(Handle, h);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
  Invalidate;
end;

end.

Естественно это ещё нужно дорабатывать напильником.
Но основной принцип это демонстрирует.

Deiv

Дата 29.8.2007, 16:13 (ссылка)

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

Загрузка ...

Cпасибо,

Цитата(Snowy)

Просто сами сделали форму-прототип с таким заголовком

Такого форма-прототип, тогда можно сказать, что то График (TIMage) включен в TPanel?
Если это так, включенный TPanel во внутри ВО ВСЕЙ Формы? Или TPanel только включен в превосходящей части Формы?
Как вообразить? Какоe правильно?

Is such a Form-prototype then a Graph (TIMage) included in a TPanel?, truth?
If it is this way, and the TPanel is included inside the WHOLE Form? or is it only included in the superior part of the Form?
Which it is correct?

Snowy

Дата 29.8.2007, 16:38 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Можно отключить рамку формы - BorderStyle = bsNone
Но тогда нужно класть панель, рисовать заголовок и рамочки, а также управлять изменением позиции и размерами формы.
Оба пути непростые. Но второй проще для реализации, если у вас нет глубоких познаний.

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