소스 검색

stack checkers scaling

Johann ELSASS 5 년 전
부모
커밋
5fe73e61e1
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  1. 1 1
      lazpaint/dialog/ulayerstackinterface.pas

+ 1 - 1
lazpaint/dialog/ulayerstackinterface.pas

@@ -831,7 +831,7 @@ procedure TLayerStackInterface.NeedCheckers;
 var
 var
   checkerSize: Integer;
   checkerSize: Integer;
 begin
 begin
-  checkerSize := DoScaleX(2, OriginalDPI, DPI);
+  checkerSize := DoScaleX(round(2*FScaling), OriginalDPI, DPI);
   if Assigned(FRegularBackground) and (FRegularBackground.Width <> checkerSize*2) then
   if Assigned(FRegularBackground) and (FRegularBackground.Width <> checkerSize*2) then
   begin
   begin
     FreeAndNil(FRegularBackground);
     FreeAndNil(FRegularBackground);