今更ながらWPFに置き換えてみる（11）

#駄目ですね（ボケ問題三度）
時計や三角形レベルならDrawで構成できますが、考えてみたらNotifyIconの種類たくさんあるんでしたわ。（ちなみにコンテキストメニューはNostretchでdot by dotいけるのね）
![無題.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/590512/d6661cd7-bc01-a120-f212-818e052c2f22.png)


問題なのは3 digit counterのデジタル文字。16*16のサイズに収めるためFroms版では極小のセグメントの文字をBitmapで作成してそいつをオフセット調整して切り貼って画像にしてたんですが、これ全部ボケますよね・・・
原寸↓
![digit2.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/590512/7a1dc214-2a5f-d4f5-272a-81a3a9117853.png)

VB+Forms版でも秒表示のデジタルフォント風のものはDrawLineで描画しているので、それを改変してできるはずと思い、VB見返してみたが自分で何を書いているのかわからなかった・・・

```VB
    '数字描画用の座標値。上から順番に０～９
    ReadOnly Mycoordinate() As String =
    {
        "4,1,4,8/4,8,7,8/7,8,7,1/7,1,4,1",
        "1,8,7,8",
        "1,1,1,8/1,8,4,8/4,8,4,1/4,1,7,1/7,1,7,8",
        "1,1,1,8/1,8,4,8/4,8,4,2/4,8,7,8/7,8,7,1",
        "1,1,4,1/4,1,4,8/1,8,7,8",
        "1,8,1,1/1,1,4,1/4,1,4,8/4,8,7,8/7,8,7,1",
        "1,4,4,1/4,1,7,1/7,1,7,8/7,8,4,8/4,8,4,1",
        "1,1,1,8/1,8,7,8",
        "1,8,1,1/1,1,4,1/4,1,4,8/4,8,7,8/7,8,7,1/7,1,4,1/4,1,4,8/4,8,1,8",
        "1,8,1,1/1,1,4,1/4,1,4,8/1,8,4,8/4,8,7,4"
        }
'・・・中略
   Private Sub DigitalFig()

        '秒２桁をそれぞれ描画してアイコン化する
        Dim sec = Strings.Right("0" & Second(Now), 2)
        Dim fig(2) As Integer

        Dim canvas As New Bitmap(16, 16)
        Dim g As Graphics = Graphics.FromImage(canvas)
        Dim p As New Pen(Color.White, 1)

        fig(0) = Mid(sec, 1, 1)
        fig(1) = Mid(sec, 2, 1)

        'デジタル文字
        Dim fontSize As Integer = 7
        For j = 0 To 1
            Dim segList1()
            Dim segList2()
            segList1 = Split(Mycoordinate(fig(j)), "/")
            For i = 0 To UBound(segList1)
                segList2 = Split(segList1(i), ",")
                Dim stPt As New Point((canvas.Width / 2 * j + 1) + (fontSize / 8) * (segList2(1) - 1), 2 + (12 / 8) * (segList2(0)))
                Dim edPt As New Point((canvas.Width / 2 * j + 1) + (fontSize / 8) * (segList2(3) - 1), 2 + (12 / 8) * (segList2(2)))
                g.DrawLine(p, stPt, edPt)
            Next i
        Next j

        Dim Hicon = canvas.GetHicon()
        Dim newIcon = Icon.FromHandle(Hicon)

        Me.NotifyIcon1.Icon = newIcon

        p.Dispose()
        g.Dispose()
        DestroyIcon(newIcon.Handle)
        canvas.Dispose()

        Me.Timer1.Interval = 1000

    End Sub

```
自身テレワークが始まって、立ち上がりっぱなしのリモート先になったので、ツールが意味を失いつつあります。

TransitionのStep数を５００とかにすると、粘っこくコントロールがアレンジされて行って不気味な趣が。

![TestApp3-3.gif](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/590512/ff0b087e-7f6e-a273-7fc3-1f7762aeaa68.gif)

#追記　システムで出してるNotifyIconはどうやってんだ？
ということで、各画面解像度ごとに通知エリアのバッテリーアイコンがどう変わるかをキャプチャしてみた。
原寸↓
![68747470733a2f2f71696974612d696d6167652d73746f72652e73332e61702d6e6f727468656173742d312e616d617a6f6e6177732e636f6d2f302f3539303531322f37343638666536662d326135632d383239372d646239332d6261303335383637633335642e706e67.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/590512/b6f0fcf6-56bb-2dbb-a252-eb60f162da81.png)

さっぱりわからないので１０倍に拡大すると↓
![68747470733a2f2f71696974612d696d6167652d73746f72652e73332e61702d6e6f727468656173742d312e616d617a6f6e6177732e636f6d2f302f3539303531322f61363161343164652d626633642d643830352d393132362d3235613564653637363336392e706e67.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/590512/d83e951d-a89c-b40d-76c7-e6c5898911fc.png)

拡大すると、まあ適当な感じですね。
何となく
①同一画像を拡大しているわけではない模様
②電池の枠あたり、フレームとかはアンチエイリアスが起きないようにしている。

アイコンリソースみたいに解像度ごとに持っているのかなあ