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/GlobalSearchForm.pas

    r392 r465  
    301301Procedure TGlobalSearchForm.GlobalSearchFormOnSetupShow (Sender: TObject);
    302302Begin
    303   ScaleForm( self, 11, 16 );
     303  ScaleForm( self, 8, 16 );
     304  // Fix scaling issues on some controls
     305  if SearchTextLabel1.Top > (SearchLocationComboBox.Top + 2) then
     306    SearchTextLabel1.Top := SearchLocationComboBox.Top + 2;
     307  Bevel.Bottom := ClientHeight - ResultsLabel.Top + 4;
     308  Led.Height := ResultsLabel.Height;
     309  Led.Width := Led.Height;
     310  Led.Top := ResultsLabel.Top;
     311
    304312  SearchButton.Align := alFixedRightTop;
    305313
Note: See TracChangeset for help on using the changeset viewer.