+

gui/main.lfm

@@ -11,7 +11,7 @@ object frmMain: TfrmMain
   OnKeyDown = FormKeyDown
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '3.6.0.0'
+  LCLVersion = '3.8.0.0'
   object Pages: TPageControl
     Left = 0
     Height = 275
@@ -38,16 +38,21 @@ object frmMain: TfrmMain
         ColCount = 3
         Columns = <        
           item
+            MinSize = 10
             Title.Caption = 'Name'
-            Width = 205
+            Width = 415
           end        
           item
+            MinSize = 10
+            MaxSize = 100
             Title.Caption = 'Title id'
-            Width = 205
+            Width = 100
           end        
           item
+            MinSize = 10
+            MaxSize = 100
             Title.Caption = 'Version'
-            Width = 205
+            Width = 100
           end>
         DragMode = dmAutomatic
         FixedCols = 0
@@ -61,9 +66,9 @@ object frmMain: TfrmMain
         OnKeyDown = FormKeyDown
         OnMouseDown = ListGridMouseDown
         ColWidths = (
-          205
-          205
-          205
+          415
+          100
+          100
         )
       end
     end

gui/main.pas

@@ -844,6 +844,19 @@ procedure TfrmMain.FormCreate(Sender: TObject);
 var
  r:RawByteString;
 begin
+
+  ListGrid.Canvas.Font.Size:=GetRealFontSize(ListGrid.Canvas.Font);
+
+  with ListGrid.Columns[1] do
+  begin
+   MaxSize:=ListGrid.Canvas.GetTextWidth('MCUSA00000M');;
+  end;
+
+  with ListGrid.Columns[2] do
+  begin
+   MaxSize:=ListGrid.Canvas.GetTextWidth('M00.00M');
+  end;
+
  IpcHandler:=THostIpcHandler.Create;
 
  IpcHandler.AddCallback('KEV_EVENT'     ,@OnKevent      );