kksoulpageソフトウエア @Wiki

アンケートMIXI

2012-01-05T12:37:42+09:00

シリアルナンバーを送ってもいいですか？ #vote(はい[13]) #comment

ラバーバンド（マウスドラッグデザインパターン) delphiy用

2011-03-14T06:39:21+09:00

//ラバーバンドを制御するためのデザインパターンです TDRAG を継承して Tdrawline = class(TDRAG) draging:Boolean; dp:tpoint; function beginovertest(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV):Boolean;override; function begintest(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV):Boolean;override; function overtest(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV):Boolean;override; function droptest(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV):Boolean;override; end; { Tdrawline } function Tdrawline.beginovertest(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; _me: MOUSEEV): Boolean; begin end; function Tdrawline.begintest(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; _me: MOUSEEV): Boolean; var dfrom:tform2; begin dfrom := tform2(sender); selflag := false; Result := false; dp.x := x; dp.y := y; //dfrom.memo1.Lines.Add('aaaa'); if dfrom.ToolButton3.Down then begin Result := True; dp.X := x; dp.Y := y; end; end; function Tdrawline.droptest(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; _me: MOUSEEV): Boolean; begin end; function Tdrawline.overtest(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; _me: MOUSEEV): Boolean; var dfrom:tform2; begin dfrom := tform2(sender); if ssRight in Shift then begin dfrom.mainbase.bit4.Canvas.Pen.Color := clwhite; dfrom.mainbase.bit4.Canvas.Pen.Width := 10; end else begin dfrom.mainbase.bit4.Canvas.Pen.Color := dfrom.Panel2.Color; dfrom.mainbase.bit4.Canvas.Pen.Width := 4; end; dfrom.mainbase.bit4.Canvas.MoveTo(dp.x+dfrom.wo.X,dp.y+dfrom.wo.Y); dfrom.mainbase.bit4.Canvas.LineTo(x+dfrom.wo.X,y+dfrom.wo.Y); //再描画 dfrom.DubBPaintBox1Paint(sender); dp.x := x; dp.y := y; end; FormCreateフォームを初期化する関数あたりでこうします procedure TForm2.FormCreate(Sender: TObject); begin menz := TDRAGSTATEMNZ.Create; menz.draglist.Add(Tidoview.Create);// ドラッグドロップ操作で一番目にbegintestされる //begentestにてtrueを返すと 2番目のTmovebitpapのbegentestは実行されずにドロップ操作が終わるまで //このオブジェクトが機能するようになります // menz.draglist.Add(Tmovebitpap.Create); menz.draglist.Add(Tdrawline.Create);// 3番目にテストして begintestにてtrueになったばあいそのオブジェクトの //自動的にドラッグアンドドロップ操作で overtest-> droptest となり　ウインドウのドラッグ操作について //制御しやすい（？？？）オブジェクトデザインパターンになっています。 // menz.draglist.Add(Tseldrag.Create); // menz.draglist.Add(Tdrowline2.Create); あん TDRAGSTATEMNZのdraglistに追加しますそうしますと delphiならば formの mousedown mousemove mouseup にて procedure TForm2.DubBPaintBox1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin menz.MouseStateBoerdCast( self,Button,Shift,X, Y,MEDOWN ) ; end; procedure TForm2.DubBPaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var Button: TMouseButton; begin menz.MouseStateBoerdCast( self,Button,Shift,X, Y,MEMOVE ) ; end; procedure TForm2.DubBPaintBox1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin menz.MouseStateBoerdCast( self,Button,Shift,X, Y,MEUP ) ; end; このようにすると unit dragmngunit; interface uses Controls,Classes,math,Windows; type MOUSEEV = (MEDOWN,MEMOVE,MEUP); TDRAG = class(TOBJECT) draging:Boolean; function beginovertest(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV):Boolean;virtual;abstract; function begintest(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV):Boolean;virtual;abstract; function overtest(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV):Boolean;virtual;abstract; function droptest(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV):Boolean;virtual;abstract; end; TDRAGSTATEMNZ = class(TOBJECT) draglist:Tlist; nuldrag:TDRAG; statedrag:TDRAG; nonslectMove:Tdrag; Senderdata1,senderdata2:integer; function MouseStateBoerdCast(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV):TDRAG; function MouseStateBoerdCastwithdata(Sender: TObject;Button: TMouseButton; Shift: TShiftState; X, Y: Integer;_me:MOUSEEV;data1,data2:integer):TDRAG; constructor Create; destructor Destroy;override; end; function MyIntersectRect(var lprcDst: TRect; const lprcSrc1: TRect; const lprcSrc2: TRect): Boolean; function getIntersectRect( const lprcSrc1: TRect; const lprcSrc2: TRect): Boolean; function ispointformrect(pt:tpoint;r:trect):Boolean; implementation function ispointformrect(pt:tpoint;r:trect):Boolean; begin Result := false; if (r.Left <= pt.x) and (r.top <= pt.y) and (r.Right >= pt.x) and (r.Bottom >= pt.y) then begin Result := true; end; end; function getIntersectRect( const lprcSrc1: TRect; const lprcSrc2: TRect): Boolean; begin Result := False; if (lprcSrc1.Right >= lprcSrc2.Left) and (lprcSrc2.Right >= lprcSrc1.Left) and (lprcSrc1.Bottom >= lprcSrc2.Top) and (lprcSrc2.Bottom >= lprcSrc1.Top) then begin Result := True; end; end; function MyIntersectRect(var lprcDst: TRect; const lprcSrc1: TRect; const lprcSrc2: TRect): Boolean; begin Result := False; if (lprcSrc1.Right >= lprcSrc2.Left) and (lprcSrc2.Right >= lprcSrc1.Left) and (lprcSrc1.Bottom >= lprcSrc2.Top) and (lprcSrc2.Bottom >= lprcSrc1.Top) then begin lprcDst.Left := Max(lprcSrc1.Left, lprcSrc2.Left); lprcDst.Right := Min(lprcSrc1.Right, lprcSrc2.Right); lprcDst.Top := Max(lprcSrc1.Top, lprcSrc2.Top); lprcDst.Bottom := Min(lprcSrc1.Bottom, lprcSrc2.Bottom); Result := True; end; end; constructor TDRAGSTATEMNZ.Create; begin draglist := TList.Create; nonslectMove := nil; end; destructor TDRAGSTATEMNZ.Destroy; begin draglist.Free; inherited; end; function TDRAGSTATEMNZ.MouseStateBoerdCast(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; _me: MOUSEEV): TDRAG; var castdrag:Tdrag; i:integer; begin if statedrag <> nil then begin if _me = MEMOVE then begin statedrag.overtest(Sender,Button,Shift,X, Y,_me); end else if _me = MEUP then begin statedrag.droptest(Sender,Button,Shift,X, Y,_me); statedrag := nil; end; exit; end else if (_me = MEMOVE) or (_me = MEUP) then begin if nil <> nonslectMove then begin nonslectMove.beginovertest(Sender,Button,Shift,X, Y,_me) end; exit; end; for i := 0 to draglist.Count -1 do begin castdrag := Tdrag(draglist.Items[i]); if castdrag.begintest(Sender,Button,Shift,X, Y,_me) then begin statedrag := castdrag; break; end; end; end; function TDRAGSTATEMNZ.MouseStateBoerdCastwithdata(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer; _me: MOUSEEV; data1, data2: integer): TDRAG; begin Senderdata1 := data1; senderdata2 := data2; MouseStateBoerdCast( Sender,Button,Shift,X, Y,_me ); end; end. /// // // // /// このオブジェクトパターンを使えばかなり手軽にマウスドラッグドロップ操作をマネジメントできます //windows などのguiプログラムで意外と（かなり？？）このマウスドラッグドロップはわけがわからなくなる（？）かもしれない //場合になんとかするデザインパターンだと思います // //別にこのままプログラムしてもいいし、自分なりのやりかたで改良、またブラッシュアップしていけばいいんじゃないかな（？） //このコンセプトを洗練したり、別につくるのもおｋでしょう！！！ //コードは怪しくてすいません（^^; // // //

メニュー

2011-03-14T06:17:15+09:00

このwikiはリンクフリーです -[[トップページ]] [[質問等は掲示板へ>http://yy37.60.kg/bungaumlplus/]] [[kksoulpageホームページ>http://homepage3.nifty.com/soulpage/index.html]] -[[ラバーバンド（マウスドラッグデザインパターン) delphiy用]] ソフトウエア -[[todo+map2007]] --[[詳しい操作方法]] --[[楽しい使い方(tips)]] --[[アルティメットフリーソフト]] -[[iマネジメント2007]] --[[詳しい操作方法（ｍ）]] --[[楽しい使い方(tips[m])]] --[[リレーマネジメント２．０について]] -[[iポータルサイト2007]] 更新履歴 #recent(20) 編集砂場 --[[砂場１（ここでwiki編集の練習ができます）]] --[[砂場２（ここでwiki編集の練習ができます）]] --[[メニュー]] -[[メニュー2]] --[[ソフト１]] ---[[テストです]] &counter()

todo+map2007

2011-03-13T16:09:58+09:00

todo+map 298F852DF950 [左のシリアルナンバーをソフトに入力してください] あなたのすばらしいソリューションでうまくできますよろしくおねがいします kspa　todo+map2007について #ref(td3.png) kspa　todo+map2007は"todo+map"というソフトのバージョンアップ版です。 todo+mapはkj法の瞬発力、todoの機動力、マインドマップの表現力を合わしたようなソフトです活用しだいではスケジュール管理などに大幅なスループット向上が期待できると思います。 *kspa　todo+map2007はアルティメットフリーソフトですどういうことかというと基本的にフリーソフトですあなたがこのソフトを気に入ったなら友達や、同僚の仲間や家族に知らせてもらえたらうれしいです。そのほかブログ、ｗｅｂニュース、雑誌や書籍などにどんどん掲載したりソフトを配布していただくととてもうれしいです。 *ダウンロードただいま改造中ですもう少しまってね。 *リンク [[●kksoulpage>http://homepage3.nifty.com/soulpage/index.html]] 開発元kksoulpageのホームページです。掲示板などもあります。 [[●マインドマップソフト　todo＋mapの紹介ページ>http://homepage3.nifty.com/soulpage/software/tpm/index.htm]] todo+map紹介ホームページ [[●mixi　todo+mapコミュニティー>http://mixi.jp/view_community.pl?id=1101435]] mixi内の　todo+mapコミュニティーです。 [[●kksoulpageわくわく掲示板>http://yy37.60.kg/bungaumlplus/]] kksoulpageの掲示板です **●マインドマップ [[□mindmap.jp:>http://mindmap.jp/]] マインドマップについていろいろリンクや情報がいっぱい基本的な書き方なども [[・・マインドマップ作成ソフト>http://mindmap.jp/000091.html]] いろいろなマインドマップのソフトを紹介しています ***ソフト ****フリーマインド [[□Main Page - FreeMind - free mind mapping software>http://freemind.sourceforge.net/wiki/index.php/Main_Page]] フリーマインド本家 [[□FreeMind活用クラブ - マインドマップをフリーウェアで>http://www.freemind-club.com/]] フリーマインドの操作方法を紹介 **●todoリスト **●KJ法 **●その他スケジュール **●アウトラインプロセッサ [[□アウトラインプロセッサまとめwiki>http://www.wikiroom.com/windows/?%A5%A2%A5%A6%A5%C8%A5%E9%A5%A4%A5%F3%A5%D7%A5%ED%A5%BB%A5%C3%A5%B5]] アウトラインエディタを多数紹介しています、そのほか多数の情報など、ここを見ればアウトラインエディタソフトが大体わかります。 [[□CHEEBOW'S HOMEPAGE>http://www.lares.dti.ne.jp/%7Echeebow/indexm.html]] ストーリーエディターというアウトラインソフトを発表しています。 **●その他思考プロセス **●TOC思考プロセス

todo+mapについて

2011-03-13T16:08:07+09:00

todo+map 298F852DF950 [左のシリアルナンバーをソフトに入力してください] あなたのすばらしいソリューションでうまくできますよろしくおねがいします

iマネジメント2007

2011-03-13T16:05:02+09:00

|&ref(http://www15.atwiki.jp/comp5/pub/wiki/imm/imane2.png)| *kspa　iマネジメント２００７ TOC思考プロセスやUMLの図を描くためのグラフィックドローツールです各図を高速かつスムースに書くために各部を最適化してあります。 iマネジメントはｋｊ法に似たドロップ入力と直線的なGUIレイアウトにより高速にTOC思考プロセスの各図や UMLの図を作成できます、iマネジメントは一般的なドローソフトよりもスムースで直線的な操作により、TOC思考プロセスやUMLの図自体により注力して考えることができきっと新しいアイディアや図を生み出すことができる可能性を高めます。緊急今回起こったこの一連の事態にkksoulpageができること今回起こったことについて、kksoulpageではこのkspa iマネジメント２００７をある程度の期間無制限に開放しますもうTOCとかつかえるものはなんでもつかってなんとかしたいと考えましたもうあれとかこれとかそういうレベルじゃないんですこのシリアルを入力することでこのソフトの完全版が使えます E864B1F0-DD17 [左のシリアルナンバーをソフトに入力してください] あなたのすばらしいソリューションでうまくできますよろしくおねがいします [[ダウンロードはここから>http://homepage3.nifty.com/soulpage/software/imane/imm2007_1.lzh]] TOCリンク UML（オブジェクト指向)リンク

砂場２（ここでwiki編集の練習ができます）

2009-07-02T21:18:47+09:00

シリアルナンバーを送ってもいいですか？ #vote(はい[1],いいえ[4])

砂場１（ここでwiki編集の練習ができます）

2009-07-02T21:18:31+09:00

砂場ですので自由にテストしてくださいコメントテスト - てすとてすとてすｔｐ -- ｋｋ (2007-08-30 19:37:49) - てｓてててつぇててｔ -- kk (2007-08-30 19:38:19) #comment #vote(いつもつかってる[2],たまにつかってる[2])

todo+map

2007-12-09T22:23:34+09:00

テスト[[@wikiへ>http://kam.jp">