Case ISFS_SOLIDCOLOR                            '''' 实色填充

                                hPen = CreatePen(PS_SOLID, 0, FillStartColor)

                                hBrush = CreateSolidBrush(FillStartColor)

                                SelectObject .hdc, hPen

                                SelectObject .hdc, hBrush

                                Rectangle .hdc, itemRect.Left, itemRect.Top, itemRect.Right, itemRect.Bottom

                                DeleteObject hPen

                                DeleteObject hBrush

                        End Select

                        '''' 画菜单项文字

                        SetTextColor .hdc, TextSelectColor

                        DrawText .hdc, MyItemInfo(.itemID).itemText, -1, textRect, DT_SINGLELINE Or DT_LEFT Or DT_VCENTER

                        '''' 画菜单项图标

                        If MyItemInfo(.itemID).itemType <> MIT_CHECKBOX Then

                            DrawIconEx .hdc, iconRect.Left + 2, iconRect.Top + (iconRect.Bottom - iconRect.Top + 1 - 16) / 2, MyItemInfo(.itemID).itemIcon, 16, 16, 0, 0, DI_NORMAL

                            Select Case IconStyle

                                Case IIS_NONE                                               '''' 无效果

                                Case IIS_SUNKEN                                             '''' 凹进

                                    If MyItemInfo(.itemID).itemIcon <> 0 Then

                                        DrawEdge .hdc, iconRect, BDR_SUNKENOUTER, BF_RECT

                                    End If

                                Case IIS_RAISED                                             '''' 凸起

                        &n

 << 上一页  [11] [12] [13] [14] [15] [16]  下一页