source: trunk/Forms/UFormMain.pas

unit UFormMain;

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, Menus,
  ComCtrls, UFormTables;

type

  { TFormMain }

  TFormMain = class(TForm)
    CoolBar1: TCoolBar;
    MainMenu1: TMainMenu;
    MenuItem1: TMenuItem;
    MenuItem2: TMenuItem;
    MenuItem3: TMenuItem;
    MenuItem4: TMenuItem;
    MenuItem5: TMenuItem;
    MenuItem6: TMenuItem;
    MenuItem7: TMenuItem;
    MenuItem8: TMenuItem;
    MenuItemPreferences: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    procedure FormActivate(Sender: TObject);
    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    procedure SetToolbarHints;
  public
    FormTables: TFormTables;
    procedure DockInit;
    procedure UpdateInterface;
  end;

var
  FormMain: TFormMain;


implementation

{$R *.lfm}

uses
  UCore;

{ TFormMain }

procedure TFormMain.FormActivate(Sender: TObject);
begin
  Core.Init;
  // TODO: Toolbar height is incorrectly calculated
  ToolBar1.ButtonHeight := ToolBar1.Height;
end;

procedure TFormMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);
begin
  Core.Done;
  Core.PersistentForm1.Save(Self);
end;

procedure TFormMain.FormCreate(Sender: TObject);
begin
  FormTables := TFormTables.Create(nil);
end;

procedure TFormMain.FormDestroy(Sender: TObject);
begin
  FreeAndNil(FormTables);
end;

procedure TFormMain.FormShow(Sender: TObject);
begin
  Core.PersistentForm1.Load(Self, True);
  SetToolbarHints;
  DockInit;
end;

procedure TFormMain.DockInit;
begin
  FormTables.ManualDock(FormMain, nil, alClient);
  FormTables.Align := alClient;
  FormTables.Show;
end;

procedure TFormMain.UpdateInterface;
var
  NewCaption: string;
begin
  NewCaption := Application.Title;
  if Assigned(Core.DbClient) then
    NewCaption := Core.DbClient.ConnectProfile.Name + ' - ' + NewCaption;
  FormMain.Caption := NewCaption;
  FormTables.UpdateInterface;
end;

procedure TFormMain.SetToolbarHints;
var
  I: Integer;
  J: Integer;
  Control: TControl;
begin
  for J := 0 to CoolBar1.ControlCount - 1 do begin
    Control := CoolBar1.Controls[J];
    if Control is TToolBar then begin
      for I := 0 to TToolBar(Control).ButtonCount - 1 do begin
        TToolBar(Control).Buttons[I].ShowHint := True;
        TToolBar(Control).Buttons[I].Hint := TToolBar(Control).Buttons[I].Caption;
      end;
    end;
  end;
end;

end.