如何从 Perl 完全改变 Win32 标题栏的外观？

发布于 2024-08-18 20:33:06 字数 1777 浏览 4 评论 0原文

我正在学习使用 Win32::GUI 将 GUI 添加到我的 Perl 程序中。现在我可以使用以下内容更改 Win32 标题栏的图标：

$myicon = new Win32::GUI::Icon('myicon.ico');
$myclass=new Win32::GUI::Class(
-name=>'myclass',                     
-icon=>$myicon,  
    );  
$mydialogbox = new Win32::GUI::DialogBox(
  -name         => 'mydialogbox',
  -class        => $myclass,
  );

但是其他东西（例如背景颜色、最小化按钮的外观和感觉）又如何呢？

我用谷歌搜索了这个主题，发现了几篇可能相关的文章。他们谈论诸如非客户区绘画等内容，但代码片段似乎都是用 C 编写的，我对此不太熟悉。

我想知道这里是否有人可以分享一些用 Perl 编写的处理类似情况的代码片段？或者，是否有一个 Perl 模块可以帮助完成这项任务？

感谢您的任何指导:)

****更新1****

我可以先让标题栏消失，然后在原始标题栏所在的位置添加一个标签，然后添加一些其他按钮来最小化和关闭对象吗？

现在的问题是：当鼠标位于标签上时，如何移动 Window 对象？

****UPDATE2****

我发现了一些 VB 代码片段，它们应该能够完成我想要在 Perl 中完成的工作。有人可以帮我用 Win32::GUI 重写它们吗？以下 VB 代码来自此处：

    Option Explicit

' API functions
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

' Constants for above API calls
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1

Private Sub Form_Load()
  Dim retVal As Long

  retVal = SetWindowText(Me.hwnd, Label1)
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ReleaseCapture
  SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

原文

I'm learning to add GUI to my Perl program using Win32::GUI. Now I can change the icon of a Win32 title bar using something like:

$myicon = new Win32::GUI::Icon('myicon.ico');
$myclass=new Win32::GUI::Class(
-name=>'myclass',                     
-icon=>$myicon,  
    );  
$mydialogbox = new Win32::GUI::DialogBox(
  -name         => 'mydialogbox',
  -class        => $myclass,
  );

But what about the other stuff, say, the background color, the look and feel of the minimize button?

I googled the subject and found several possibly relevant articles. They talk about stuff like non client area paiting etc etc. but the code snippets seem to be all written in C, with which I don't have a good familiarity.

I was wondering if someone here could kindly share some code snippets written in Perl that deals with the similar situation? Or, is there, hopefully, a Perl module that can facilitate the task?

Thanks for any guidance :)

****UPDATE1****

Can I first make the title bar disappear and then add a label where the original title bar was and then add some other buttons to minimize and close the object?

Now the problem is: how can I move the Window object when my mouse is on the label?

****UPDATE2****

I've found some VB code snippets that are supposed to do the job I want to accomplish in Perl. Can someone kindly help me rewrite them in Win32::GUI?
The following VB code is from here:

    Option Explicit

' API functions
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

' Constants for above API calls
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1

Private Sub Form_Load()
  Dim retVal As Long

  retVal = SetWindowText(Me.hwnd, Label1)
End Sub

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ReleaseCapture
  SendMessage hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Sub

分享到QQ

分享到微博