Ignore:
Timestamp:
Feb 22, 2023, 1:45:24 AM (2 years ago)
Author:
ataylor
Message:

Finish(?) implementing scale-to-font logic for NewView dialogs.

Location:
trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        11[Ee][Nn][Vv].[Ii][Nn][Cc]
         2*.[Bb][Aa][Kk]

  • trunk/NewView/FileDialogForm.pas

    r105 r465  
    150150Procedure TFileDialogForm.FileDialogFormOnSetupShow (Sender: TObject);
    151151Begin
    152   ScaleForm( self, 11, 16 );
     152  ScaleForm( self, 10, 16 );
     153
     154  // ScaleForm seems to misposition the combo-boxes, so we fix that here
     155  DriveComboBox.Bottom := DrivesLabel.Bottom - DriveComboBox.Height;
     156  FilterComboBox.Bottom := FilterLabel.Bottom - FilterComboBox.Height;
    153157
    154158  FileNameEdit.YAlign := yaTop;
    … …  
    163167  DriveComboBox.YAlign := yaTop;
    164168  DrivesLabel.YAlign := yaTop;
     169
    165170  DirectoryListBox.YStretch := ysFrame;
    166171  DirectoriesLabel.YAlign := yaTop;
    … …  
    171176
    172177  LayoutControls;
     178  FileListBox.SetColumnWidth( 0, Canvas.TextWidth('A_Suitably_Long_FileName.EXT'));
     179
    173180End;
    174181
    … …  
    366373  SplitX := round( ClientWidth * Split );
    367374  LeftPaneWidth := SplitX - 8; // note we are not including borders here
    368   RightPaneWidth := ClientWidth - SplitX - 8;
    369   RightPaneX := SplitX + 3;
     375  RightPaneWidth := ClientWidth - SplitX - 9;
     376  RightPaneX := SplitX + 4;
    370377
    371378  DrivesLabel.Width := LeftPaneWidth;
Note: See TracChangeset for help on using the changeset viewer.