[*] allow pop-up editor resizing, resolves #51

Author: pashagolub

forms/frametaskcommand.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, Forms, Controls, ExtCtrls, StdCtrls, SynEdit,
-  SynHighlighterSQL, LCLType, Db;
+  SynHighlighterSQL, LCLType, ComCtrls, Db;
 
 type
 
@@ -28,6 +28,7 @@   TfrmTaskCommand = class(TFrame)
     procedure ShowEditor(AField: TField; ATopLeft: TPoint);
     procedure HideEditor();
     procedure ApplyChanges();
+    procedure CreateParams(var Params: TCreateParams); override;
   end;
 
 implementation
@@ -78,5 +79,11 @@ procedure TfrmTaskCommand.ApplyChanges;
   HideEditor();
 end;
 
+procedure TfrmTaskCommand.CreateParams(var Params: TCreateParams);
+begin
+  inherited CreateParams(Params);
+  Params.Style := Params.Style or WS_SIZEBOX;
+end;
+
 end.
 

pg_timetable_gui.lpr

@@ -8,7 +8,7 @@
   lazcontrols,
   fmMain, fmConnect,
   uDataModule,
-  uObjects, frameTaskCommand;
+  uObjects;
 
 {$R *.res}