Bladeren bron

tab stop on file extension combobox

Johann ELSASS 4 jaren geleden
bovenliggende
commit
1eae39367b
2 gewijzigde bestanden met toevoegingen van 4 en 0 verwijderingen
  1. 1 0
      lazpaint/dialog/ubrowseimages.pas
  2. 3 0
      lazpaint/udarktheme.pas

+ 1 - 0
lazpaint/dialog/ubrowseimages.pas

@@ -323,6 +323,7 @@ begin
 
   FCreateFolderOrContainerCaption := ToolButton_CreateFolderOrContainer.Hint;
   ToolButton_CreateFolderOrContainer.Hint := ToolButton_CreateFolderOrContainer.Hint + '...';
+  ComboBox_FileExtension.TabStop := true;
 end;
 
 procedure TFBrowseImages.FormDestroy(Sender: TObject);

+ 3 - 0
lazpaint/udarktheme.pas

@@ -400,6 +400,7 @@ begin
   Apply(ACombo.Button, ADarkTheme, AFontHeightRatio);
   with ACombo do
   begin
+    FocusBorderOpacity:= 128;
     fh := round((Height+4)*AFontHeightRatio);
     Button.StateNormal.FontEx.Height := fh;
     Button.StateNormal.FontEx.ShadowColorOpacity:= 96;
@@ -412,11 +413,13 @@ begin
       DropDownBorderColor:= clBlack;
       DropDownFontColor:= clLightText;
       DropDownColor:= clDarkBtnFace;
+      FocusBorderColor:= clLightText;
     end else
     begin
       DropDownBorderColor := MergeBGRA(ColorToBGRA(clWindowText),ColorToBGRA(clWindow));
       DropDownFontColor:= clWindowText;
       DropDownColor:= clWindow;
+      FocusBorderColor:= clWindowText;
     end;
     DropDownFontHighlight:= clHighlightText;
     DropDownHighlight:= clHighlight;