TB2Merge, Version 1.1a (alt)
Hinweis: dies ist nicht die neueste Version!
Datei: Sample/child1.pas
{ child1.pas This file is part of the TB2Merge.pas sample application. Info at http://flocke.vssd.de/prog/code/pascal/tb2merge/ Copyright (C) 2005, 2006 Volker Siebert <flocke@vssd.de> All rights reserved. } unit child1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, TB2Item, ImgList, TB2Dock, TB2Toolbar, ExtCtrls; type TfrmMDIChild1 = class(TForm) TBDock1: TTBDock; tbChildMenuBar: TTBToolbar; TBImageList1: TTBImageList; TBSubmenuItem1: TTBSubmenuItem; TBItem1: TTBItem; TBItem2: TTBItem; TBItem3: TTBItem; TBSeparatorItem1: TTBSeparatorItem; TBItem4: TTBItem; TBItem5: TTBItem; TBItem6: TTBItem; TBItem7: TTBItem; Panel1: TPanel; procedure TBItemClick(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormCreate(Sender: TObject); private { Private-Deklarationen } protected procedure WMMDIActivate(var Message: TWMMDIActivate); message WM_MDIACTIVATE; public { Public-Deklarationen } end; var frmMDIChild1: TfrmMDIChild1; implementation uses Menus, TB2Merge, main; {$R *.dfm} var Counter: Integer = 0; procedure TfrmMDIChild1.FormCreate(Sender: TObject); begin Counter := Counter + 1; Caption := 'RED child ' + IntToStr(Counter); Panel1.Caption := Caption; TBImageList1.BkColor := BlendColor(tbChildMenuBar.Color, Panel1.Font.Color, 20); TBFixImageList(tbChildMenuBar.Items, tbChildMenuBar.Images); end; procedure TfrmMDIChild1.WMMDIActivate(var Message: TWMMDIActivate); begin inherited; if Message.ActiveWnd = Handle then ToolbarMerger.Merge(frmMDIParent.tbMainMenuBar, tbChildMenuBar, []) else ToolbarMerger.UnmergeAll(tbChildMenuBar); end; procedure TfrmMDIChild1.FormClose(Sender: TObject; var Action: TCloseAction); begin Action := caFree; end; procedure TfrmMDIChild1.TBItemClick(Sender: TObject); begin if Sender is TTBItem then MessageDlg(Caption + ': ' + StripHotkey(TTBItem(Sender).Caption), mtInformation, [mbOk], 0); end; end. |