jvcl - TJvXPMenuItemPainter 에 짜증나는 버그

해당 버그 현상은 일단 다음과 같습니다. ( JVCL347CompleteJCL241-Build4571 )

메뉴를 띄우게 되면 ( 알려진 프로그램이라서 캡션은 따로 삭제하였습니다. ) 처음에 다음과 같이 나오고,

메뉴를 마우스에 가까이 가져가면..

다음과 같이 나옵니다.

각각 확대해보면 다음과 같습니다.

다른 점을 찾으셧나요?

테두리 색상이 마우스를 갔다되면 바뀌는게 이게 의도한 것인지 버그인지는 모르겠으나 일단 저의 입장에서는 버그로 보입니다.

하이라이트 개념으로 만들었다면 다시 마우스를 메뉴바깥으로 가져갈 때 원래대로 되돌아와야 하는데 그렇지는 않구요.

처음 메뉴를 띄웠을 때 기본 테두리를 그대로 가져가면 좋겠는데 그렇지가 않아서 그렇게 수정할려고 하니까 아예 jvcl 코드자체를 수정해야 되더군요.

삽질을 방지하기 위해서 수정한 부분을 적어보면 다음과 같습니다.

아래 함수가 수정되었는데 마우스를 가져갔을 때 테두리가 그려지는 함수자체를 호출하지 않도록 하면 메뉴를 선택했을 때 하이라이트 되는 테두리가 제대로 그려지지 않아서 수정합니다.

procedure TJvXPMenuItemPainter.DrawSelectedFrame(ARect: TRect);
begin
  with Canvas do
  begin
    Font.Color := clMenuText;
    if IsPopup(FItem) then
    begin
      Brush.Assign(SelectionFrameBrush);
      Pen.Style := psClear;
      Rectangle(1, ARect.Top, ARect.Right + 4, ARect.Bottom - 1);
      Pen.Assign(SelectionFramePen);
      Brush.Style := bsClear;

      MoveTo(1, ARect.Top);
      LineTo(ARect.Right + 4, ARect.Top);
      MoveTo(1, ARect.Bottom - 2);
      LineTo(ARect.Right + 4, ARect.Bottom - 2);

      MoveTo(1, ARect.Top);
      LineTo(1, ARect.Bottom - 2);
      MoveTo(ARect.Right - 1, ARect.Top);
      LineTo(ARect.Right - 1, ARect.Bottom - 2);

    end
    else
    begin
      Brush.Color := clSilver;
      Brush.Style := bsSolid;
      Pen.Color := clGray;
      Pen.Style := psSolid;
      Rectangle(ARect);
    end;
  end;
end;

그리고 아래 부분은 마우스를 가져갔을 때 테두리가 안 그려지도록 하는 부분입니다.

procedure TJvXPMenuItemPainter.Paint(Item: TMenuItem; ItemRect: TRect;
  State: TMenuOwnerDrawState);
var
  CanvasWindow: HWND;
  WRect: TRect;
  DefProc: Pointer;
  TmpDC: hDC;
begin
  FItem := Item;

  // draw the contour of the window
  if IsPopup(Item) and not(csDesigning in ComponentState) then
  begin
    CanvasWindow := WindowFromDC(Canvas.Handle);

    if not(Assigned(FMainMenu) and (FMainMenu.GetOwner <> nil) and
      (FMainMenu.GetOwner is TForm) and
      (TForm(FMainMenu.GetOwner).Handle = CanvasWindow)) then
    begin
      // If we have a window, that has a WndProc, which is different from our
      // replacement WndProc and we are not at design time, then install
      // our replacement WndProc.
      // Once this is done, we can draw the border in the appropriate rect.

      // Note that if the menu has sub-menus we can have multiple hooks; so we
      // use TWindowList
      if CanvasWindow <> 0 then
      begin
        GetWindowRect(CanvasWindow, WRect);

        DefProc := Pointer(GetWindowLongPtr(CanvasWindow, GWL_WNDPROC));
        if (DefProc <> nil) and (DefProc <> @XPMenuItemPainterWndProc) and
          not(csDesigning in Menu.ComponentState) then
        begin
          currentXPPainter := Self;
          // 현재 메뉴에 전체 보더를 그리지 않도록 수정해놨는데
          // 이 부분에서 서브 메뉴에 의해서 탑 메뉴가 가려진 후 다시 나타날 때
          // XPMenuItemPainterWndProc 호출되는데 간혹 이 부분에서 보더가 그려지는
          // 문제가 있어서 주석처리합니다.
          // WindowList.AddHook(CanvasWindow, DefProc, @XPMenuItemPainterWndProc);
        end;

        (* // Note: we draw the border here. But using the "Canvas" property is
          // not good enough as it does not take into account the borders of the
          // menu. So for version prior to Vista, be draw directly on the desktop
          // window canvas. However, with desktop composition under Vista, this
          // is awfully slow so we try to use the DISPLAY device context. Note
          // that the behaviour on Vista has not been tested as no JVCL developper
          // has access to a Vista system with the Aero them turned on.
          if JclSysInfo.GetWindowsVersion = wvWinVista then
          begin
          TmpDC := CreateDC('DISPLAY', nil, nil, nil);
          try
          if not Assigned(FBorderCanvas) then
          FBorderCanvas := TCanvas.Create;

          FBorderCanvas.Handle := TmpDC;
          DrawBorder(FBorderCanvas, WRect);
          finally
          DeleteDC(TmpDC);
          end;
          end
          else *)
        begin
          if not Assigned(FBorderCanvas) then
            FBorderCanvas := TCanvas.Create;

          TmpDC := GetWindowDC(CanvasWindow);
          try
            FBorderCanvas.Handle := TmpDC;
            // DrawBorder(FBorderCanvas, WRect);
          finally
            FBorderCanvas.Handle := 0;
            ReleaseDC(CanvasWindow, TmpDC);
          end;
        end;
      end;
    end;
  end;

  // then draw the items
  inherited Paint(Item, ItemRect, State);
end;

소스를 수정하고 저장한다고 해서 바로 적용되는 것은 아닙니다.

왜냐면 기본적으로 pas를 참조하는게 아니라  dcu를 참조하기 때문에 jvMenus.duc를 따로 찾아서 삭제하고 수정된  jvMenus.Pas를 참조하도록 변경해야 합니다.

전체코드는 다음과 같습니다.