2013年7月11日木曜日

WLDCore.dll is missing from Windows Live.

Windows Live Mailを開こうとしたら、

WLDCore.dll is missing from Windows Live.

のエラーが出て来ました。

結局、Uninstall programでWindows Essentialを選んで、

Repairをすれば、解決しました。

2013年4月18日木曜日

Pin Desktop To Taskbar on Windows 8

Inspired by the following links,
http://www.neowin.net/forum/topic/1127588-how-to-pin-computer-to-the-windows-8-taskbar/
http://support.microsoft.com/kb/314853/ja
I figured out a way to one-click open a file explorer with the location of Desktop from the Taskbar.

1) Right click on the desktop and select new / shortcut
2) In the "Type the location of the item" box, enter the following
%SystemRoot%\explorer.exe "c:\Users\Z\Desktop", /E, ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}
3) Press next.
4) For a name call it "Desktop" (or what ever you want)
5) Change the default icon to a more beautiful one if you want. (This is my original purpose to do this)
6) Click finish.
7) Pin it to the taskbar.

Now you can hide all your icons and leave yourself a clean desktop.

2013年4月4日木曜日

Installation of XNA studio 4.0 Fresh on Windows 8

The first time I run setup file of XNA studio 4.0 Fresh on Windows 8,
I got the compatibility warning.
To avoid it, install the following before XNA installationi.
http://www.xbox.com/ja-jp/LIVE/PC/DownloadClient

2013年3月24日日曜日

Available Cloud for Your Apps

無料と有料もまとめました。スペックは各サイトに入って確認してください。

AWS
AppHarbor
Cloud Foundry
Force.com
Heroku/SalesForce
Rackspace
VMware vCloud
Windows Azure

2013年3月13日水曜日

Ruby ri Problem In Windows (Solved)

I tried ri in windows 8
Console> ri String#upcase
It returned error message about not having such function.
Solution is found on Stack Overflow
SOLUTION

gem install rdoc-data

# Regenerate system docs
rdoc-data --install

# Regenerate all gem docs
gem rdoc --all --overwrite

# Regenerate specific gem doc with specific version
gem rdoc gemname -v 1.2.3 --overwrite

2013年1月30日水曜日

Rubyを始めました。

Ruby
Gem
DevKit
Rails
を順番にインストールしてから、
ここのチュートリアルを見ながら、やってみたら、
http://guides.rubyonrails.org/getting_started.html
いきなり、こんなエラーが出てきました。
ExecJS::RuntimeError in Home#index

Showing C:/TestGround/RubyTest/blog/app/views/layouts/application.html.erb where line #6 raised:

(in C:/TestGround/RubyTest/blog/app/assets/javascripts/home.js.coffee)

Extracted source (around line #6):

3: <head>
4:   <title>Blog</title>
5:   <%= stylesheet_link_tag    "application", :media => "all" %>
6:   <%= javascript_include_tag "application" %>
7:   <%= csrf_meta_tags %>
8: </head>
9: <body>

Rails.root: C:/TestGround/RubyTest/blog

Application Trace | Framework Trace | Full Trace

app/views/layouts/application.html.erb:6:in `_app_views_layouts_application_html_erb___30976759_29317332'

いろいろ調べたら、
node.jsをインストールしたら解決できそうですが、
こんなわけないだろうと思って・・・
http://www.jamiestarke.com/2012/01/28/fixed-execjs-runtimeerror-and-fatal-error-v8contextnew-when-deploying-rails-to-shared-hosting/
書いた方法通り、pipelineをfalseにした後、
無事に出来ました！3939!

2013年1月24日木曜日

HaskellでGlossライブラリーを試してみました。

いっぱいサンプルがありますが、もっと簡単の作りたいですから、
まる一個だけ作りました。

import Graphics.Gloss
import Graphics.Gloss.Interface.Pure.Simulate

data Cir = Cir     Float
                Float
                deriving (Show)

render::Cir->Picture
render (Cir x y) = ThickCircle x y

start:: Cir
start = Cir 100.0 10.0

trans::ViewPort -> Float -> Cir -> Cir
trans _ _ (Cir x y) = Cir x y

main::IO()
main = simulate (InWindow "NATZ" (800,600) (10,10))
        (makeColor 0.5 1.0 0.5 1.0)
        0
        start
        render
        trans

WindowsにHaskell gnuplotとdarcsのインストール

普通に
cabal install gnuplot
はできなかった。
エラーメッセージを見たら、ずっとdependencyのcolourをダウンロードできなかったと・・・

そこで、直接ソースからインストールしようと思って、
これってやってみよう！
darcs get http://code.haskell.org/gnuplot/

じゃ、darcsは必要じゃん。
cabal install darcs
はだめだった。

darcsのホームページをみたら、
正解はこれだ。
cabal install darcs -f-curl

2013年1月23日水曜日

HaskellとGTKでHello World

helloworld.hs

import Graphics.UI.Gtk

main = do
    initGUI
    window <- windowNew
    button <- buttonNew
    set window [ containerBorderWidth := 10, containerChild := button ]
    set button [ buttonLabel := "Hello World" ]
    onClicked button (putStrLn "Hello World")
    onDestroy window mainQuit
    widgetShowAll window
    mainGUI

Compile時は
ghc --make -optl-mwindows helloworld.hs

WindowsにHaskell HDBC-sqlite3のインストール

普通に
cabal install HDBC-sqlite3
を実行するだけじゃ、こんなエラーが出てきます。
setup: Missing dependency on a foreign library: * Missing C library: sqlite3

This problem can usually be solved by installing the system package

that provides this library (you may need the "-dev" version).

If the library is already installed but in a non-standard location

then you can use the flags --extra-include-dirs= and --extra-lib-dirs=

to specify where it is.

問題の解決は

１．このサイトSQLiteから、
sqlite-dll-win32-x86-3071502.zip
をダウンロードして解凍してから、
中の.dllファイルを環境変数%PATH%中にあるDirectoryに入れる。
たとえば、system32とか・・・C:\Foo\とか

２．同じサイトから
sqlite-amalgamation-3071502.zip
をダウンロードして解凍してから、
中の.hファイルを同じフォルダに入れる。

３．再びコンソールでインストール

cabal install HDBC-sqlite3 \
--extra-lib-dirs="C:\Foo" --extra-include-dirs="C:\Foo"

2013年1月21日月曜日

Haskell GUI Programming >>= Windows環境のGTK+とGtk2Hsのインストール

必要のは勿論HaskellのGHCとcabal install. Haskellのインストールは簡単なので、ここ略します。

１．GTKの準備
　　GTK+で、all in one bundleをダウンロード後、解凍して、好きなフォルダに移動してください。
　　注意すべきのは、フォルダのPathにSpaceがあったら、だめです。
　　そして、環境変数%PATH%に、GTKのサブフォルダbinのPATHを追加する。

２．以上終わったら、これでチェックする。
　　pkg-config --cflags gtk+-2.0　
　　もし間違いがなければ、binのPATHが中に入ってるはずです。
　　もう一つの方法はconsoleでgtk-demoを実行できれば、OKです。

３．Gtk2Hsのインストール
　　cabal install cabal-install
　　cabal install gtk2hs-buildtools
　　cabal install gtk
　　エラーがなければ、これで終了です。

４．成功したかどうかのチェック
　　下のコードをファイルhello.hsにコピーペーストして、

-- A simple program to demonstrate Gtk2Hs.
module Main (Main.main) where

import Graphics.UI.Gtk

main :: IO ()
main = do
  initGUI
  -- Create a new window
  window <- windowNew
  -- Here we connect the "destroy" event to a signal handler.
  -- This event occurs when we call widgetDestroy on the window
  -- or if the user closes the window.
  onDestroy window mainQuit
  -- Sets the border width and tile of the window. Note that border width
  -- attribute is in 'Container' from which 'Window' is derived.
  set window [ containerBorderWidth := 10, windowTitle := "Hello World" ]
  -- Creates a new button with the label "Hello World".
  button <- buttonNew
  set button [ buttonLabel := "Hello World" ]
  -- When the button receives the "clicked" signal, it will call the
  -- function given as the second argument.
  onClicked button (putStrLn "Hello World")
  -- Gtk+ allows several callbacks for the same event.
  -- This one will cause the window to be destroyed by calling
  -- widgetDestroy. The callbacks are called in the sequence they were added.
  onClicked button $ do
    putStrLn "A \"clicked\"-handler to say \"destroy\""
    widgetDestroy window
  -- Insert the hello-world button into the window.
  set window [ containerChild := button ]
  -- The final step is to display this newly created widget. Note that this
  -- also allocates the right amount of space to the windows and the button.
  widgetShowAll window
  -- All Gtk+ applications must have a main loop. Control ends here
  -- and waits for an event to occur (like a key press or mouse event).
  -- This function returns if the program should finish.
  mainGUI

ghc --make Hello.hs -o hello
でCompile成功したら、OKです。　　

2013年1月19日土曜日

HaskellでHTTP接続

import Network.HTTP (simpleHTTP, getRequest, getResponseBody, Request)

resStr::Request String
resStr =  getRequest "http://www.google.co.jp"

main::IO()
main = do 
            header <- simpleHTTP resStr
            body <- getResponseBody header
            print header 
            print body

2013年1月17日木曜日

C#でGoogle RSSを取得する

·Google ReaderのAPIを使うため必要な知識はこちらのリンクへご参考を
http://code.google.com/p/google-reader-api/w/list
特に難しい認証の部分はこちらの説明に
http://www.yoheim.net/blog.php?q=20120608
C#で書いてみました。こんな感じです。

using System;
using System.IO;
using System.Net;
using System.Text;
 
namespace GoogleReaderDemo
{
    internal class Program
    {
        private static void Main(string[] args)
        {
            var sw = new StreamWriter("Feed.txt");
            Console.SetOut(sw);
 
            // Setup Request, uri, method, contenttype, contentlength and write the post data to requeststream.
            var res = (HttpWebRequest) WebRequest.Create(new Uri(@"https://www.google.com/accounts/ClientLogin"));
            res.Method = "POST";
            res.ContentType = "application/x-www-form-urlencoded";
 
            const string postData = "Email=yourname@gmail.com&Passwd=yourpassword&service=reader";
            byte[] bytes = Encoding.ASCII.GetBytes(postData);
            res.ContentLength = bytes.Length;
 
            string rspBody = "";
            using (Stream s = res.GetRequestStream())
            {
                s.Write(bytes, 0, bytes.Length);
                WebResponse rsp = res.GetResponse();
                var streamReader = new StreamReader(rsp.GetResponseStream());
                streamReader.ReadLine();
                streamReader.ReadLine();
                rspBody = streamReader.ReadToEnd();
            }
 
            // Request RSS with a name:value pair:  Authorization:GoogleLogin AUTH=..."
            res = (HttpWebRequest) WebRequest.Create(new Uri(@"http://www.google.com/reader/atom/"));
            res.Headers.Add("Authorization", "GoogleLogin " + rspBody);
            rspBody = new StreamReader(res.GetResponse().GetResponseStream()).ReadToEnd();
            Console.Write(rspBody);
 
            Console.ReadLine();
        }
    }
}

ATOM形式で返してくるので、どっかのParserがあればいいですね・・・自分書くのが面倒で・・・
Nugetで探したら、すぐ出てきました。
http://qdfeed.codeplex.com/
これでいけそう！
やってみました。

using System;
using System.IO;
using System.Net;
using System.Text;
using QDFeedParser;
 
namespace GoogleReaderDemo
{
    internal class Program
    {
        private static void Main(string[] args)
        {
            // Setup Request, uri, method, contenttype, contentlength and write the post data to requeststream.
            var res = (HttpWebRequest) WebRequest.Create(new Uri(@"https://www.google.com/accounts/ClientLogin"));
            res.Method = "POST";
            res.ContentType = "application/x-www-form-urlencoded";
 
            const string postData = "Email=youremail@gmail.com&Passwd=yourpassword&service=reader";
            byte[] bytes = Encoding.ASCII.GetBytes(postData);
            res.ContentLength = bytes.Length;
 
            string rspBody = "";
            using (Stream s = res.GetRequestStream())
            {
                s.Write(bytes, 0, bytes.Length);
                WebResponse rsp = res.GetResponse();
                var streamReader = new StreamReader(rsp.GetResponseStream());
                streamReader.ReadLine();
                streamReader.ReadLine();
                rspBody = streamReader.ReadToEnd();
            }
 
            // Request RSS with a name:value pair:  Authorization:GoogleLogin AUTH=..."
            res = (HttpWebRequest) WebRequest.Create(new Uri(@"http://www.google.com/reader/atom/"));
            res.Headers.Add("Authorization", "GoogleLogin " + rspBody);
            rspBody = new StreamReader(res.GetResponse().GetResponseStream()).ReadToEnd();
 
            File.WriteAllText(@"C:\Users\Z\Desktop\Feed.txt", rspBody);
            IFeedFactory factory = new FileSystemFeedFactory();
            IFeed feed = factory.CreateFeed(new Uri(@"C:\Users\Z\Desktop\Feed.txt"));
            foreach (BaseFeedItem i in feed.Items)
            {
                Console.WriteLine("_____________________________________________________");
                Console.WriteLine("Title : " + i.Title + Environment.NewLine); 
                Console.WriteLine("Link  : " + i.Link + Environment.NewLine); 
                Console.WriteLine("Date  : " + i.DatePublished);
            }
            Console.ReadLine();
        }
    }
}

Haskell Tree Forest!

まず、Data.Treeの中身をのぞいてみます。

data Tree a = Node {rootLabel :: a, subForest :: Forest a}
instance [safe] Eq a => Eq (Tree a)
instance [safe] Monad Tree
instance [safe] Functor Tree
instance [safe] Read a => Read (Tree a)
instance [safe] Show a => Show (Tree a) 
Prelude Data.Tree> :t unfoldTree
unfoldTree :: (b -> (a, [b])) -> b -> Tree a
Prelude Data.Tree> :browse
type Forest a = [Tree a]
data Tree a = Node {rootLabel :: a, subForest :: Forest a}
drawForest :: Forest String -> String
drawTree :: Tree String -> String
flatten :: Tree a -> [a]
levels :: Tree a -> [[a]]
unfoldForest :: (b -> (a, [b])) -> [b] -> Forest a
unfoldForestM ::
  Monad m => (b -> m (a, [b])) -> [b] -> m (Forest a)
unfoldForestM_BF ::
  Monad m => (b -> m (a, [b])) -> [b] -> m (Forest a)
unfoldTree :: (b -> (a, [b])) -> b -> Tree a
unfoldTreeM :: Monad m => (b -> m (a, [b])) -> b -> m (Tree a)
unfoldTreeM_BF :: Monad m => (b -> m (a, [b])) -> b -> m (Tree a)

目標は二三分間でTreeを作って出してみたいですから、
drawTreeかdrawForestを使いたいな・・・
ただし、drawTreeはTree Stringしか描画できないです。
ということは、aのところで、Stringを入れ替える必要がありますね。

あともう一つ、どうやって枝のない葉っぱをつくるの問題が残ってます・・・
よく見たら、Node中のsubForestのtype、実際は [ ] Tree a !
Listです！！
[ ]をすれば、葉っぱができるはず！

早速作りました！あの人が何年もかけて作った会社を

import Data.Tree

type Human = Forest String
type Occupation = Tree String

boss,worker,newbie::Occupation
newbie = Node "Baby Door" []
worker = Node "Bill Door" [newbie, newbie,newbie]
boss = Node "Bill Gate" [worker, worker]

guys::Human
guys = [newbie,worker,boss]

main::IO()
main = do
    putStr "\n <------------------------ Microsoft !\n"
    putStr $ drawTree boss
    putStr "\n <------------------------ All the guys !\n"
    putStr $ drawForest guys

2013年1月16日水曜日

Haskellのinstance、class、 dataそれぞれとtype-parameterの組み合わせ

まず、Num aクラスのinstanceを見てみます。

class Num a where
  (+) :: a -> a -> a
  (*) :: a -> a -> a
  (-) :: a -> a -> a
  negate :: a -> a
  abs :: a -> a
  signum :: a -> a
  fromInteger :: Integer -> a
instance Num Integer
instance Num Int
instance Num Float
instance Num Double

Num aはtype-parameterがありますので、Numはtype constructorである。したがって、

foo::Num
foo = 3

ということはできません。

クラス中の演算子+、*、-及び関数negate、abs、signumを使いたい場合は、

クラス中のinstanceになるしかない。たとえば、

foo::Float
foo = 3

下のような感じで考えるほうがいいかもしれません。（実際はないですけど・・・）

data Float = Float deriving (Num)

FloatがNumの性質を持たせるみたいに。
ほかのNum aインスタンスInteger、Int、Doubleも同じく、
演算子+、*、-及び関数negate、abs、signumを使えるはずです。

つぎは、data中のtype-parameterを見てます。

data Maybe a = Nothing | Just a 
instance Eq a => Eq (Maybe a)
instance Monad Maybe
instance Functor Maybe
instance Ord a => Ord (Maybe a)
instance Read a => Read (Maybe a)
instance Show a => Show (Maybe a)

上の推理によって、type-parameterがあるから、こういうこと

foo::Maybe
foo = Just 3

はできません。
幸いMaybeはalgebraic data typeで宣言してますので、
aに型をつけて、さらに｜の左か右を一つvalue constructorを選ぶだけで

foo,bar::Maybe Int
foo = Just 1
bar = Just 1

fooとbarがインスタンスEq aの性質を持つことになります。

*Main> foo == bar
True

今度はtype constrain (=>)についてみてみます。

2013年1月15日火曜日

Haskell State Without Monad

Inspired by an articl

Monad for the Working Haskell Programmer -- a short tutorial Theodor Norvell

I tried to make it more clear and coded the following.

And the result is

*Main> (cutDummy >=> downgradeIfEven) Six
(Five,"Downgraded")

*Main> (cutDummy >=> downgradeIfEven) Dummy
(Two,"Upgraded")

data State = Dummy | One | Two | Three | Four | Five | Six
                deriving (Show,Eq,Enum,Ord,Read)

type GroupStateAndFlag = State->(State, Int)
cutDummy::GroupStateAndFlag
cutDummy s 
            | s == Dummy = (One, fromEnum $ succ s)
            | otherwise = (s, fromEnum s)

type ChangeGradeAndInfo = State->(State,String)
downgradeAndInfo,upgradeAndInfo::ChangeGradeAndInfo
downgradeAndInfo s 
            | s== One = (Six, "Downgraded and Reversed")
            | otherwise = (pred s, "Downgraded") 

upgradeAndInfo s 
            | s== Six = (One, "Upgraded and Reversed")
            | otherwise = (succ s, "Upgraded") 

downgradeIfEven::Int->ChangeGradeAndInfo
downgradeIfEven a
                | even a =  downgradeAndInfo
                | otherwise = upgradeAndInfo


(>=>)::GroupStateAndFlag->(Int->ChangeGradeAndInfo)->ChangeGradeAndInfo
stateManupilator1 >=> evaluator = 
                \ state1 -> let     
                                (state2, result) = stateManupilator1 state1      
                                -- Manupilate the State, pack it with a result 
                                stateManupilator2 = evaluator result             
                                -- Pass the result to a evaluator, 
                                -- pass it to another state manupilator
                             in stateManupilator2 state2

ret::a->State->(State,a)
ret result = \state -> (state, result)

2013年1月14日月曜日

Haskell Syntax Highlighting

Thanks for the website,
http://tohtml.com/haskell/
I can now have haskell syntax highlight in my blog.

{- Match functions before call. Even type    -}
data WeekDay = Monday|Tuesday|Wednesday|Thursday|Friday|Saturday|Sunday  deriving (Eq, Ord, Show, Read, Bounded, Enum)
workingDay::WeekDay -> Bool
workingDay Saturday = False
workingDay Sunday = False
workingDay _ = True
    
{-    The usage of @    -}
isSaturday::[WeekDay] -> String
isSaturday [] = "Empty!"
isSaturday [_] = "Only one"
isSaturday full@(reverse -> (y:_)) = if y == read "Saturday" 
                                        then show y ++ " is at the end of " ++ show full
                                        else "Not Saturday"

{-    Use where     -}
overC::(RealFloat a) => a -> a -> a -> String
overC a b c
    | rate > 1    = ">"
    | rate == 1 = "="
    | rate < 1    = "<"
    where rate = (a^2 + b^2)/c^2
            
{-    Use let        -}
sumToMax::Int -> Int
sumToMax maxV = let s = maxV
                in if s>0 then s + sumToMax (s-1)
                    else 0

{-    Pattern matching in function use case     -}
isMonday,isTuesday::WeekDay->String

isMonday wd = case wd of
                Monday -> "It is Monday."
                _    -> "It is not Monday."

isTuesday wd     | wd == Tuesday = "It is Tuesday"
                | otherwise = "It is not Tuesday"

{-    Mix up case with where -}
fridayZeroKiller::Int->WeekDay->String
fridayZeroKiller x wd = case wd of
                            Friday -> killEven x
                            _ -> "Busy on other day."
                            where     
                                killEven 0 = "Killed."
                                killEven _ = "I only kill zero."

2013年1月8日火曜日

WPF Drawing

A simple way to draw in wpf.

<Window x:Class="DrawingGroupDemo.MainWindow"
        xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
        Title="MainWindow"
        Width="525"
        Height="350">
    <Grid>
        <Image Width="200" Height="200">
            <Image.Source>
                <DrawingImage>
                    <DrawingImage.Drawing>
                        <DrawingGroup x:Name="DrawingGroup" />
                    </DrawingImage.Drawing>
                </DrawingImage>
            </Image.Source>
        </Image>
    </Grid>
</Window>

Draw it in code.

using System;
using System.Globalization;
using System.Windows;
using System.Windows.Media;
using System.Windows.Media.Animation;
 
namespace DrawingGroupDemo
{
    public partial class MainWindow : Window
    {
        public MainWindow()
        {
            InitializeComponent();
            DrawingContext dc = DrawingGroup.Open();
 
            // Draw a rectangle.
            dc.DrawRectangle(new SolidColorBrush(Colors.BurlyWood), new Pen(new SolidColorBrush(Colors.Coral), 10.0),
                             new Rect(new Size(100, 100)));
 
            // Draw a line.
            dc.DrawLine(new Pen(new SolidColorBrush(Colors.Chartreuse), 10.0), new Point(0.0, 50.0),
                        new Point(100.0, 50.0));
 
            // Draw text.
            dc.DrawText(
                new FormattedText("Hello", CultureInfo.CurrentCulture, FlowDirection.LeftToRight,
                                  new Typeface(new FontFamily("Times New Roman"), FontStyles.Normal, FontWeights.Black,
                                               FontStretches.Normal), 30.0, new SolidColorBrush(Colors.Purple)),
                new Point(15.0, 50.0));
 
            // Apply animation to ellipse center.
            AnimationClock animationClock =
                new PointAnimation(new Point(1.0, 1.0), new Point(100.0, 100.0), new Duration(new TimeSpan(0, 0, 3)))
                    .CreateClock();
            dc.DrawEllipse(new SolidColorBrush(Colors.Aqua), new Pen(new SolidColorBrush(Colors.Orange), 2.0),
                           new Point(5.0, 5.0), animationClock, 4.0, null, 4.0, null);
 
            // Close to activate. Or use "using DrawingGroup.Open()".
            dc.Close();
        }
    }
}

What Is An Event In C#

using System;
 
namespace EventDemo
{
    //Event handler is a type of delegate like the following. Only the parameter type is different.
    public delegate void ChangeHandler(string oldname, string newname);
 
    public class MySystem
    {
        // An event is a delegate of the event handler type.
        public event ChangeHandler OnChanged;
        private string _name = "Microsoft";
 
        public string Name
        {
            get { return _name; }
            set
            {
                if (_name == value) return;
                // The system fires up the event inside by calling the delegates.
                // However the system does not care what is delegated.
                OnChanged(_name, value);
                _name = value;
            }
        }
    }
 
    internal class Program
    {
        private static void Main(string[] args)
        {
            var sample = new MySystem();
            // We tell the system what the event should delegate. 
            sample.OnChanged += sample_OnChanged;
            // And we "accidentally" makes an event happens.
            sample.Name = "Google";
            Console.ReadLine();
        }
 
        // Only we know what to is the event delegated.
        private static void sample_OnChanged(string sender, string e)
        {
            Console.WriteLine("Name changed!");
        }
    }
}

2013年1月6日日曜日

Drap and Drop Shapes in WPF

using System.Windows;
using System.Windows.Controls;
using System.Windows.Input;
using System.Windows.Media;
using System.Windows.Shapes;
 
namespace DrapDropDemo
{
    public partial class MainWindow : Window
    {
        private bool isDragging;
 
        public MainWindow()
        {
            InitializeComponent();
 
            var rect = new Rectangle
                {
                    Width = 100,
                    Height = 100,
                    Fill = new SolidColorBrush(Colors.Chartreuse)
                };
            rect.MouseLeftButtonDown += rect_MouseLeftButtonDown;
            rect.MouseLeftButtonUp += rect_MouseLeftButtonUp;
            rect.MouseMove += rect_MouseMove;
            var canvas = new Canvas();
            canvas.Children.Add(rect);
            Content = canvas;
        }
 
        private void rect_MouseMove(object sender, MouseEventArgs e)
        {
            if (!isDragging) return;
            var rect = sender as Rectangle;
            rect.SetValue(Canvas.LeftProperty, e.GetPosition(rect.Parent as Canvas).X - rect.ActualWidth/2);
            rect.SetValue(Canvas.TopProperty, e.GetPosition(rect.Parent as Canvas).Y - rect.ActualHeight/2);
        }
 
        private void rect_MouseLeftButtonUp(object sender, MouseButtonEventArgs e)
        {
            isDragging = false;
            (sender as Rectangle).ReleaseMouseCapture();
        }
 
        private void rect_MouseLeftButtonDown(object sender, MouseButtonEventArgs e)
        {
            isDragging = true;
            (sender as Rectangle).CaptureMouse();
        }
    }
}

登録: 投稿 (Atom)