anchor.diff:        else
           if Application.MainForm <> nil then
             LPPI := Application.MainForm.CurrentPPI;
  +      OutputDebugString(PChar(Font.Height.ToString));
         ScaleForPPI(LPPI);
         Font.Assign(Screen.MessageFont);
  -      Font.Height := Muldiv(Font.Height, CurrentPPI, Screen.PixelsPerInch);
  +      Font.Height := Muldiv(Font.Height, LPPI, Screen.PixelsPerInch);
         //KV
         Canvas.Font := Font;
         DialogUnits := GetAveCharSize(Canvas);
         MaxPromptWidth := GetMaxPromptWidth(Canvas);
         BorderStyle := bsDialog;
         Caption := ACaption;
  -      ClientWidth := MulDiv(180 + MaxPromptWidth, DialogUnits.X, 4);
  +      ClientWidth := MulDiv(180 , DialogUnits.X, 4) + MaxPromptWidth;  //KV
  +      if IsCustomStyleActive then
  +        ClientWidth := ClientWidth + 4;
         PopupMode := pmAuto;
         Position := poScreenCenter;
         CurPrompt := MulDiv(8, DialogUnits.Y, 8);
  
positive.code:           Top := Prompt.Top + Prompt.Height - DialogUnits.Y -
              (GetTextBaseline(Edit, Canvas) - GetTextBaseline(Prompt, Canvas));
            Width := Form.ClientWidth - Left - MulDiv(8, DialogUnits.X, 4);
            MaxLength := 255;
            Text := AValues[I];
            SelectAll;
            Prompt.FocusControl := Edit;
          end;
          CurPrompt := Edit.Top + Edit.Height + 5;
        end;
        ButtonTop := Edit.Top + Edit.Height + 15;
        ButtonWidth := MulDiv(50, DialogUnits.X, 4);
        ButtonHeight := MulDiv(14, DialogUnits.Y, 8);
        with TButton.Create(Form) do
        begin
          Parent := Form;
          Caption := SMsgDlgOK;
          ModalResult := mrOk;
          Default := True;
          SetBounds(Form.ClientWidth - (ButtonWidth + MulDiv(8, DialogUnits.X, 4)) * 2, ButtonTop, ButtonWidth, ButtonHeight);
        end;
        with TButton.Create(Form) do
        begin
  
negative.code:         Caption := SMsgDlgCancel;
          ModalResult := mrCancel;
          Cancel := True;
          SetBounds(Form.ClientWidth - (ButtonWidth + MulDiv(8, DialogUnits.X, 4)) - ButtonsRightOffset, ButtonTop, ButtonWidth, ButtonHeight);
          Form.ClientHeight := Top + Height + MulDiv(13 + 2 * ButtonsRightOffset, LPPI, 96);
        end;
        if ShowModal = mrOk then
        begin
  