ViewVC Help
View File | Revision Log | View Changeset | Root Listing
root/Oni2/oup/releases/0.33a/Main.pas
(Generate patch)

Comparing oup/current/Main.pas (file contents):
Revision 46 by alloc, Sat Dec 23 16:26:43 2006 UTC vs.
Revision 51 by alloc, Sat Dec 23 22:16:42 2006 UTC

# Line 66 | Line 66 | type
66      tb_rawedit: TTBItem;
67      tb_datedit: TTBItem;
68      menu_windows_tilevert: TTBItem;
69 +    tb_meta: TTBItem;
70 +    menu_meta: TTBItem;
71 +    TBSeparatorItem1: TTBSeparatorItem;
72 +    tb_db2dat: TTBItem;
73 +    tb_dat2db: TTBItem;
74      function TryCloseAll: Boolean;
75      procedure menu_AboutClick(Sender: TObject);
76      procedure menu_settingsClick(Sender: TObject);
# Line 98 | Line 103 | type
103      procedure MDITabMouseUp(Sender: TObject; Button: TMouseButton;
104        Shift: TShiftState; X, Y: Integer);
105      procedure menu_windows_tilevertClick(Sender: TObject);
106 +    procedure menu_metaClick(Sender: TObject);
107 +    procedure ToolbarDockChanged(Sender: TObject);
108    private
109    public
110    end;
# Line 279 | Line 286 | end;
286  
287  
288  
289 + procedure TForm_Main.ToolbarDockChanged(Sender: TObject);
290 + var
291 +  toolbar: TTBToolbar;
292 +  position: TTBDockPosition;
293 +  mode: TTBItemDisplayMode;
294 +  i: Integer;
295 +  isEnabled: Boolean;
296 + begin
297 +  toolbar := TTBToolbar(Sender);
298 +  if toolbar.Floating then
299 +    mode := nbdmImageAndText
300 +  else begin
301 +    position := toolbar.CurrentDock.Position;
302 +    if position in [dpLeft, dpRight] then
303 +      mode := nbdmDefault
304 +    else
305 +      mode := nbdmImageAndText;
306 +  end;
307 +  for i := 0 to toolbar.Items.Count - 1 do
308 +    toolbar.Items.Items[i].DisplayMode := mode;
309 + end;
310 +
311   function TForm_Main.TryCloseAll: Boolean;
312   begin
313    menu_windows_closeallClick(Self);
# Line 425 | Line 454 | begin
454   end;
455  
456  
457 + procedure TForm_Main.menu_metaClick(Sender: TObject);
458 + begin
459 +  ShowMessage('TBD');
460 + end;
461 +
462 +
463   procedure TForm_Main.menu_filecompareClick(Sender: TObject);
464   begin
465    open_child('compare', -1);

Diff Legend

– Removed lines
+ Added lines
< Changed lines (old)
> Changed lines (new)