stud_22-365/GLXEngine: GaLaXy Engine - пакеты компонентов GLScene & GXScene для Object Pascal и C++. Включает иерархию классов для создания 3D сцен с менеджерами поддержки физики Newton, звука BASS и шейдеров GLSL. Кросс-платформенный фреймворк с объектами на базе OpenGL и Vulkan.

Source/FPlugInManagerEditor.pas
230 строк6 KB
GLScene
Updated v.2.0 for Delphi/C++Builder
09 авг 2020, 23:03
09 авг 2020, 23:030538f8f
//
// This unit is part of the GLScene Engine, http://glscene.org
//

unit FPlugInManagerEditor;

(* Need a short description of what it does here *)

interface

{$I GLScene.inc}

uses
  System.Classes, 
  System.SysUtils, 
  System.ImageList,
  VCL.Forms,
  VCL.Dialogs,
  VCL.StdCtrls,
  VCL.Controls,
  VCL.Buttons,
  Vcl.ExtCtrls,
  Vcl.ImgList,
  Vcl.ComCtrls,
  Vcl.ToolWin,
  GLS.PluginManager;

type
  TGLPlugInManagerEditorForm = class(TForm)
    OpenDialog: TOpenDialog;
    ListBox: TListBox;
    Label1: TLabel;
    GroupBox: TGroupBox;
    DescriptionMemo: TMemo;
    Label2: TLabel;
    Label3: TLabel;
    DateLabel: TLabel;
    SizeLabel: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    ServiceBox: TComboBox;
    NameBox: TComboBox;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ImageList: TImageList;
    procedure OKButtonClick(Sender: TObject);
    procedure LoadButtonClick(Sender: TObject);
    procedure ListBoxClick(Sender: TObject);
    procedure UnloadButtonClick(Sender: TObject);
    procedure ServiceBoxChange(Sender: TObject);
  private
    FManager: TGLPlugInManager;
  public
    
    class procedure EditPlugIns(AManager: TGLPlugInManager);
  end;

// ------------------------------------------------------------------------------
implementation
// ------------------------------------------------------------------------------

{$R *.DFM}

var
  vGLPlugInManagerEditor: TGLPlugInManagerEditorForm;


procedure TGLPlugInManagerEditorForm.OKButtonClick(Sender: TObject);
begin
  Close;
end;

// ------------------------------------------------------------------------------

procedure TGLPlugInManagerEditorForm.LoadButtonClick(Sender: TObject);

var
  I, Index: Integer;

begin
  with OpenDialog do
    if Execute then
      for I := 0 to Files.Count - 1 do
      begin
        Index := FManager.AddPlugIn(Files[I]);
        if Index > -1 then
          if Index >= ListBox.Items.Count then
          begin
            FManager.PlugIns.Objects[Index];
            ListBox.Items.Add(FManager.PlugIns.Strings[I]);
          end
          else
        else
          MessageDlg(Format('Error while loading %s' + #13 +
            'not a valid GLScene plug-in', [Files[I]]), mtError, [mbOK], 0);
      end;
end;

// ------------------------------------------------------------------------------

class procedure TGLPlugInManagerEditorForm.EditPlugIns(AManager: TGLPlugInManager);

begin
  // ensure only one instance
  if Assigned(vGLPlugInManagerEditor) then
    vGLPlugInManagerEditor.Free;
  vGLPlugInManagerEditor := TGLPlugInManagerEditorForm.Create(Application);
  with vGLPlugInManagerEditor do
  begin
    ListBox.Items := AManager.PlugIns;
    FManager := AManager;
    ShowModal;
    Free;
  end;
  vGLPlugInManagerEditor := nil;
end;

// ------------------------------------------------------------------------------

procedure TGLPlugInManagerEditorForm.ListBoxClick(Sender: TObject);

var
  Entry: Integer;
  Service: TPIServiceType;
  Services: TPIServices;

begin
  Entry := ListBox.ItemIndex;
  if Entry > -1 then
  begin
    SizeLabel.Caption := Format('%n KB',
      [FManager.PlugIns[Entry].FileSize / 1000]);
    SizeLabel.Enabled := True;
    DateLabel.Caption := DateToStr(FManager.PlugIns[Entry].FileDate);
    DateLabel.Enabled := True;
    DescriptionMemo.Lines.Text :=
      string(FManager.PlugIns[Entry].GetDescription);
    ServiceBox.Items.Clear;
    ServiceBox.Enabled := True;
    Services := FManager.PlugIns[Entry].GetServices;
    for Service := Low(TPIServiceType) to High(TPIServiceType) do
      if Service in Services then
        case Service of
          stRaw:
            begin
              Entry := ServiceBox.Items.Add('Raw');
              ServiceBox.Items.Objects[Entry] := Pointer(stRaw);
            end;
          stObject:
            begin
              Entry := ServiceBox.Items.Add('Object');
              ServiceBox.Items.Objects[Entry] := Pointer(stObject);
            end;
          stBitmap:
            begin
              Entry := ServiceBox.Items.Add('Bitmap');
              ServiceBox.Items.Objects[Entry] := Pointer(stBitmap);
            end;
          stTexture:
            begin
              Entry := ServiceBox.Items.Add('Texture');
              ServiceBox.Items.Objects[Entry] := Pointer(stTexture);
            end;
          stImport:
            begin
              Entry := ServiceBox.Items.Add('Import');
              ServiceBox.Items.Objects[Entry] := Pointer(stImport);
            end;
          stExport:
            begin
              Entry := ServiceBox.Items.Add('Export');
              ServiceBox.Items.Objects[Entry] := Pointer(stExport);
            end;
        end;
    ServiceBox.ItemIndex := 0;
    ServiceBox.OnChange(ServiceBox);
  end;
end;

// ------------------------------------------------------------------------------

procedure TGLPlugInManagerEditorForm.UnloadButtonClick(Sender: TObject);

var
  I: Integer;

begin
  for I := 0 to ListBox.Items.Count - 1 do
    if ListBox.Selected[I] then
    begin
      FManager.RemovePlugIn(I);
      ListBox.Items.Delete(I);
    end;
  DescriptionMemo.Clear;
  DateLabel.Caption := '???';
  DateLabel.Enabled := False;
  SizeLabel.Caption := '???';
  SizeLabel.Enabled := False;
  ServiceBox.ItemIndex := -1;
  ServiceBox.Enabled := False;
  NameBox.ItemIndex := -1;
  NameBox.Enabled := False;
end;

// ------------------------------------------------------------------------------

procedure NameCallback(Name: PAnsiChar); stdcall;

begin
  vGLPlugInManagerEditor.NameBox.Items.Add(String(Name));
end;

// ------------------------------------------------------------------------------

procedure TGLPlugInManagerEditorForm.ServiceBoxChange(Sender: TObject);

begin
  NameBox.Items.Clear;
  with ServiceBox, Items do
    FManager.PlugIns[ListBox.ItemIndex].EnumResourceNames
      (TPIServiceType(Objects[ItemIndex]), NameCallback);
  NameBox.ItemIndex := 0;
  NameBox.Enabled := True;
end;

// ------------------------------------------------------------------------------

end.