goshiwon/MainForm.pas at main · eggfried/goshiwon · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.RibbonLunaStyleActnCtrls,
  Vcl.Ribbon, Vcl.Menus, Vcl.ToolWin, Vcl.ActnMan, Vcl.ActnCtrls, Vcl.ExtCtrls,
  System.ImageList, Vcl.ImgList, Vcl.ComCtrls;

type
  TfrmMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    pnlLeft: TPanel;
    pnlCenter: TPanel;
    tlbBigMenu: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ImageList1: TImageList;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    N8: TMenuItem;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

uses MainLeftForm, NewsForm;

procedure TfrmMain.FormCreate(Sender: TObject);
begin
  if not Assigned(frmMainLeft) then
    frmMainLeft := TfrmMainLeft.Create(Self);
  frmMainLeft.Parent := pnlLeft;
  frmMainLeft.BorderStyle := bsNone;
  frmMainLeft.Align := alClient;
  frmMainLeft.Show;

  if not Assigned(frmNews) then
    frmNews := TfrmNews.Create(Self);
  frmNews.Parent := pnlCenter;
  frmNews.BorderStyle := bsNone;
  frmNews.Align := alClient;
  frmNews.Show;
end;

end.