Changeset 113 for oup/current/Main.pas

Timestamp:

Feb 25, 2007, 6:20:22 PM (18 years ago)

Author:

alloc

Message:

 

File:

• oup/current/Main.pas (modified) (6 diffs)

oup/current/Main.pas

@@ -170 +170 @@
   toolform: TForm_ToolTemplate;
 begin
+  Result := True;
   if MDITab.MDIChildCount > 0 then
   begin
@@ -180 +181 @@
         begin
           if not toolform.Closeable then
-            ShowMessage('Can not close toolwindow: ' + toolform.Caption); 
+          begin
+            ShowMessage('Can not close toolwindow: ' + toolform.Caption);
+            Result := False;
+          end;
         end; 
       end;
@@ -235 +239 @@
 
 procedure TForm_Main.FormCreate(Sender: TObject);
-var
-  RepMsg: TStatusMessages;
 begin
   Self.Caption := 'Oni Un/Packer ' + version;
@@ -441 +443 @@
   mode: TTBItemDisplayMode;
   i: Integer;
-  isEnabled: Boolean;
 begin
   toolbar := TTBToolbar(Sender);
@@ -674 +675 @@
 var
   name: String;
-  i: Integer;
   index: Integer;
   RepMsg: TStatusMessages;
@@ -743 +743 @@
   iconindex := -1;
   caption_end := IntToStr(tag) + '       ';
+
+  toolform := nil;
 
   if window_context = 'binedit' then