1 files changed, 155 insertions, 0 deletions
diff --git a/gui/menus.inc b/gui/menus.inc
new file mode 100644
index 00000000..efaf5e28
--- /dev/null
+++ b/gui/menus.inc
@@ -0,0 +1,155 @@
+{
+    fpGUI  -  Free Pascal Graphical User Interface
+    Copyright (C) 2006 by Graeme Geldenhuys 
+      member of the fpGUI development team.
+
+    Menu class declarations
+
+    See the file COPYING.fpGUI, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+
+{%mainunit fpgui.pp}
+
+{
+  All menu and menu item implementations
+}
+
+{$IFDEF read_interface}
+
+  { TMenuItem }
+
+  TMenuItem = class(TCustomPanel)
+  private
+    FHotKeyDef: string;
+    FSeparator: boolean;
+  protected
+    function    ProcessEvent(pEvent: TEventObj): Boolean; override;
+  public
+    constructor Create(const pText: string; pOwner: TComponent); overload;
+  published
+    property    Separator: boolean read FSeparator write FSeparator;
+    property    HotKeyDef: string read FHotKeyDef write FHotKeyDef;
+    property    Text;
+    property    Visible;
+    property    Enabled;
+  end;
+
+  
+  { TMenuBar }
+
+  TMenuBar = class(TBinWidget)
+  private
+  protected
+    procedure   Paint(Canvas: TFCanvas); override;
+  public
+    constructor Create(AOwner: TComponent); override;
+    destructor  Destroy; override;
+    function    AddMenu(const pTitle: string): TMenuItem;
+    function    AddMenu(const pTitle: string; const pHotKeyDef: string; pHandlerProc: TNotifyEvent): TMenuItem;
+  published
+//    FLayout: TBoxLayout;
+  end;
+
+{$ENDIF read_interface}
+
+
+
+{$IFDEF read_implementation}
+
+{ TMenuItem }
+
+function TMenuItem.ProcessEvent(pEvent: TEventObj): Boolean;
+begin
+  if pEvent.InheritsFrom(TMouseMoveEventObj) then
+    Writeln('MenuItem ' + Text
+        + ' X=' + IntToStr(TMouseMoveEventObj(pEvent).Position.X)
+        + ',Y=' + IntToStr(TMouseMoveEventObj(pEvent).Position.Y));
+
+  Result := inherited ProcessEvent(pEvent);
+end;
+
+constructor TMenuItem.Create(const pText: string; pOwner: TComponent);
+begin
+  inherited Create(pText, pOwner);
+  FBevelStyle := bsPlain;
+end;
+
+
+procedure TMenuBar.Paint(Canvas: TFCanvas);
+{var
+  i: integer;   }
+begin
+//  inherited Paint(Canvas);
+  Style.DrawWindowBackground(Canvas, ClientRect);
+//  FLayout.Paint(Canvas);
+{
+
+  for i := 1 to VisibleCount do
+  begin
+    DrawColumn(Canvas, i, i = FFocusItem);
+  end;
+
+  Style.DrawSeparator(
+      Canvas,
+      Rect(0, ClientRect.Bottom - 4, ClientRect.Right, ClientRect.Bottom),
+      Horizontal);
+ }
+end;
+
+constructor TMenuBar.Create(AOwner: TComponent);
+begin
+  inherited Create(AOwner);
+//  WidgetStyle := WidgetStyle + [wsCaptureMouse, wsClickable, wsOpaque];
+  FCanExpandWidth := True;
+{
+  FLayout := TBoxLayout.Create(nil);
+  FLayout.Spacing := 0;
+  FLayout.BorderSpacing := 6;
+  FLayout.HorzAlign := horzLeft;
+  
+  InsertChild(FLayout);
+}
+end;
+
+destructor TMenuBar.Destroy;
+begin
+//  RemoveChild(FLayout);
+//  FLayout.Free;
+  inherited Destroy;
+end;
+
+
+function TMenuBar.AddMenu(const pTitle: string): TMenuItem;
+begin
+  Result := TMenuItem.Create(pTitle, self);
+//  FLayout.InsertChild(Result);
+end;
+
+
+function TMenuBar.AddMenu(const pTitle: string; const pHotKeyDef: string;
+  pHandlerProc: TNotifyEvent): TMenuItem;
+begin
+  Result := TMenuItem.Create(self);
+  if pTitle <> '-' then
+  begin
+    Result.Text       := pTitle;
+    Result.HotKeyDef  := pHotKeyDef;
+    Result.OnClick    := pHandlerProc;
+  end
+  else
+  begin
+    Result.Separator  := True;
+  end;
+//  FLayout.InsertChild(Result);
+end;
+
+
+{$ENDIF read_implementation}
+