https://github.com/owlsperspective/wallclock
- 設定機能も何もない、シンプルな壁時計です。起動するとメインモニタの右上に時刻と日付、曜日が表示されます。終了するときはタスクトレイアイコンを右クリックして終了を選択します。
- 時計は24時間表記で、毎秒コロン(":")が点滅します。また毎正時の前後2秒間は文字の色が赤くなります。
- 時計の表示はマウス操作を透過します。またマウスカーソルを時計の上に置くと、表示が見えなくならない程度に薄くなります。
- 他のプログラムが(PowerPointのスライドショーのように)全画面表示したり、全画面のDirect3Dアプリケーションが実行されているときは非表示になります。
- ノートPCではバッテリステータス(残量、残り時間)を表示します(Version 1.3以降)。
- Windows Windows 7/8/8.1/10/11で動作するはずです。
-
RAD Stusio (Delphi) 11 Update 3 (11.3)
https://www.embarcadero.com/jp/products/delphi -
Skia4Delphi 6.0.0 beta 3
https://skia4delphi.org/
https://github.com/skia4delphi/skia4delphi -
基本的にSkia4Delphiに対応しているDelphi XE7以降のバージョンであればコンパイルできるはずです。またCommunity Editionを含む全てのSKUでコンパイルできます。
Delphi Community Edition - エンバカデロ・テクノロジーズ
https://www.embarcadero.com/jp/products/delphi/starter
-
実行ファイル一式はGitHubからダウンロードできます。 https://github.com/owlsperspective/wallclock/releases
-
WallClock.exe(実行プログラム)とsk4d.dll(Skia4Delphi)を同一の場所に配置し、WallClock.exeを実行します。コマンドラインオプションはありません。
pikさんの以下の記事そのままです。
[Delphi] 半透明でクリックを透過するウィンドウの作り方 - Qiita
https://qiita.com/pik/items/71142d607937bc713af2
フォームのAlphaBlendプロパティをTrueにすることでLayered Windowにして、CreateParamsメソッドをoverrideしてParams.ExStyleにWS_EX_TRANSPARENTとWS_EX_NOACTIVATEを追加することでマウス操作を透過させます。
デスクトップ上に単に文字を表示すると、デスクトップや下のウィンドウの表示との関係から、常に見やすい色というのは存在しません。そこで文字を濃色として、淡色で縁取りするためにSkia4DelphiのTSkLabelを使用しています。
英数字だけの表示なので、きれいにアンチエイリアスされる英字フォントとしてCalibriを選択しました。しかしWindows標準の英字フォントはCalibriを含めほとんどがプロポーショナルフォントのため表示内容によって幅が変化してしまい、時計として表示したときに表示位置がちらちらと変化して見づらくなってしまいます。そこで1文字ごとにLabel(TSkLabel)を配置しています。
フォームのTransparentColorプロパティをTrueにして、色をTransparentColorValueプロパティに設定することで文字以外の部分を透過します。しかしそのままでは縁取りのアンチエイリアスの部分がきれいに透過されません。そこで縁取りの色とフォームの色が極めて近く(RGB各1ビットの違いに)なるようにしています。
時計表示の部分はマウス操作が透過しますが、そのままでは時計表示が邪魔をして下に何があるかわからなくなるため、マウスがフォーム上にあるときはフォームのAlphaBlendValueプロパティを(段階的に)255から減らして半透過にすることでマウス操作を妨げないようにしています。
全画面でゲームをしているときなどは時計表示が邪魔なので、フォームのVisibleプロパティをFalseにして非表示にしています。他のプログラムが全画面を占有しているかどうかは
c++ - Detecting full screen mode in Windows - Stack Overflow
https://stackoverflow.com/questions/7009080/detecting-full-screen-mode-in-windows
を参考にして、Win32APIのSHQueryUserNotificationStateでQUNS_BUSYまたはQUNS_RUNNING_D3D_FULL_SCREENが返ってくるかどうかで判定しています。
SHQueryUserNotificationState function (shellapi.h) - Win32 apps | Microsoft Learn
https://learn.microsoft.com/en-us/windows/win32/api/shellapi/nf-shellapi-shqueryusernotificationstate
QUERY_USER_NOTIFICATION_STATE (shellapi.h) - Win32 apps | Microsoft Learn
https://learn.microsoft.com/en-us/windows/win32/api/shellapi/ne-shellapi-query_user_notification_state
タスクバー上にアプリケーションやメインフォームが表示されても邪魔なだけなので、
delphi - How to hide an application from taskbar in Windows 7? - Stack Overflow
https://stackoverflow.com/questions/14811935/how-to-hide-an-application-from-taskbar-in-windows-7
にあるように、フォームのCreateParamsメソッドをoverrideしてParams.ExStyleからWS_EX_APPWINDOWを削除するとともに、PopupModeプロパティをpmExplicitにしています。
フォームのFormStyleプロパティをfsStayOnTopにすることで、常に最前面で表示されるはずなのですが、なにかの拍子で他のプログラムの後ろになってしまうことがあります。そこで全画面解除でVisbleプロパティをTrueにする、タスクトレイアイコンのクリック、タスクトレイアイコンの右クリックでポップアップメニューが表示される、というタイミングでHWND_TOPMOSTを指定してWin32APIのSetWindowPosを呼び出すことでフォームが最前面を維持するようにしています。
SetWindowPos function (winuser.h) - Win32 apps | Microsoft Learn
https://learn.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-setwindowpos
Windowsではマルチモニタの構成は動的に変更できますが、DelphiのScreen.Monitorsはいくつかの特定の状況を除き再構成されず、構成の変更が反映されません。そこで
[RSP-37708] Handles in the TScreen.Monitors list are not updated when Windows sends WM_DisplayChange - Embarcadero Technologies
https://quality.embarcadero.com/browse/RSP-37708
のコメントにあるworkaroundに従って、必要に応じてSendMessage(Application.Handle,WM_WTSSESSION_CHANGE,0,0);で強制的にScreen.Monitorsを再初期化しています。
PopupMenuがポップアップされるたびに、モニタごとのメニューアイテムをMenuItemMonitorsの下に生成し直しています。
モニタごとのメニューアイテムを選択すると、フォームの位置をそのモニタのWorkAreaRectの右上に移動します。またモニタを選択したときはそのハンドルを保持しておきます。
マルチモニタの情報が取得できない(Screen.Monitors[]が空の)ときはScreen.WorkAreaRect(Win32APIのSystemParametersInfoにSPI_GETWORKAREAを指定して取得した領域)を使用して表示位置を調整します。
プログラムの起動時にはプライマリモニタが選択されます。また選択されているモニタがなくなった(Screen.Monitors[]の中に保存しておいたモニタのハンドルが見つからない)ときもプライマリモニタが選択されます。
WM_DISPLAYCHANGEメッセージをハンドルすることでモニタの構成や解像度の変更を検知して、対象モニタや表示位置を再調整します。
時計の表示を変更したバリエーションを作成しやすいように、表示以外の処理を継承元フォームTFormWallClockBaseに、表示の処理を継承先フォームTFormWallClockに、それぞれ分離しました。
これによりTFormWallClockBaseから継承したフォームをメインフォームとして、メソッドInitialize、AdjustColors、DoShowTimeをoverrideするだけで異なる表示のプログラムを簡単に作成できるようにしました。
ノートPCではバッテリの残量と残り時間を表示します。
GetSystemPowerStatus function (winbase.h) - Win32 apps | Microsoft Learn
https://learn.microsoft.com/en-us/windows/win32/api/winbase/nf-winbase-getsystempowerstatus
SYSTEM_POWER_STATUS (winbase.h) - Win32 apps | Microsoft Learn
https://learn.microsoft.com/en-us/windows/win32/api/winbase/ns-winbase-system_power_status
Win32APIのGetSystemPowerStatusで取得したSYSTEM_POWER_STATUS構造体のACLineStatusがAC_LINE_ONLINEかつBatteryLifePercentがBATTERY_PERCENTAGE_UNKNOWNかつBatteryLifeTimeがBATTERY_LIFE_UNKNOWNのときはデスクトップPCと見なしてバッテリステータスを非表示にします。
一方BatteryLifePercentがBATTERY_PERCENTAGE_UNKNOWN以外またはBatteryLifeTimeがBATTERY_LIFE_UNKNOWN以外のときはノートPCと見なしてバッテリステータスを表示します。
- HiDPIの対応は単にマニフェストで"Per-Monitor (V2) DPI"を指定しているだけなので、100%以外のスケールでは正しく表示されないかもしれません。
このプログラムには設定機能が一切存在しないため、何かを変えようとするときはプログラムを変更して再コンパイルする必要があります。DelphiのCommunity Editionは商用でなければ(商用でも一定の範囲で)自由に使用できるため、適宜コードを変更して再コンパイルしてご使用ください。
このプログラムに固有のコードについてはMITライセンスが適用されます。
Copyright 2023-2024 Owl's Perspective
The MIT License – Open Source Initiative
https://opensource.org/license/mit/
(日本語参考訳)
https://licenses.opensource.jp/MIT/MIT.html
Skia4DelphiはMITライセンスの元で公開されています。
https://github.com/skia4delphi/skia4delphi/blob/main/LICENSE
-
Version 1.0.0 (2023-09-02)
- 初期バージョン
-
Version 1.1.0 (2023-09-10)
- マルチモニタ対応を改善。
-
Version 1.1.1 (2023-09-14)
- フルスクリーンのプログラムが検出されなくなったときにプライマリモニタが選択されてしまう不具合(issue #1)を修正。
-
Version 1.2.0 (2023-09-15)
- 視認性向上のため表示色の反転機能を追加。
- フルスクリーンでも非表示にしない機能を追加(issue #2)。
-
Version 1.2.1 (2023-09-16)
- 色を反転したときに一瞬正しくない色の組み合わせになる不具合を修正。
-
Version 1.2.2 (2023-09-18)
- 時計の表示とそれ以外の処理の分離。
-
Version 1.2.3 (2024-01-06)
- フルスクリーンを無視の反映方法を変更(issue #3)。
-
Version 1.2.4 (2024-05-16)
- TimerUpdateコンポーネントの定義がdfmにのみ存在し、pasファイルになかった不具合を修正(動作上は影響なし)。
-
Version 1.3.0 (2024-05-18)
- ノートPCでバッテリステータスを表示する機能を追加。