Changeset 465 for trunk/NewView/MainForm.pas

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:

• . (modified) (1 prop)
• NewView/MainForm.pas (modified) (4 diffs)

trunk

@@ -1 +1 @@
 [Ee][Nn][Vv].[Ii][Nn][Cc]
+*.[Bb][Aa][Kk]

@@ -1 +1 @@
 [Ee][Nn][Vv].[Ii][Nn][Cc]
+*.[Bb][Aa][Kk]

trunk/NewView/MainForm.pas

@@ -3889 +3889 @@
   ContentsOutline.SmoothScroll := false;
 
-  LogEvent(LogStartup, 'Choosing default font: Trying WarpSans');
+  LogEvent(LogStartup, 'Choosing default font: Trying Window Text setting');
 
   Font := GetNiceDefaultFont;
@@ -4386 +4386 @@
   StatusPanel.Left:= 0;
   StatusPanel.Width:= ClientWidth div 2 - 2;
-  StatusPanel.Height := TextHeight + 2;
+  StatusPanel.Height := TextHeight + Font.InternalLeading + 4;
 
   ProgressPanel.Left:= ClientWidth div 2 + 2;
   ProgressPanel.Width:= ClientWidth - ProgressPanel.Left;
-  ProgressPanel.Height := TextHeight + 2;
+  ProgressPanel.Height := TextHeight + Font.InternalLeading + 4;
 
   Notebook.Bottom := StatusPanel.Height + 3;
@@ -4965 +4965 @@
 
 Procedure TMainForm.NotebookOnSetupShow (Sender: TObject);
-Begin
+var
+  btnWidth: integer;
+  btnHeight: integer;
+Begin
+  btnWidth := Canvas.TextWidth('M') * 8;
+  btnHeight := trunc( Canvas.TextHeight('M') * 1.5 );
+
+  DeleteNoteButton.Width := btnWidth;
+  DeleteNoteButton.Height := btnHeight;
+  GotoNoteButton.Width := btnWidth;
+  GotoNoteButton.Height := btnHeight;
+  GotoNoteButton.Left := btnWidth + 10;
+  AddNoteButton.Width := btnWidth;
+  AddNoteButton.Height := btnHeight;
+  AddNoteButton.Bottom := btnHeight + 5;
+  EditNoteButton.Width := btnWidth;
+  EditNoteButton.Height := btnHeight;
+  EditNoteButton.Left := btnWidth + 10;
+  EditNoteButton.Bottom := btnHeight + 5;
+
   ContentsOutline.xStretch := xsFrame;
   ContentsOutline.yStretch := ysFrame;
@@ -4980 +4999 @@
   SearchResultsListBox.xStretch := xsFrame;
   SearchResultsListBox.yStretch := ysFrame;
+
+  NotesListBox.Bottom := 2 * btnHeight + 10;
+  NotesListBox.Height := Notebook.ClientHeight - NotesListBox.Bottom;
 
   NotesListBox.xStretch := xsFrame;

@@ -1 +1 @@
 [Ee][Nn][Vv].[Ii][Nn][Cc]
+*.[Bb][Aa][Kk]