Changeset 60 for Docking/CoolDocking/Demo/UMainForm.pas

Timestamp:

Sep 24, 2010, 10:13:50 AM (14 years ago)

Author:

george

Message:

• Opraveno: Aktualizace ikony při ukotvení nové záložky.
• Opraveno: Obsluha události OnMouseDown pro záložky a opětovné umožnění uchopení oken přes záložky.

File:

• Docking/CoolDocking/Demo/UMainForm.pas (modified) (4 diffs)

Docking/CoolDocking/Demo/UMainForm.pas

@@ -1 +1 @@
 unit UMainForm;
 
-{$mode objfpc}{$H+}
+{$mode Delphi}{$H+}
 
 interface
@@ -27 +27 @@
     Panel1: TPanel;
     procedure Button1Click(Sender: TObject);
-    procedure Button2Click(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -34 +33 @@
     procedure MenuItem4Click(Sender: TObject);
   private
-    { private declarations }
   public
     FormIndex: Integer;
@@ -109 +107 @@
 end;
 
-procedure TMainForm.Button2Click(Sender: TObject);
-begin
-
-end;
-
 end.