ずん日記

Content-disposition: filename="hoge.png"

protected override void WndProc(ref Message m) 
{
    base.WndProc(ref m);
    const int WM_NCHITTEST = 0x0084;	//マウスポインタの指定の位置を調べるときに送る
    const int HTCLIENT = 1;	//クライアント領域内にある
    const int HTCAPTION = 2;	//キャプションバー上にある
    switch(m.Msg)
    {
        case WM_NCHITTEST :
            //フォームの何処でもドラッグできるようにする
            if(m.Result.ToInt32() == HTCLIENT)
            {
                m.Result = new IntPtr(HTCAPTION);
            }
            break;
    }
}

//System.Windows.Forms.Control クラスのオブジェクトから取得する場合
Graphics g = obj.CreateGraphics();

//System.Drawing.Image クラスのオブジェクトから取得する場合
Graphics g = Graphics.FromImage(image);

[DllImport("User32.dll")] 
public extern static System.IntPtr GetDC(System.IntPtr hWnd);

System.IntPtr DesktopHandle = GetDC(System.IntPtr.Zero); 
Graphics g = System.Drawing.Graphics.FromHdc(DesktopHandle); 
g.FillEllipse(new SolidBrush(Color.Red), 100, 100, 100,100); 

＠ configure ＆ make:

#!/bin/sh
./configure \
--prefix=/opt/php4 \
--with-apxs2=/opt/apache2/bin/apxs \
--enable-mbstring \
--enable-mbstr-enc-trans \
--enable-mbregex \
--enable-trans-sid \
--with-openssl \
--with-xml \
--with-pgsql=/opt/pgsql \
--with-mysql=/opt/mysql

＠ httpc.conf:

LoadModule php4_module modules/libphp4.so

AddType application/x-httpd-php .php .php4

＠ ユーザ描画の可/不可:

SetStyle(ControlStyles.UserPaint, true);

＠ 再描画:

SetStyle(ControlStyles.ResizeRedraw, true);

＠ 透明にする:

SetStyle(ControlStyles.Opaque, true);
TransparencyKey = Color.White;

＠ ちらつき防止:

SetStyle(ControlStyles.AllPaintingInWmPaint, true);
SetStyle(ControlStyles.DoubleBuffer, true);

＠ ギザギザを取る:

g.SmoothingMode = SmoothingMode.AntiAlias;

＠ JCOM:

＠ 子供服ってちっちゃーｗ:

＠ 飯はイタリアントマト:

＠ ゲーセン:

＠ 更にゲーセン:

＠ 夕飯:

＠ キーボードショートカット:

• x, y：clientX, clientY のエイリアスのようだ
• clientX, clientY：ページの左上隅を基準にしたページ内座標
• offsetX, offsetY：クリックしたオブジェクトの左上隅を基準にした座標
• screenX, screenY：ブラウザを超えたクライアントマシンのデスクトップ上の座標

＠ 必要なもの:

＠ 時間切れだ…:

ソリューションは CVS に入れるな
(K) そーか理解
(K) ソリューションを CVS に追加するとハマルのか
(K) プロジェクト単位でmodule作って
(K) ソリューションに必要なプロジェクトを追加して使うんだが
(K) ソリューションファイルはプロジェクトに固有じゃないので
(K) ソリューションをソース管理に追加するとどれかのモジュールにそのソリューションが入ってしまって
(K) 変なソリューションファイルが入ったモジュールをチェックアウトするとそのままじゃ開けなくなる
(L) うは。なるほど。
ちゅーわけで CVS のモジュールを使うときはまず空のソリューションを開いて、
ファイル＠メニュー→ソース管理→ソース管理からプロジェクトを追加
でモジュールを取り出してくれば良いということだな。
これが一番問題が起きなさそうなやり方だ。
単一のプロジェクト（モジュール）を使い場合もこの方法を取った方がよさげ。

懸念事項
(L) ソリューションと含まれるプロジェクト全体を１つのモジュール以下にいれればハマらない？
(K) そうかも？よく分かってない（ぉ
(K) 多分
(K) でもやってみないと謎だ
(K) SCCAPI で VS のソース管理に CVS が隠蔽されちゃってるから
(K) まだ何が起きてるのか把握してないとこがあるからな。
(K) 暇があったら出力ウィンドウをちゃんと見てソース管理での操作が
(K) CVS のどのコマンドに対応してるか見とくか。
(K) ふむ、操作方法をマニュアル化しとかないと面倒なことが起きそうだ。

チェックイン時のコメント
(K) VS.NET のソース管理だとかなり怒る CVS との違いがある。
(K) VSS はチェックアウトが排他的なのに対して CVS は非排他的っていう違いがあるせいか
(K) コメントが引っ張り出す前に書かされてムカツク
*1
(K) そしてチェックインのときにコメントかけない…
*2
(K) かなり怒る
(K) チェックアウト時にこれから修正する予定のコメント書くって考え方理解できない
(K) とりあえず引っ張ってきて、適当に直したら、「○○を直した」ってチェックインしたいだろうと普通思うんだが
(L) なんか変だ。
(K) あ、チェックイン時のコメント書けた
(K) MSDN でチェックインを検索したら出てきた
(K) 同じくサイレントチェックアウトって設定項目も発見
(K) あとはconflict時の挙動調べれば一通り逝けるな
(K) WebApplication のデプロイ方法も分かってきたし

＠ チェックアウト手順:

Sub AddRegion()
    Dim CloseUndoContext As Boolean = False

    If DTE.UndoContext.IsOpen = False Then
        CloseUndoContext = True
        DTE.UndoContext.Open("DevHawkAddRegionMacro", False)
    End If

    Try
        Dim name As String = InputBox("Enter the region name")

        If (name.Trim().Length = 0) Then Exit Sub

        Dim sel As TextSelection = DTE.ActiveDocument.Selection

        Dim lTop = sel.TopPoint.Line
        Dim lBot = sel.BottomPoint.Line

        sel.MoveToLineAndOffset(lBot, 1)
        sel.EndOfLine()
        sel.NewLine()

        If DTE.ActiveDocument.Language = "CSharp" Then
            sel.Text = "#endregion"
        ElseIf DTE.ActiveDocument.Language = "Basic" Then
            sel.Text = "#End Region"
        Else
            Throw New System.Exception("Invalid Language: " & _
                DTE.ActiveDocument.Language)
        End If

        sel.MoveToLineAndOffset(lTop, 1)
        sel.StartOfLine()

        If DTE.ActiveDocument.Language = "CSharp" Then
            sel.Text = "#region " + name.Trim()
        ElseIf DTE.ActiveDocument.Language = "Basic" Then
            sel.Text = "#Region """ + name.Trim() + """"
        Else
            Throw New System.Exception("Invalid Language: " & _
                DTE.ActiveDocument.Language)
        End If

        sel.NewLine()
    Finally
        If CloseUndoContext Then DTE.UndoContext.Close()
    End Try
End Sub

1. VS.NET の新規プロジェクトの作成で http://localhost/WebProj という名前で プロジェクトを作る。
2. 保存して VS.NET を閉じる。
3. デフォルトだと "My Documents\Visual Studio Projects\WebProj" 等というところに ソリューションファイルが出来てると思うがこれは要らないのでフォルダごと消してしまおう。
4. プロジェクト本体は C:\Inetpub\wwwroot\WebProj に出来ている筈なので、 この中の WebProj.csproj を開く。で、すぐに閉じると WebProj.sln を保存するかどうか聞かれるのでその場にそのまま保存する。
5. WebProj.webinfo をテキストエディタで開き、 "http://localhost/WebProj/WebProj.csproj" と言う部分を "http://localhost/WebApp/WebProj.csproj" に変更して保存して閉じる。
6. 同じく WebProj.sln にも "http://localhost/WebProj/WebProj.csproj" という部分があるのでこちらはこれを "WebProj.csproj" に変更して保存して閉じる。 *2
7. C:\Inetpub\wwwroot\WebProj をどこか別の場所にコピーする。（例えば C:\WebProj）
8. インターネットサービスマネージャを開いて WebProj の仮想ディレクトリを削除する。
9. コピーした先のディレクトリを目的の名前（ここでは WebApp とする）で WEB 共有する。 *3
10. 以上でプロジェクトの wwwroot からの脱出は完了だ。 後はプロジェクトを開くなり、ソリューションを開くなりして実行すれば、 http://localhost/WebApp/WebForm1.aspx 等でプログラムが実行される筈だ。

＠ CVS にチェックインするときの注意:

＠ 備え在れば憂い無し:

IT投資を促進するため、取得価額の合計額が600万円以上のIT機器群については， 取得価額の10％分の法人税を控除する。
中小企業への配慮として、資本金3億円未満の法人については、取得価額の合計額の下限を、ハードについては140万円以上、ソフトについては70万円以上に設定する。

＠ 色空間自由自在:

   R G B A w
┌ 1 0 0 0 0 ┐
│ 0 1 0 0 0 │
│ 0 0 1 0 0 │
│ 0 0 0 1 0 │
└ 0 0 0 0 1 ┘

グレースケールにする
┌ 1/3 1/3 1/3 0 0 ┐
│ 1/3 1/3 1/3 0 0 │
│ 1/3 1/3 1/3 0 0 │
│  0   0   0  1 0 │
└  0   0   0  0 1 ┘

赤だけ取り出す
┌ 1 0 0 0 0 ┐
│ 0 0 0 0 0 │
│ 0 0 0 0 0 │
│ 0 0 0 1 0 │
└ 0 0 0 0 1 ┘

private void pictureBox1_Paint(object sender, System.Windows.Forms.PaintEventArgs e)
{
    PictureBox pictureBox = (PictureBox)sender;
    if(pictureBox.Image == null) {
        return;
    }
    float[][] grayMatrix = new float[][]{
                                            new float[]{1/3f,1/3f,1/3f,0,0},
                                            new float[]{1/3f,1/3f,1/3f,0,0},
                                            new float[]{1/3f,1/3f,1/3f,0,0},
                                            new float[]{0,0,0,1,0},
                                            new float[]{0,0,0,0,1}
                                        };
    ColorMatrix grayColorMatrix = new ColorMatrix(grayMatrix);
    ImageAttributes grayImageAttributes = new ImageAttributes();
    grayImageAttributes.SetColorMatrix(
        grayColorMatrix, ColorMatrixFlag.Default, ColorAdjustType.Bitmap);
    e.Graphics.DrawImage(
        pictureBox.Image,
        pictureBox.ClientRectangle,
        0, 0, pictureBox.Width, pictureBox.Height,
        GraphicsUnit.Pixel, grayImageAttributes);
}

＠ 色の交換:

ColorMap[] mapWhite2Black = new ColorMap[1];
swapWhite2Black[0].OldColor = Color.White;
swapWhite2Black[0].NewColor = Color.Black;
swapWhite2Black[1].OldColor = Color.Black;
swapWhite2Black[1].NewColor = Color.White;
ImageAttributes imageAttr = new ImageAttributes(); 
imageAttr.SetRemapTable(swapWhiteAndBlack);
g.DrawImage(image
            , new Rectangle(0, 0, image.Widthm image.Height)
            , GraphicsUnit.Pixel, imageAttr);

＠ Control から Bitmap を取得する:

using System;
using System.Runtime.InteropServices;

class USER32
{
    [DllImport("user32.dll")]
    public static extern IntPtr GetWindowDC(IntPtr ptr);

    [DllImport("user32.dll")]
    public static extern IntPtr ReleaseDC(IntPtr hWnd,IntPtr hDc);
}

class GDI32 
{
    public const int SRCCOPY = 0xCC0020;

    [DllImport("gdi32.dll")]
    public static extern bool BitBlt(
        IntPtr hdcDest,
        int xDest,
        int yDest,
        int width,
        int height,
        IntPtr hdcSrc,
        int xSrc,
        int ySrc,
        System.Int32 rasterOp
        );
}

public static Bitmap CreateBitmapFromControl(Control control) 
{
    Bitmap bmp = new Bitmap(control.Width, control.Height);
    Graphics g = Graphics.FromImage(bmp);
    IntPtr srcHDC = USER32.GetWindowDC(control.Handle);
    IntPtr destHDC = g.GetHdc();
    GDI32.BitBlt(destHDC, 0, 0, control.Width, control.Height
        , srcHDC, 0, 0, GDI32.SRCCOPY);
    g.ReleaseHdc(destHDC);
            USER32.ReleaseDC(control.Handle, srcHDC);
    return bmp;
}

public static Bitmap CreateBitmapFromGraphics(Graphics g, Rectangle clipRect)
{
    Bitmap bmp = new Bitmap(clipRect.Width, clipRect.Height);
    Graphics g2 = Graphics.FromImage(bmp);
    IntPtr srcHDC = g.GetHdc();
    IntPtr destHDC = g2.GetHdc();
    GDI32.BitBlt(destHDC, 0, 0, clipRect.Width, clipRect.Height
        , srcHDC, clipRect.X, clipRect.Y, GDI32.SRCCOPY);
    g2.ReleaseHdc(destHDC);
    g.ReleaseHdc(srcHDC);
    return bmp;
}

caspol -machine -addgroup 1. -url http://localhost/trust.dll FullTrust -n test

＠ ActiveX がダウンロードされた:

＠ ショボーン:

＠ あと、ここの下のほうの付録:

Dim DirName '仮想フォルダ名
Dim DirPath '実フォルダパス
Dim IISObject
Dim vDir
DirName = "WebApp"
DirPath = "C:\WebApp"
Set IISObject = GetObject("IIS://LocalHost/W3SVC/1/Root")
Set vDir = IISObject.Create("IISWebVirtualDir", DirName)
vDir.Path = DirPath
vDir.SetInfo

＠ 差別？: