Как сделать своё окошко в Delphi?

DungeonLords · #1 19.01.2010, 22:10

Добрый вечер. Вопрос: как сделать своё окошко в среде Delphi. Такие окошки есть, например, у графической библеотеки GLScene:

Это очень удобно! В design time работать с наглядной информацией! Но вот как это сделать?

Страдалецъ · #2 19.01.2010, 22:47

Что-то не догнал, что вы хотите?

CTAJLUH · #3 19.01.2010, 22:49

если я правильно понял он хочет добавить фрейм (я знаю о нем но пользоваться не умею) таак что сам жду ответа

DungeonLords · #4 19.01.2010, 23:33

Цитата:

Сообщение от Страдалецъ

Что-то не догнал, что вы хотите?

Посмотрите на картинку, там вы увидите Material Editor, этого нет в Delphi, но есть в граф. библеотеки GLSCene, которая как раз устанавливается внутрь Delphi как сторонний компонент. Вопрос в том, как разработчики сделали это

?

По поводу фрейма. Я тогда не понимаю, интересный факт - в папке с GLSCene нет ни одного .dpr файла (файла проекта) , а фрейм по сути подключается к файлу проекта. По крайней мере так в книжке написано, которая на этом сайте часто рекламируется вверху. В папке с GLSCene есть только .dpk, .pas, .dfm. .bat, .dof, .cfg, .res и .inc файлы

.

Drozh · #5 19.01.2010, 23:47

.dfm -файл формы, тебе это окошко нужно для программы или компонента?

DungeonLords · #6 20.01.2010, 00:17

Цитата:

Сообщение от Drozh

.dfm -файл формы, тебе это окошко нужно для программы или компонента?

Для компонента. То, что на рисунке - НЕ проект! Вот посмотрите на окошко GLScene Editor: GLScene1 на фотографии. Это окошко открылось после двойного щелчка по компоненту GLScene1 (кубик на форме) (см. инспектор объектов чтобы понять где что).

Страдалецъ · #7 20.01.2010, 02:31

С чего вы взяли, что такого кроме GLScene нет? Полно компонент в которых есть аналогичная реализация. Например ImageList,TreeView и т.д. Компонент, это та-же программа, только со своей спецификой и как вы реализуете его свойства это зависит от вашей фантазии.

DungeonLords · #8 20.01.2010, 16:49

Цитата:

Сообщение от Страдалецъ

С чего вы взяли, что такого кроме GLScene нет? Полно компонент в которых есть аналогичная реализация. Например ImageList,TreeView и т.д. Компонент, это та-же программа, только со своей спецификой и как вы реализуете его свойства это зависит от вашей фантазии.

Ну вот захотелось мне привести GLScene. Вот я и спрашиваю, как создать эти форточки?

"как вы реализуете его свойства это зависит от вашей фантазии" - дык я же понятно выразился что конкретно нужно сделать! Нужно чтобы по клику на свойство Image.Material в design time сейчас (на пепрвом этапе) вызывалась пустая форма, где потом можно будет параметры компонентра.

Пишите, пожалуйста, по теме. *-Image приведён для примера. Выглядит объявление в ImageList вот так:

Код:

  TImageList = class(TDragImageList)
  published
    property BlendColor;
    property BkColor;
    property AllocBy;
    property DrawingStyle;
    property Height;
    property ImageType;
    property Masked;
    property OnChange;
    property ShareImages;
    property Width;
  end;

Насколько я понимаю, здесь указываются лишь те свойства, которыфе должны остаться от наследника:

Код:

  TDragImageList = class(TCustomImageList)
  private
    FDragCursor: TCursor;
    FDragging: Boolean;
    FDragHandle: HWND;
    FDragHotspot: TPoint;
    FDragIndex: Integer;
    procedure CombineDragCursor;
    procedure SetDragCursor(Value: TCursor);
  protected
    procedure Initialize; override;
  public
    function BeginDrag(Window: HWND; X, Y: Integer): Boolean;
    function DragLock(Window: HWND; XPos, YPos: Integer): Boolean;
    function DragMove(X, Y: Integer): Boolean;
    procedure DragUnlock;
    function EndDrag: Boolean;
    function GetHotSpot: TPoint; override;
    procedure HideDragImage;
    function SetDragImage(Index, HotSpotX, HotSpotY: Integer): Boolean;
    procedure ShowDragImage;
    property DragCursor: TCursor read FDragCursor write SetDragCursor;
    property Dragging: Boolean read FDragging;
  end;

Сдаётся мне, что процедура SetDragCursor является обработчиком клика по компоненту:

Код:

procedure TDragImageList.SetDragCursor(Value: TCursor);
begin
  if Value <> DragCursor then
  begin
    FDragCursor := Value;
    if Dragging then CombineDragCursor;
  end;
end;

Ну вот начинается хождение по модулям, но в итоге всё равно это не объясняет как сделана форточка. CombineDragCursor:

Код:

procedure TDragImageList.CombineDragCursor;
var
  TempList: HImageList;
  Point: TPoint;
begin
  if DragCursor <> crNone then
  begin
    TempList := ImageList_Create(GetSystemMetrics(SM_CXCURSOR),
      GetSystemMetrics(SM_CYCURSOR), ILC_MASK, 1, 1);
    try
      ImageList_AddIcon(TempList, Screen.Cursors[DragCursor]);
      ImageList_AddIcon(TempList, Screen.Cursors[DragCursor]);
      ImageList_SetDragCursorImage(TempList, 0, 0, 0);
      ImageList_GetDragImage(nil, @Point);
      ImageList_SetDragCursorImage(TempList, 1, Point.X, Point.Y);
    finally
      ImageList_Destroy(TempList);
    end;
  end;
end;

Ferra · #9 20.01.2010, 19:19

Почитай любое пособие по созданию компонент. Для любого типа свойства всех компонент можно зарегистрировать соответствующий редактор свойств. Редактор - обычный класс, который при необходимости создает свою форму.

лично я разбирался с самих исходников поставляемых с дельфи, редактирование шрифта - именно так там и сделано.

Aristarh Dark · #10 20.01.2010, 20:10

Во, во. Ferra прав как никогда, все стандартно вызывается, главное хотеть

DungeonLords · #11 20.01.2010, 22:29

Цитата:

Сообщение от Ferra

Почитай любое пособие по созданию компонент. Для любого типа свойства всех компонент можно зарегистрировать соответствующий редактор свойств. Редактор - обычный класс, который при необходимости создает свою форму.

лично я разбирался с самих исходников поставляемых с дельфи, редактирование шрифта - именно так там и сделано.

А можно пример (ссылку)? Буду очень благодарен. Вот сейчас ещё раз заглянул на всякий случай в ту бело-голубую книгу "Delphi 7", что рекламируется сверху слева. Я впринципе уже знал, что нужной информации там нет.

Впринципе здесь что-то сказано: http://wm-help.net/books-online/book...-100.html#anc6 , но там непонятно где брать dsgnintf.dcu. А здесь: http://www.excode.ru/art5770p2.html автор почти ответил на этот вопрос, но забыл рассказать где находится пункт "в окне редактора щелкнуть правой кнопкой мыши на пункте "Requires". Я ищу уже минут 5 этот пункт, нигде нету!

Ferra · #12 21.01.2010, 14:54

Вот тебе кусок кода с моего старого проекта, разбирайся.

Код:

{$I versions.inc}
{$D-,L-,Y-}

unit uEditor;

interface

uses
  Windows, Classes, Forms, Controls, ExptIntf, TypInfo, ToolIntf,
  EditIntf, VirtIntf, SysUtils, Dialogs, ExtCtrls,
  {$IFDEF DELPHI5_OR_ABOVE}
  ToolsApi,
  {$ENDIF}
  {$IFNDEF DELPHI6_OR_ABOVE}
  DsgnIntf,
  {$ELSE}
  DesignIntf,
  DesignEditors,
  VCLEditors,
  {$ENDIF}
  StdCtrls,
  Graphics;

type
  TAboutProperty = class(TClassProperty)
  public
    procedure Edit; override;
    function GetAttributes: TPropertyAttributes; override;
    function GetValue: string; override;
    {$IFDEF VER130}
    procedure PropDrawName(ACanvas: TCanvas; const ARect: TRect;
      ASelected: Boolean); override;
    {$ENDIF}
  end;

implementation

uses uFormAbout;

function TAboutProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog, paReadOnly {$IFDEF DELPHI5_OR_ABOVE}, paFullWidthName {$ENDIF}]
end ;

procedure TAboutProperty.Edit;
var
  Form : TFormAbout;
begin
  try
    Form := TFormAbout.Create(nil);
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;

function TAboutProperty.GetValue: string;
begin
  Result := '(About)';
end;

{$IFDEF VER130}
procedure TCHAboutProperty.PropDrawName(ACanvas: TCanvas; const ARect: TRect;
  ASelected: Boolean);
begin
  ACanvas.Font.Style := [fsBold];
  inherited PropDrawName(ACanvas, ARect, ASelected);
end;
{$ENDIF}

end.

DungeonLords · #13 23.01.2010, 11:24

Ferra,
интересный факт:
1) в GLScene много редакторов, но никто не наследуется от TClassProperty, а все либо от TForm, либо от TFame.
2) после установки GLSсene все файлы с формами (.dfm) становятся ненужными.,
3) как бы я не потылся, у меня действительно создаётся новое свойство в инспекторе объектов (ура), но у него в поле-значении написан класс и никакого троеточия (тобиш никакого редактора при нажатии не открывается). Скриншот:

Что посоветуете?

Цитата:

Сообщение от Ferra

Вот тебе кусок кода с моего старого проекта, разбирайся.

Код:

{$I versions.inc}
{$D-,L-,Y-}

unit uEditor;

interface

uses
  Windows, Classes, Forms, Controls, ExptIntf, TypInfo, ToolIntf,
  EditIntf, VirtIntf, SysUtils, Dialogs, ExtCtrls,
  {$IFDEF DELPHI5_OR_ABOVE}
  ToolsApi,
  {$ENDIF}
  {$IFNDEF DELPHI6_OR_ABOVE}
  DsgnIntf,
  {$ELSE}
  DesignIntf,
  DesignEditors,
  VCLEditors,
  {$ENDIF}
  StdCtrls,
  Graphics;

type
  TAboutProperty = class(TClassProperty)
  public
    procedure Edit; override;
    function GetAttributes: TPropertyAttributes; override;
    function GetValue: string; override;
    {$IFDEF VER130}
    procedure PropDrawName(ACanvas: TCanvas; const ARect: TRect;
      ASelected: Boolean); override;
    {$ENDIF}
  end;

implementation

uses uFormAbout;

function TAboutProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog, paReadOnly {$IFDEF DELPHI5_OR_ABOVE}, paFullWidthName {$ENDIF}]
end ;

procedure TAboutProperty.Edit;
var
  Form : TFormAbout;
begin
  try
    Form := TFormAbout.Create(nil);
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;

function TAboutProperty.GetValue: string;
begin
  Result := '(About)';
end;

{$IFDEF VER130}
procedure TCHAboutProperty.PropDrawName(ACanvas: TCanvas; const ARect: TRect;
  ASelected: Boolean);
begin
  ACanvas.Font.Style := [fsBold];
  inherited PropDrawName(ACanvas, ARect, ASelected);
end;
{$ENDIF}

end.

Ferra · #14 23.01.2010, 13:57

Писец, чувак, как же ты не догоняешь? Форма - визуально отобрает содержимое свойства.

Т.е. она лишь создаётся (тобой) , при вызове определённых методов. Тобой же и уничтожается, а не средой дельфи. Эту форму хоть в длл можно засунуть - принципиально ничего не изменится.

А вот редактор свойства - это основной класс, наследуется от базовых, предоставляемых дельфи. Он то форму и создаёт.

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты