投稿者 snowmansnow  (社会人) 投稿日時 2021/12/28 23:03:09

 こんばんは、魔界の仮面弁士様
 >MyDC1 で選択中のペンオブジェクトを削除してはまずいのではないでしょうか。
  >処分前に、最初のオブジェクトに復元しておいた方がよろしいかと。
 直してみました
 
    MyPen = CreatePen(PS_SOLID, 0, RGB(255, 255, 255))
    Call SelectObject(MyDC1, MyPen)
    MyBrush = GetStockObject(WHITE_BRUSH)
    Call SelectObject(MyDC1, MyBrush)
    Call Rectangle(MyDC1, 0, 0, CWIDTH, CHEIGHT)
    Call SelectObject(MyDC1, MyPen)
    DeleteObject (MyPen)
    Call SelectObject(MyDC1, MyBrush)
    DeleteObject (MyBrush)
 

 
    Call SelectObject(MyDC1, MyPen)
    Call Rectangle(MyDC1, f2, f1, f2 + 3, f1 + 3)
    Call SelectObject(MyDC1, MyPen)
    DeleteObject (MyPen)