No commit message

pyscripter · Dec 31, 2017 · c3cf4e9 · c3cf4e9
1 parent eebc721
commit c3cf4e9
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 12 deletions.
diff --git a/dlgNewFile.dfm b/dlgNewFile.dfm
@@ -28,6 +28,7 @@ inherited NewFileDialog: TNewFileDialog
         Top = 1
         Height = 253
         Cursor = crSizeWE
+        ResizeStyle = rsUpdate
         ExplicitLeft = 187
         ExplicitTop = 2
         ExplicitHeight = 251

diff --git a/frmFindResults.dfm b/frmFindResults.dfm
@@ -68,12 +68,15 @@ inherited FindResultsWindow: TFindResultsWindow
         TabOrder = 0
         object Splitter: TSpTBXSplitter
           Left = 0
-          Top = 234
+          Top = 239
           Width = 599
-          Height = 8
+          Height = 3
           Cursor = crSizeNS
           Align = alBottom
+          Color = clNone
+          ParentColor = False
           MinSize = 20
+          ExplicitTop = 234
         end
         object TBXDock1: TSpTBXDock
           Left = 0
@@ -148,7 +151,7 @@ inherited FindResultsWindow: TFindResultsWindow
           Left = 0
           Top = 26
           Width = 599
-          Height = 208
+          Height = 213
           Align = alClient
           Constraints.MinHeight = 120
           ItemHeight = 17
@@ -159,17 +162,19 @@ inherited FindResultsWindow: TFindResultsWindow
           OnKeyPress = lbResultsKeyPress
           OnMouseUp = lbResultsMouseUp
           HotTrack = False
+          ExplicitHeight = 208
         end
         object reContext: TRichEdit
           Left = 0
           Top = 242
           Width = 599
           Height = 88
           Align = alBottom
+          BorderStyle = bsNone
           Font.Charset = ANSI_CHARSET
           Font.Color = clWindowText
           Font.Height = -11
-          Font.Name = 'MS Shell Dlg 2'
+          Font.Name = 'Courier New'
           Font.Style = []
           ParentFont = False
           ReadOnly = True

diff --git a/frmFindResults.pas b/frmFindResults.pas
@@ -354,17 +354,17 @@ procedure TFindResultsWindow.lbResultsDrawItem(Sender: TObject;
 
     if odSelected in State then
     begin
-      nb := clHighlight;
-      nf := clHighLightText;
-      sb := clWindow;
-      sf := clWindowText;
+      nb := SpTBXThemeServices.GetSystemColor(clHighlight);
+      nf := SpTBXThemeServices.GetSystemColor(clHighLightText);
+      sb := SpTBXThemeServices.GetSystemColor(clWindow);
+      sf := SpTBXThemeServices.GetSystemColor(clWindowText);
     end
     else
     begin
-      sb := clHighlight;
-      sf := clHighLightText;
-      nb := clWindow;
-      nf := clWindowText;
+      sb := SpTBXThemeServices.GetSystemColor(clHighlight);
+      sf := SpTBXThemeServices.GetSystemColor(clHighLightText);
+      nb := SpTBXThemeServices.GetSystemColor(clWindow);
+      nf := SpTBXThemeServices.GetSystemColor(clWindowText);
     end;
 
     ResultsCanvas.Brush.Color := nb;