Jelajahi Sumber

Tweak Change dir and File open dialog size.

Margers 1 bulan lalu
induk
melakukan
27a548fc38
2 mengubah file dengan 4 tambahan dan 4 penghapusan
  1. 2 2
      packages/ide/fpviews.pas
  2. 2 2
      packages/ide/weditor.pas

+ 2 - 2
packages/ide/fpviews.pas

@@ -4663,8 +4663,8 @@ begin
    {resize}
    {resize}
    if Desktop^.Size.Y > 26 then
    if Desktop^.Size.Y > 26 then
      GrowTo(Size.X,Desktop^.Size.Y-6);
      GrowTo(Size.X,Desktop^.Size.Y-6);
-   if Desktop^.Size.X > 80 then
-     GrowTo(Min(Desktop^.Size.X-(80-Size.X),102),Size.Y);
+   if Desktop^.Size.X > 60 then
+     GrowTo(Min(Desktop^.Size.X-(60-Size.X),102),Size.Y);
    {set focus on the new input line}
    {set focus on the new input line}
    DirInput^.Focus;
    DirInput^.Focus;
 end;
 end;

+ 2 - 2
packages/ide/weditor.pas

@@ -7876,8 +7876,8 @@ begin
   {resize}
   {resize}
   if Desktop^.Size.Y > 26 then
   if Desktop^.Size.Y > 26 then
     GrowTo(Size.X,Desktop^.Size.Y-6);
     GrowTo(Size.X,Desktop^.Size.Y-6);
-  if Desktop^.Size.X > 80 then
-    GrowTo(Min(Desktop^.Size.X-(80-Size.X),102),Size.Y);
+  if Desktop^.Size.X > 70 then
+    GrowTo(Min(Desktop^.Size.X-(70-Size.X),102),Size.Y);
   FileList^.NumCols:= Max((FileList^.Size.X-(FileList^.Size.X div 14)) div 14,2);
   FileList^.NumCols:= Max((FileList^.Size.X-(FileList^.Size.X div 14)) div 14,2);
   { Adjust scrollbar step and page step }
   { Adjust scrollbar step and page step }
   FileList^.SetRange(FileList^.Range); {set again for scrollbar min max values}
   FileList^.SetRange(FileList^.Range); {set again for scrollbar min max values}