Button Object - 符式協會 | Google 網上論壇

14 個訊息 - 全部摺疊

燕南

檢視個人資料

更多選項 9月18日, 下午11時22分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Fri, 18 Sep 2009 08:22:20 -0700 (PDT)

當地時間： 2009年9月18日(星期五) 下午11時22分

主旨： Button Object

  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

\ Forth 的 Button 簡單寫法
\ Win32forth 寫法
ButtonControl Button_1 \ a button

:M ClassInit: ( -- )
ClassInit: super
;M

:M ExWindowStyle: ( -- style )
ExWindowStyle: SUPER
;M

:M WindowStyle: ( -- style )
WindowStyle: SUPER
WS_BORDER OR
WS_OVERLAPPED OR
;M

:M WindowTitle: ( -- title )
z" " ;M

:M StartSize: ( -- width height )
300 350 ;M

:M StartPos: ( -- x y )
30 30 ;M

:M Close: ( -- )
Close: SUPER
;M

:M On_Init: ( -- )

IDOK SetID: Button_1
self Start: Button_1
126 172 70 25 Move: Button_1
s" OK" SetText: Button_1
GetStyle: Button_1
BS_DEFPUSHBUTTON +Style: Button_1
;M

:M On_Paint: ( -- ) \ screen redraw procedure
0 0 StartSize: self LTGRAY FillArea: dc
;M

:M WM_COMMAND ( hwnd msg wparam lparam -- res )
over LOWORD ( ID )
case
IDOK of Close: self endof
endcase
0 ;M

;OBJECT

\s
\ 在裝置`平台仿照 BC 做個 button 資料結構
\ 在 IDE 上弄個顯示窗秀出 & 移動
\ 同時創建 (或手工開設) button_ 資料結構檔 & button_處理程序檔兩檔案

\ button_ 資料結構檔

_加入_ButtonControl_Link
Top
Left
Caption
Font
Cursor
Enabled
Visible
Height
Width
ShowHint
Hint
Name
TabOrder
TabStop

\ button_處理程序檔

\ :M Close: ( -- )
:
\ ;M

\ :M On_Paint: ( -- ) \ screen redraw procedure
0 0 StartSize: self LTGRAY FillArea: dc
\ ;M

寫個翻譯檔程序將 button_ 資料結構檔 & button_處理程序檔兩檔案內容轉成先前的 Win32forth button
語法 or BC or other

此次在改寫紫微斗數, 在想如何跨越不同forth os 跟裝置顯示界面順便標準化

回覆作者轉寄

胡松涛

檢視個人資料

更多選項 9月19日, 上午12時11分

寄件人： 胡松涛 <idisbluefl...@gmail.com>

日期： Sat, 19 Sep 2009 00:11:13 +0800

當地時間： 2009年9月19日(星期六) 上午12時11分

主旨： Re: [符式協會:559] Button Object

  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

程虏虫倈阁禫碞琌勅ノ㏑𦽳︽よΑ

2009/9/18 縋玭 <ezfo...@gmail.com>:

- 顯示被引用文字 -

> \ Forth 倈 Button 虏虫糶猭
> \ Win32forth 糶猭
> ButtonControl Button_1 \ a button

> :M ClassInit: ( -- )
> ClassInit: super
> ;M

> :M ExWindowStyle: ( -- style )
> ExWindowStyle: SUPER
> ;M

> :M WindowStyle: ( -- style )
> WindowStyle: SUPER
> WS_BORDER OR
> WS_OVERLAPPED OR
> ;M

> :M WindowTitle: ( -- title )
> z" " ;M

> :M StartSize: ( -- width height )
> 300 350 ;M

> :M StartPos: ( -- x y )
> 30 30 ;M

> :M Close: ( -- )
> Close: SUPER
> ;M

> :M On_Init: ( -- )

> IDOK SetID: Button_1
> self Start: Button_1
> 126 172 70 25 Move: Button_1
> s" OK" SetText: Button_1
> GetStyle: Button_1
> BS_DEFPUSHBUTTON +Style: Button_1
> ;M

> :M On_Paint: ( -- ) \ screen redraw procedure
> 0 0 StartSize: self LTGRAY FillArea: dc
> ;M

> :M WM_COMMAND ( hwnd msg wparam lparam -- res )
> over LOWORD ( ID )
> case
> IDOK of Close: self endof
> endcase
> 0 ;M

> ;OBJECT

> \s
> \ 㶏杆竚`キ曎ラ酚 BC 暗鞽 button 戈敍挡篶
> \ 㶏 IDE 叐𨧹鞽陪ボ怠 ╭𢴇 & 簿笆
> \ 㯗𤨣承啝 (┪も𡡡秨砞) button_ 戈敍挡篶郎 & button_矪瞶祘𧞄郎ㄢ郎𣐀

> \ button_ 戈敍挡篶郎

> _摱𤦬_ButtonControl_Link
> Top
> Left
> Caption
> Font
> Cursor
> Enabled
> Visible
> Height
> Width
> ShowHint
> Hint
> Name
> TabOrder
> TabStop

> \ button_矪瞶祘𧞄郎

> \ :M Close: ( -- )
> :
> \ ;M

> \ :M On_Paint: ( -- ) \ screen redraw procedure
> 0 0 StartSize: self LTGRAY FillArea: dc
> \ ;M

> 糶鞽陆亩郎祘𧞄盢 button_ 戈敍挡篶郎 & button_矪瞶祘𧞄郎ㄢ郎𣐀ず甧锣Θ 腂玡倈 Win32forth button
> 粂猭 or BC or other

> 飃Ω㶏э糶档稬ゆ计, 㶏稱犔蜨阁禫ぃ㯗forth os 蛤杆竚陪ボ𦴪㠶抖獽夹非て

回覆作者轉寄

燕南

檢視個人資料

更多選項 9月20日, 上午10時05分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Sat, 19 Sep 2009 19:05:00 -0700 (PDT)

主旨： Re: Button Object

  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

貼文都亂碼!

On 9月19日, 上午12時11分, 胡松涛 <idisbluefl...@gmail.com> wrote:

- 顯示被引用文字 -

> 程虏虫倈阁禫碞琌勅ノ㏑𦽳︽よΑ

> 2009/9/18 縋玭 <ezfo...@gmail.com>:

> > \ Forth 倈 Button 虏虫糶猭
> > \ Win32forth 糶猭
> > ButtonControl Button_1 \ a button

> > :M ClassInit: ( -- )
> > ClassInit: super
> > ;M

> > :M ExWindowStyle: ( -- style )
> > ExWindowStyle: SUPER
> > ;M

> > :M WindowStyle: ( -- style )
> > WindowStyle: SUPER
> > WS_BORDER OR
> > WS_OVERLAPPED OR
> > ;M

> > :M WindowTitle: ( -- title )
> > z" " ;M

> > :M StartSize: ( -- width height )
> > 300 350 ;M

> > :M StartPos: ( -- x y )
> > 30 30 ;M

> > :M Close: ( -- )
> > Close: SUPER
> > ;M

> > :M On_Init: ( -- )

> > IDOK SetID: Button_1
> > self Start: Button_1
> > 126 172 70 25 Move: Button_1
> > s" OK" SetText: Button_1
> > GetStyle: Button_1
> > BS_DEFPUSHBUTTON +Style: Button_1
> > ;M

> > :M On_Paint: ( -- ) \ screen redraw procedure
> > 0 0 StartSize: self LTGRAY FillArea: dc
> > ;M

> > :M WM_COMMAND ( hwnd msg wparam lparam -- res )
> > over LOWORD ( ID )
> > case
> > IDOK of Close: self endof
> > endcase
> > 0 ;M

> > ;OBJECT

> > \s
> > \ 㶏杆竚`キ曎ラ酚 BC 暗鞽 button 戈敍挡篶
> > \ 㶏 IDE 叐𨧹鞽陪ボ怠 ╭𢴇 & 簿笆
> > \ 㯗𤨣承啝 (┪も𡡡秨砞) button_ 戈敍挡篶郎 & button_矪瞶祘𧞄郎ㄢ郎𣐀

> > \ button_ 戈敍挡篶郎

> > _摱𤦬_ButtonControl_Link
> > Top
> > Left
> > Caption
> > Font
> > Cursor
> > Enabled
> > Visible
> > Height
> > Width
> > ShowHint
> > Hint
> > Name
> > TabOrder
> > TabStop

> > \ button_矪瞶祘𧞄郎

> > \ :M Close: ( -- )
> > :
> > \ ;M

> > \ :M On_Paint: ( -- ) \ screen redraw procedure
> > 0 0 StartSize: self LTGRAY FillArea: dc
> > \ ;M

> > 糶鞽陆亩郎祘𧞄盢 button_ 戈敍挡篶郎 & button_矪瞶祘𧞄郎ㄢ郎𣐀ず甧锣Θ 腂玡倈 Win32forth button
> > 粂猭 or BC or other

> > 飃Ω㶏э糶档稬ゆ计, 㶏稱犔蜨阁禫ぃ㯗forth os 蛤杆竚陪ボ𦴪㠶抖獽夹非て- 隱藏被引用文字 -

> - 顯示被引用文字 -

回覆作者轉寄

晓杰王

檢視個人資料

更多選項 9月20日, 下午5時37分

寄件人： 晓杰王 <yoyofree...@gmail.com>

日期： Sun, 20 Sep 2009 17:37:04 +0800

當地時間： 2009年9月20日(星期日) 下午5時37分

主旨： Re: [符式協會:561] Re: Button Object

  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

乱码啊。

2009/9/19 胡松涛 <idisbluefl...@gmail.com>

- 顯示被引用文字 -

> 程虏虫倈阁禫碞琌勅ノ㏑𦽳︽よΑ

> 2009/9/18 縋玭 <ezfo...@gmail.com>:

> > \ Forth 倈 Button 虏虫糶猭
> > \ Win32forth 糶猭
> > ButtonControl Button_1 \ a button

> > :M ClassInit: ( -- )
> > ClassInit: super
> > ;M

> > :M ExWindowStyle: ( -- style )
> > ExWindowStyle: SUPER
> > ;M

> > :M WindowStyle: ( -- style )
> > WindowStyle: SUPER
> > WS_BORDER OR
> > WS_OVERLAPPED OR
> > ;M

> > :M WindowTitle: ( -- title )
> > z" " ;M

> > :M StartSize: ( -- width height )
> > 300 350 ;M

> > :M StartPos: ( -- x y )
> > 30 30 ;M

> > :M Close: ( -- )
> > Close: SUPER
> > ;M

> > :M On_Init: ( -- )

> > IDOK SetID: Button_1
> > self Start: Button_1
> > 126 172 70 25 Move: Button_1
> > s" OK" SetText: Button_1
> > GetStyle: Button_1
> > BS_DEFPUSHBUTTON +Style: Button_1
> > ;M

> > :M On_Paint: ( -- ) \ screen redraw procedure
> > 0 0 StartSize: self LTGRAY FillArea: dc
> > ;M

> > :M WM_COMMAND ( hwnd msg wparam lparam -- res )
> > over LOWORD ( ID )
> > case
> > IDOK of Close: self endof
> > endcase
> > 0 ;M

> > ;OBJECT

> > \ button_ 戈敍挡篶郎

> > _摱𤦬_ButtonControl_Link
> > Top
> > Left
> > Caption
> > Font
> > Cursor
> > Enabled
> > Visible
> > Height
> > Width
> > ShowHint
> > Hint
> > Name
> > TabOrder
> > TabStop

> > \ button_矪瞶祘𧞄郎

> > \ :M Close: ( -- )
> > :
> > \ ;M

> > \ :M On_Paint: ( -- ) \ screen redraw procedure
> > 0 0 StartSize: self LTGRAY FillArea: dc
> > \ ;M

> > 糶鞽陆亩郎祘𧞄盢 button_ 戈敍挡篶郎 & button_矪瞶祘𧞄郎ㄢ郎𣐀ず甧锣Θ 腂玡倈 Win32forth button
> > 粂猭 or BC or other

> > 飃Ω㶏э糶档稬ゆ计, 㶏稱犔蜨阁禫ぃ㯗forth os 蛤杆竚陪ボ𦴪㠶抖獽夹非て

--
------------------------------------------
陕西省档案局信息化工作处
王晓杰
移动电话：13891890228
QQ:1289446
地址:建国路五巷63号
城市/地区: 西安-陕西
邮政编码：710001

回覆作者轉寄

胡松涛

檢視個人資料

更多選項 9月20日, 下午7時26分

寄件人： 胡松涛 <idisbluefl...@gmail.com>

日期： Sun, 20 Sep 2009 19:26:50 +0800

當地時間： 2009年9月20日(星期日) 下午7時26分

主旨： Re: [符式協會:559] Button Object

  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

I mean, the easier way of running on every os , every pc, is the console way. ;)

2009/9/18 縋玭 <ezfo...@gmail.com>:

- 顯示被引用文字 -

> \ Forth 倈 Button 虏虫糶猭
> \ Win32forth 糶猭
> ButtonControl Button_1 \ a button

> :M ClassInit: ( -- )
> ClassInit: super
> ;M

> :M ExWindowStyle: ( -- style )
> ExWindowStyle: SUPER
> ;M

> :M WindowStyle: ( -- style )
> WindowStyle: SUPER
> WS_BORDER OR
> WS_OVERLAPPED OR
> ;M

> :M WindowTitle: ( -- title )
> z" " ;M

> :M StartSize: ( -- width height )
> 300 350 ;M

> :M StartPos: ( -- x y )
> 30 30 ;M

> :M Close: ( -- )
> Close: SUPER
> ;M

> :M On_Init: ( -- )

> IDOK SetID: Button_1
> self Start: Button_1
> 126 172 70 25 Move: Button_1
> s" OK" SetText: Button_1
> GetStyle: Button_1
> BS_DEFPUSHBUTTON +Style: Button_1
> ;M

> :M On_Paint: ( -- ) \ screen redraw procedure
> 0 0 StartSize: self LTGRAY FillArea: dc
> ;M

> :M WM_COMMAND ( hwnd msg wparam lparam -- res )
> over LOWORD ( ID )
> case
> IDOK of Close: self endof
> endcase
> 0 ;M

> ;OBJECT

> \ button_ 戈敍挡篶郎

> _摱𤦬_ButtonControl_Link
> Top
> Left
> Caption
> Font
> Cursor
> Enabled
> Visible
> Height
> Width
> ShowHint
> Hint
> Name
> TabOrder
> TabStop

> \ button_矪瞶祘𧞄郎

> \ :M Close: ( -- )
> :
> \ ;M

> \ :M On_Paint: ( -- ) \ screen redraw procedure
> 0 0 StartSize: self LTGRAY FillArea: dc
> \ ;M

> 糶鞽陆亩郎祘𧞄盢 button_ 戈敍挡篶郎 & button_矪瞶祘𧞄郎ㄢ郎𣐀ず甧锣Θ 腂玡倈 Win32forth button
> 粂猭 or BC or other

> 飃Ω㶏э糶档稬ゆ计, 㶏稱犔蜨阁禫ぃ㯗forth os 蛤杆竚陪ボ𦴪㠶抖獽夹非て

回覆作者轉寄

燕南

檢視個人資料

更多選項 9月22日, 上午7時34分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Mon, 21 Sep 2009 16:34:06 -0700 (PDT)

當地時間： 2009年9月22日(星期二) 上午7時34分

主旨： Re: Button Object

  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

<A>簡體顯示有時有點問題,是剪貼所造成的嗎？﹗

<B> console way 是早期 Forth 系統建立使用，已經蠻多人做過（如ｅｆｏｒｔｈ) ; 我要處理的是視覺化,用於應用程式等
級像紫微斗數，除了命理運算外;還有大量視覺圖形互動處理!

<C> :M ;M 是 Win32Forth 撰寫 Object&Class 的語法; 比較跟 VC++ 描述一樣;
BC++ 的 VCL 描述，比較具親合力.
所以參考 bcb6vcl.hlp 來重新設計 Forth 所用的 VCL 資料結構.
對首次使用 forth 寫 Object 的人比較容易入手!
<D> 像上面 buttom 範例 ,各參數散落在各:M ;M 宣告;不是很容易讀取,包括我在寫時也常漏東漏西的
Object參數我在寫紫微斗數時常隨應用而變更，我也是都用變數去代;
這次重寫,就順便將所有變數仿 BC++ 的 VCL 描述,集中起來描述,指定表格的固定位置；
方便轉譯
<E>之前用Forth寫 Object 已經有制式化寫法,ForthForm有直接轉但有點難用(不能來回互轉)
就是少了額外的VCL描述表

On 9月20日, 下午7時26分, 胡松涛 <idisbluefl...@gmail.com> wrote:

- 顯示被引用文字 -

> I mean, the easier way of running on every os , every pc, is the console way. ;)

> 2009/9/18 縋玭 <ezfo...@gmail.com>:

> > \ Forth 倈 Button 虏虫糶猭
> > \ Win32forth 糶猭
> > ButtonControl Button_1 \ a button

> > :M ClassInit: ( -- )
> > ClassInit: super
> > ;M

> > :M ExWindowStyle: ( -- style )
> > ExWindowStyle: SUPER
> > ;M

> > :M WindowStyle: ( -- style )
> > WindowStyle: SUPER
> > WS_BORDER OR
> > WS_OVERLAPPED OR
> > ;M

> > :M WindowTitle: ( -- title )
> > z" " ;M

> > :M StartSize: ( -- width height )
> > 300 350 ;M

> > :M StartPos: ( -- x y )
> > 30 30 ;M

> > :M Close: ( -- )
> > Close: SUPER
> > ;M

> > :M On_Init: ( -- )

> > IDOK SetID: Button_1
> > self Start: Button_1
> > 126 172 70 25 Move: Button_1
> > s" OK" SetText: Button_1
> > GetStyle: Button_1
> > BS_DEFPUSHBUTTON +Style: Button_1
> > ;M

> > :M On_Paint: ( -- ) \ screen redraw procedure
> > 0 0 StartSize: self LTGRAY FillArea: dc
> > ;M

> > :M WM_COMMAND ( hwnd msg wparam lparam -- res )
> > over LOWORD ( ID )
> > case
> > IDOK of Close: self endof
> > endcase
> > 0 ;M

> > ;OBJECT

> > \ button_ 戈敍挡篶郎

> > _摱𤦬_ButtonControl_Link
> > Top
> > Left
> > Caption
> > Font
> > Cursor
> > Enabled
> > Visible
> > Height
> > Width
> > ShowHint
> > Hint
> > Name
> > TabOrder
> > TabStop

> > \ button_矪瞶祘𧞄郎

> > \ :M Close: ( -- )
> > :
> > \ ;M

> > \ :M On_Paint: ( -- ) \ screen redraw procedure
> > 0 0 StartSize: self LTGRAY FillArea: dc
> > \ ;M

> > 糶鞽陆亩郎祘𧞄盢 button_ 戈敍挡篶郎 & button_矪瞶祘𧞄郎ㄢ郎𣐀ず甧锣Θ 腂玡倈 Win32forth button
> > 粂猭 or BC or other

> > 飃Ω㶏э糶档稬ゆ计, 㶏稱犔蜨阁禫ぃ㯗forth os 蛤杆竚陪ボ𦴪㠶抖獽夹非て- 隱藏被引用文字 -

> - 顯示被引用文字 -

回覆作者轉寄

燕南

檢視個人資料

更多選項 10月4日, 下午2時05分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Sat, 3 Oct 2009 23:05:03 -0700 (PDT)

當地時間： 2009年10月4日(星期日) 下午2時05分

主旨： Re: Button Object

  回覆
  |
  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

In TButton
<.>Properties
<.>Derived from TControl
Action
Align
Anchors
BiDiMode
BoundsRect
Caption
ClientHeight
ClientWidth
Constraints
ControlState
ControlStyle
Cursor
DockOrientation
DragCursor
DragKind
DragMode
Enabled
Floating
FloatingDockSiteClass
Font
Height
HelpContext
HelpKeyword
HelpType
Hint
HostDockSite
Left
LRDockWidth
Name
Parent
ParentBiDiMode
ParentFont
ParentShowHint
PopupMenu
ShowHint
TBDockHeight
Top
UndockHeight
UndockWidth
Visible
Width
WindowProc
<.>Even
<.>Derived from TControl
OnClick
OnContextPopup
OnDragDrop
OnDragOver
OnEndDock
OnEndDrag
OnMouseDown
OnMouseMove
OnMouseUp
OnStartDock
OnStartDrag

On 9月22日, 上午7時34分, 燕南 <ezfo...@gmail.com> wrote:

- 顯示被引用文字 -

> <A>簡體顯示有時有點問題,是剪貼所造成的嗎？﹗

> <B> console way 是早期 Forth 系統建立使用，已經蠻多人做過（如ｅｆｏｒｔｈ) ; 我要處理的是視覺化,用於應用程式等
> 級像紫微斗數，除了命理運算外;還有大量視覺圖形互動處理!

> <C> :M ;M 是 Win32Forth 撰寫 Object&Class 的語法; 比較跟 VC++ 描述一樣;
> BC++ 的 VCL 描述，比較具親合力.
> 所以參考 bcb6vcl.hlp 來重新設計 Forth 所用的 VCL 資料結構.
> 對首次使用 forth 寫 Object 的人比較容易入手!
> <D> 像上面 buttom 範例 ,各參數散落在各:M ;M 宣告;不是很容易讀取,包括我在寫時也常漏東漏西的
> Object參數我在寫紫微斗數時常隨應用而變更，我也是都用變數去代;
> 這次重寫,就順便將所有變數仿 BC++ 的 VCL 描述,集中起來描述,指定表格的固定位置；
> 方便轉譯
> <E>之前用Forth寫 Object 已經有制式化寫法,ForthForm有直接轉但有點難用(不能來回互轉)
> 就是少了額外的VCL描述表

> On 9月20日, 下午7時26分, 胡松涛 <idisbluefl...@gmail.com> wrote:

> > I mean, the easier way of running on every os , every pc, is the console way. ;)

> > 2009/9/18 縋玭 <ezfo...@gmail.com>:

> > > \ Forth 倈 Button 虏虫糶猭
> > > \ Win32forth 糶猭
> > > ButtonControl Button_1 \ a button

> > > :M ClassInit: ( -- )
> > > ClassInit: super
> > > ;M

> > > :M ExWindowStyle: ( -- style )
> > > ExWindowStyle: SUPER
> > > ;M

> > > :M WindowStyle: ( -- style )
> > > WindowStyle: SUPER
> > > WS_BORDER OR
> > > WS_OVERLAPPED OR
> > > ;M

> > > :M WindowTitle: ( -- title )
> > > z" " ;M

> > > :M StartSize: ( -- width height )
> > > 300 350 ;M

> > > :M StartPos: ( -- x y )
> > > 30 30 ;M

> > > :M Close: ( -- )
> > > Close: SUPER
> > > ;M

> > > :M On_Init: ( -- )

> > > IDOK SetID: Button_1
> > > self Start: Button_1
> > > 126 172 70 25 Move: Button_1
> > > s" OK" SetText: Button_1
> > > GetStyle: Button_1
> > > BS_DEFPUSHBUTTON +Style: Button_1
> > > ;M

> > > :M On_Paint: ( -- ) \ screen redraw procedure
> > > 0 0 StartSize: self LTGRAY FillArea: dc
> > > ;M

> > > :M WM_COMMAND ( hwnd msg wparam lparam -- res )
> > > over LOWORD ( ID )
> > > case
> > > IDOK of Close: self endof
> > > endcase
> > > 0 ;M

> > > ;OBJECT

> > > \s
> > > \ 㶏杆竚`キ曎ラ酚 BC 暗鞽 button 戈敍挡篶
> > > \ 㶏 IDE 叐𨧹鞽陪ボ怠 ╭𢴇 & 簿笆
> > > \ 㯗𤨣承啝 (┪も𡡡秨砞) button_ 戈敍挡篶郎 & button_矪瞶祘𧞄郎ㄢ郎𣐀

> > > \ button_ 戈敍挡篶郎

> > > _摱𤦬_ButtonControl_Link
> > > Top
> > > Left
> > > Caption
> > > Font
> > > Cursor
> > > Enabled
> > > Visible
> > > Height
> > > Width
> > > ShowHint
> > > Hint
> > > Name
> > > TabOrder
> > > TabStop

> > > \ button_矪瞶祘𧞄郎

> > > \ :M Close: ( -- )
> > > :
> > > \ ;M

> > > \ :M On_Paint: ( -- ) \ screen redraw procedure
> > > 0 0 StartSize: self LTGRAY FillArea: dc
> > > \ ;M

> > > 糶鞽陆亩郎祘𧞄盢 button_ 戈敍挡篶郎 & button_矪瞶祘𧞄郎ㄢ郎𣐀ず甧锣Θ 腂玡倈 Win32forth button
> > > 粂猭 or BC or other

> > > 飃Ω㶏э糶档稬ゆ计, 㶏稱犔蜨阁禫ぃ㯗forth os 蛤杆竚陪ボ𦴪㠶抖獽夹非て- 隱藏被引用文字 -

> > - 顯示被引用文字 -- 隱藏被引用文字 -

> - 顯示被引用文字 -

回覆回覆作者轉寄

燕南

檢視個人資料

更多選項 10月4日, 下午3時51分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Sun, 4 Oct 2009 00:51:32 -0700 (PDT)

當地時間： 2009年10月4日(星期日) 下午3時51分

主旨： Re: Button Object

  回覆
  |
  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

\ In TButton_Properties
196 CONSTANT TButton_size
\
0 CONSTANT TButton_Action_offset
4 CONSTANT TButton_Align_offset
8 CONSTANT TButton_Anchors_offset
16 CONSTANT TButton_BiDiMode_offset
20 CONSTANT TButton_BoundsRect_offset
24 CONSTANT TButton_Caption_offset
28 CONSTANT TButton_ClientHeight_offset
32 CONSTANT TButton_ClientWidth_offset
36 CONSTANT TButton_Constraints_offset
40 CONSTANT TButton_ControlState_offset
44 CONSTANT TButton_ControlStyle_offset
48 CONSTANT TButton_Cursor_offset
52 CONSTANT TButton_DockOrientation_offset
56 CONSTANT TButton_DragCursor_offset
60 CONSTANT TButton_DragKind_offset
64 CONSTANT TButton_DragMode_offset
68 CONSTANT TButton_Enabled_offset
72 CONSTANT TButton_Floating_offset
76 CONSTANT TButton_FloatingDockSiteClass_offset
80 CONSTANT TButton_Font_offset
84 CONSTANT TButton_Height_offset
88 CONSTANT TButton_HelpContext_offset
72 CONSTANT TButton_HelpKeyword_offset
76 CONSTANT TButton_HelpType_offset
78 CONSTANT TButton_Hint_offset
84 CONSTANT TButton_HostDockSite_offset
88 CONSTANT TButton_Left_offset
92 CONSTANT TButton_LRDockWidth_offset
96 CONSTANT TButton_Name_offset
100 CONSTANT TButton_Parent_offset
104 CONSTANT TButton_ParentBiDiMode_offset
108 CONSTANT TButton_ParentFont_offset
112 CONSTANT TButton_ParentShowHint_offset
116 CONSTANT TButton_PopupMenu_offset
120 CONSTANT TButton_ShowHint_offset
124 CONSTANT TButton_TBDockHeight_offset
128 CONSTANT TButton_Top_offset
132 CONSTANT TButton_UndockHeight_offset
136 CONSTANT TButton_UndockWidth_offset
140 CONSTANT TButton_Visible_offset
144 CONSTANT TButton_Width_offset
148 CONSTANT TButton_WindowProc_offset
152 CONSTANT TButton_OnClick_offset
156 CONSTANT TButton_OnContextPopup_offset
160 CONSTANT TButton_OnDragDrop_offset
164 CONSTANT TButton_OnDragOver_offset
168 CONSTANT TButton_OnEndDock_offset
172 CONSTANT TButton_OnEndDrag_offset
176 CONSTANT TButton_OnMouseDown_offset
180 CONSTANT TButton_OnMouseMove_offset
184 CONSTANT TButton_OnMouseUp_offset
188 CONSTANT TButton_OnStartDock_offset
192 CONSTANT TButton_OnStartDrag_offset

\ Derived from TControl
: TButton_Action_Index ( adr0 -- adr_offset )
TButton_Action_offset + ;
: TButton_Align_Index ( adr0 -- adr_offset )
TButton_Align_offset + ;
: TButton_Anchors_Index ( adr0 -- adr_offset )
TButton_Anchors_offset + ;
: TButton_BiDiMode_Index ( adr0 -- adr_offset )
TButton_BiDiMode_offset + ;
: TButton_BoundsRect_Index ( adr0 -- adr_offset )
TButton_BoundsRect_offset + ;
: TButton_Caption_Index ( adr0 -- adr_offset )
TButton_Caption_offset + ;
: TButton_ClientHeight_Index ( adr0 -- adr_offset )
TButton_ClientHeight_offset + ;
: TButton_ClientWidth_Index ( adr0 -- adr_offset )
TButton_ClientWidth_offset + ;
: TButton_Constraints_Index ( adr0 -- adr_offset )
TButton_Constraints_offset + ;
: TButton_ControlState_Index ( adr0 -- adr_offset )
TButton_ControlState_offset + ;
: TButton_ControlStyle_Index ( adr0 -- adr_offset )
TButton_ControlStyle_offset + ;
: TButton_Cursor_Index ( adr0 -- adr_offset )
TButton_Cursor_offset + ;
: TButton_DockOrientation_Index ( adr0 -- adr_offset )
TButton_DockOrientation_offset + ;
: TButton_DragCursor_Index ( adr0 -- adr_offset )
TButton_DragCursor_offset + ;
: TButton_DragKind_Index ( adr0 -- adr_offset )
TButton_DragKind_offset + ;
: TButton_DragMode_Index ( adr0 -- adr_offset )
TButton_DragMode_offset + ;
: TButton_Enabled_Index ( adr0 -- adr_offset )
TButton_Enabled_offset + ;
: TButton_Floating_Index ( adr0 -- adr_offset )
TButton_Floating_offset + ;
: TButton_FloatingDockSiteClass_Index ( adr0 -- adr_offset )
TButton_FloatingDockSiteClass_offset + ;
: TButton_Font_Index ( adr0 -- adr_offset )
TButton_Font_offset + ;
: TButton_Height_Index ( adr0 -- adr_offset )
TButton_Height_offset + ;
: TButton_HelpContext_Index ( adr0 -- adr_offset )
TButton_HelpContext_offset + ;
: TButton_HelpKeyword_Index ( adr0 -- adr_offset )
TButton_HelpKeyword_offset + ;
: TButton_HelpType_Index ( adr0 -- adr_offset )
TButton_HelpType_offset + ;
: TButton_Hint_Index ( adr0 -- adr_offset )
TButton_Hint_offset + ;
: TButton_HostDockSite_Index ( adr0 -- adr_offset )
TButton_HostDockSite_offset + ;
: TButton_Left_Index ( adr0 -- adr_offset )
TButton_Left_offset + ;
: TButton_LRDockWidth_Index ( adr0 -- adr_offset )
TButton_LRDockWidth_offset + ;
: TButton_Name_Index ( adr0 -- adr_offset )
TButton_Name_offset + ;
: TButton_Parent_Index ( adr0 -- adr_offset )
TButton_Parent_offset + ;
: TButton_ParentBiDiMode_Index ( adr0 -- adr_offset )
TButton_ParentBiDiMode_offset + ;
: TButton_ParentFont_Index ( adr0 -- adr_offset )
TButton_ParentFont_offset + ;
: TButton_ParentShowHint_Index ( adr0 -- adr_offset )
TButton_ParentShowHint_offset + ;
: TButton_PopupMenu_Index ( adr0 -- adr_offset )
TButton_PopupMenu_offset + ;
: TButton_ShowHint_Index ( adr0 -- adr_offset )
TButton_ShowHint_offset + ;
: TButton_TBDockHeight_Index ( adr0 -- adr_offset )
TButton_TBDockHeight_offset + ;
: TButton_Top_Index ( adr0 -- adr_offset )
TButton_Top_offset + ;
: TButton_UndockHeight_Index ( adr0 -- adr_offset )
TButton_UndockHeight_offset + ;
: TButton_UndockWidth_Index ( adr0 -- adr_offset )
TButton_UndockWidth_offset + ;
: TButton_Visible_Index ( adr0 -- adr_offset )
TButton_Visible_offset + ;
: TButton_Width_Index ( adr0 -- adr_offset )
TButton_Width_offset + ;
: TButton_WindowProc_Index ( adr0 -- adr_offset )
TButton_WindowProc_offset + ;

\ Even
\ Derived from TControl
: TButton_OnClick_Index ( adr0 -- adr_offset )
TButton_OnClick_offset + ;
: TButton_OnContextPopup_Index ( adr0 -- adr_offset )
TButton_OnContextPopup_offset + ;
: TButton_OnDragDrop_Index ( adr0 -- adr_offset )
TButton_OnDragDrop_offset + ;
: TButton_OnDragOver_Index ( adr0 -- adr_offset )
TButton_OnDragOver_offset + ;
: TButton_OnEndDock_Index ( adr0 -- adr_offset )
TButton_OnEndDock_offset + ;
: TButton_OnEndDrag_Index ( adr0 -- adr_offset )
TButton_OnEndDrag_offset + ;
: TButton_OnMouseDown_Index ( adr0 -- adr_offset )
TButton_OnMouseDown_offset + ;
: TButton_OnMouseMove_Index ( adr0 -- adr_offset )
TButton_OnMouseMove_offset + ;
: TButton_OnMouseUp_Index ( adr0 -- adr_offset )
TButton_OnMouseUp_offset + ;
: TButton_OnStartDock_Index ( adr0 -- adr_offset )
TButton_OnStartDock_offset + ;
: TButton_OnStartDrag_Index ( adr0 -- adr_offset )
TButton_OnStartDrag_offset + ;

\
: TButton create TButton_size allot does> ;

On 10月4日, 下午2時05分, 燕南 <ezfo...@gmail.com> wrote:

- 顯示被引用文字 -

...

閱讀更多 »

回覆回覆作者轉寄

燕南

檢視個人資料

更多選項 10月4日, 下午5時03分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Sun, 4 Oct 2009 02:03:50 -0700 (PDT)

當地時間： 2009年10月4日(星期日) 下午5時03分

主旨： Re: Button Object

  回覆
  |
  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

再依上改寫以前的
ButtonBox.F
CheckBox.F
ComboListBox.f
EditBox.f
ListBox.f
MessageInBox.f
MessageOutBox.f
RadioBox.f
StaticBox.F
的範例程式

建造 VCL 管理表(字彙 VCL）
Button---Button1---Button2---Button3
Check
ComboList
Edit
List
MessageIn
MessageOut
Radio
Static

再來處理圖像問題!

On 10月4日, 下午3時51分, 燕南 <ezfo...@gmail.com> wrote:

- 顯示被引用文字 -

...

閱讀更多 »

回覆回覆作者轉寄

燕南

檢視個人資料

更多選項 10月7日, 上午11時15分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Tue, 6 Oct 2009 20:15:17 -0700 (PDT)

當地時間： 2009年10月7日(星期三) 上午11時15分

主旨： Re: Button Object

  回覆
  |
  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

在Win32forth中增加 vocabulary

vocabulary VCL ( 新增 VCL 詞彙 )
VCL definitions ( 指向 VCL 詞彙 )

fload TButton.f ( 前文內容 )
fload TEdit.f
:
:

PS.
將修改後的 fkernel.f & class.f 和中文相容化.bat 壓縮成 Win32forth61300中文相容化.zip
放上網路下載!
使用時拷至Win32forth61300目錄下解開,執行批次檔!
copy fkernel.f ..\src\kernel\fkernel.f
copy class.f ..\src\class.f
..\setup.exe
按 B 鍵 ,產生新的 win32forth.exe ( 註: 所有 rebuild 選項都要重做一次, 我很少用所以之前沒說到)
界面中文化要修改menu.f

謝謝!

On 10月4日, 下午5時03分, 燕南 <ezfo...@gmail.com> wrote:

- 顯示被引用文字 -

> 再依上改寫以前的
> ButtonBox.F
> CheckBox.F
> ComboListBox.f
> EditBox.f
> ListBox.f
> MessageInBox.f
> MessageOutBox.f
> RadioBox.f
> StaticBox.F
> 的範例程式

> 建造 VCL 管理表(字彙 VCL）
> Button---Button1---Button2---Button3
> Check
> ComboList
> Edit
> List
> MessageIn
> MessageOut
> Radio
> Static

> 再來處理圖像問題!

> On 10月4日, 下午3時51分, 燕南 <ezfo...@gmail.com> wrote:

> > \ In TButton_Properties
> > 196 CONSTANT TButton_size
> > \
> > 0 CONSTANT TButton_Action_offset
> > 4 CONSTANT TButton_Align_offset
> > 8 CONSTANT TButton_Anchors_offset
> > 16 CONSTANT TButton_BiDiMode_offset
> > 20 CONSTANT TButton_BoundsRect_offset
> > 24 CONSTANT TButton_Caption_offset
> > 28 CONSTANT TButton_ClientHeight_offset
> > 32 CONSTANT TButton_ClientWidth_offset
> > 36 CONSTANT TButton_Constraints_offset
> > 40 CONSTANT TButton_ControlState_offset
> > 44 CONSTANT TButton_ControlStyle_offset
> > 48 CONSTANT TButton_Cursor_offset
> > 52 CONSTANT TButton_DockOrientation_offset
> > 56 CONSTANT TButton_DragCursor_offset
> > 60 CONSTANT TButton_DragKind_offset
> > 64 CONSTANT TButton_DragMode_offset
> > 68 CONSTANT TButton_Enabled_offset
> > 72 CONSTANT TButton_Floating_offset
> > 76 CONSTANT TButton_FloatingDockSiteClass_offset
> > 80 CONSTANT TButton_Font_offset
> > 84 CONSTANT TButton_Height_offset
> > 88 CONSTANT TButton_HelpContext_offset
> > 72 CONSTANT TButton_HelpKeyword_offset
> > 76 CONSTANT TButton_HelpType_offset
> > 78 CONSTANT TButton_Hint_offset
> > 84 CONSTANT TButton_HostDockSite_offset
> > 88 CONSTANT TButton_Left_offset
> > 92 CONSTANT TButton_LRDockWidth_offset
> > 96 CONSTANT TButton_Name_offset
> > 100 CONSTANT TButton_Parent_offset
> > 104 CONSTANT TButton_ParentBiDiMode_offset
> > 108 CONSTANT TButton_ParentFont_offset
> > 112 CONSTANT TButton_ParentShowHint_offset
> > 116 CONSTANT TButton_PopupMenu_offset
> > 120 CONSTANT TButton_ShowHint_offset
> > 124 CONSTANT TButton_TBDockHeight_offset
> > 128 CONSTANT TButton_Top_offset
> > 132 CONSTANT TButton_UndockHeight_offset
> > 136 CONSTANT TButton_UndockWidth_offset
> > 140 CONSTANT TButton_Visible_offset
> > 144 CONSTANT TButton_Width_offset
> > 148 CONSTANT TButton_WindowProc_offset
> > 152 CONSTANT TButton_OnClick_offset
> > 156 CONSTANT TButton_OnContextPopup_offset
> > 160 CONSTANT TButton_OnDragDrop_offset
> > 164 CONSTANT TButton_OnDragOver_offset
> > 168 CONSTANT TButton_OnEndDock_offset
> > 172 CONSTANT TButton_OnEndDrag_offset
> > 176 CONSTANT TButton_OnMouseDown_offset
> > 180 CONSTANT TButton_OnMouseMove_offset
> > 184 CONSTANT TButton_OnMouseUp_offset
> > 188 CONSTANT TButton_OnStartDock_offset
> > 192 CONSTANT TButton_OnStartDrag_offset

> > \ Derived from TControl
> > : TButton_Action_Index ( adr0 -- adr_offset )
> > TButton_Action_offset + ;
> > : TButton_Align_Index ( adr0 -- adr_offset )
> > TButton_Align_offset + ;
> > : TButton_Anchors_Index ( adr0 -- adr_offset )
> > TButton_Anchors_offset + ;
> > : TButton_BiDiMode_Index ( adr0 -- adr_offset )
> > TButton_BiDiMode_offset + ;
> > : TButton_BoundsRect_Index ( adr0 -- adr_offset )
> > TButton_BoundsRect_offset + ;
> > : TButton_Caption_Index ( adr0 -- adr_offset )
> > TButton_Caption_offset + ;
> > : TButton_ClientHeight_Index ( adr0 -- adr_offset )
> > TButton_ClientHeight_offset + ;
> > : TButton_ClientWidth_Index ( adr0 -- adr_offset )
> > TButton_ClientWidth_offset + ;
> > : TButton_Constraints_Index ( adr0 -- adr_offset )
> > TButton_Constraints_offset + ;
> > : TButton_ControlState_Index ( adr0 -- adr_offset )
> > TButton_ControlState_offset + ;
> > : TButton_ControlStyle_Index ( adr0 -- adr_offset )
> > TButton_ControlStyle_offset + ;
> > : TButton_Cursor_Index ( adr0 -- adr_offset )
> > TButton_Cursor_offset + ;
> > : TButton_DockOrientation_Index ( adr0 -- adr_offset )
> > TButton_DockOrientation_offset + ;
> > : TButton_DragCursor_Index ( adr0 -- adr_offset )
> > TButton_DragCursor_offset + ;
> > : TButton_DragKind_Index ( adr0 -- adr_offset )
> > TButton_DragKind_offset + ;
> > : TButton_DragMode_Index ( adr0 -- adr_offset )
> > TButton_DragMode_offset + ;
> > : TButton_Enabled_Index ( adr0 -- adr_offset )
> > TButton_Enabled_offset + ;
> > : TButton_Floating_Index ( adr0 -- adr_offset )
> > TButton_Floating_offset + ;
> > : TButton_FloatingDockSiteClass_Index ( adr0 -- adr_offset )
> > TButton_FloatingDockSiteClass_offset + ;
> > : TButton_Font_Index ( adr0 -- adr_offset )
> > TButton_Font_offset + ;
> > : TButton_Height_Index ( adr0 -- adr_offset )
> > TButton_Height_offset + ;
> > : TButton_HelpContext_Index ( adr0 -- adr_offset )
> > TButton_HelpContext_offset + ;
> > : TButton_HelpKeyword_Index ( adr0 -- adr_offset )
> > TButton_HelpKeyword_offset + ;
> > : TButton_HelpType_Index ( adr0 -- adr_offset )
> > TButton_HelpType_offset + ;
> > : TButton_Hint_Index ( adr0 -- adr_offset )
> > TButton_Hint_offset + ;
> > : TButton_HostDockSite_Index ( adr0 -- adr_offset )
> > TButton_HostDockSite_offset + ;
> > : TButton_Left_Index ( adr0 -- adr_offset )
> > TButton_Left_offset + ;
> > : TButton_LRDockWidth_Index ( adr0 -- adr_offset )
> > TButton_LRDockWidth_offset + ;
> > : TButton_Name_Index ( adr0 -- adr_offset )
> > TButton_Name_offset + ;
> > : TButton_Parent_Index ( adr0 -- adr_offset )
> > TButton_Parent_offset + ;
> > : TButton_ParentBiDiMode_Index ( adr0 -- adr_offset )
> > TButton_ParentBiDiMode_offset + ;
> > : TButton_ParentFont_Index ( adr0 -- adr_offset )
> > TButton_ParentFont_offset + ;
> > : TButton_ParentShowHint_Index ( adr0 -- adr_offset )
> > TButton_ParentShowHint_offset + ;
> > : TButton_PopupMenu_Index ( adr0 -- adr_offset )
> > TButton_PopupMenu_offset + ;
> > : TButton_ShowHint_Index ( adr0 -- adr_offset )
> > TButton_ShowHint_offset + ;
> > : TButton_TBDockHeight_Index ( adr0 -- adr_offset )
> > TButton_TBDockHeight_offset + ;
> > : TButton_Top_Index ( adr0 -- adr_offset )
> > TButton_Top_offset + ;
> > : TButton_UndockHeight_Index ( adr0 -- adr_offset )
> > TButton_UndockHeight_offset + ;
> > : TButton_UndockWidth_Index ( adr0 -- adr_offset )
> > TButton_UndockWidth_offset + ;
> > : TButton_Visible_Index ( adr0 -- adr_offset )
> > TButton_Visible_offset + ;
> > : TButton_Width_Index ( adr0 -- adr_offset )
> > TButton_Width_offset + ;
> > : TButton_WindowProc_Index ( adr0 -- adr_offset )
> > TButton_WindowProc_offset + ;

> > \ Even
> > \ Derived from TControl
> > : TButton_OnClick_Index ( adr0 -- adr_offset )
> > TButton_OnClick_offset + ;
> > : TButton_OnContextPopup_Index ( adr0 -- adr_offset )
> > TButton_OnContextPopup_offset + ;
> > : TButton_OnDragDrop_Index ( adr0 --

...

閱讀更多 »

回覆回覆作者轉寄

燕南

檢視個人資料

更多選項 10月8日, 下午1時37分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Wed, 7 Oct 2009 22:37:39 -0700 (PDT)

當地時間： 2009年10月8日(星期四) 下午1時37分

主旨： Re: Button Object

  回覆
  |
  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

目前 index都為word ,方便指向我舊的紫微斗數的視窗參數!
正規則依 BC6各項的參數大小而定. 如 boolen( 多個可以湊成一word), string , number(如座標...)

On 10月7日, 上午11時15分, 燕南 <ezfo...@gmail.com> wrote:

- 顯示被引用文字 -

> 在Win32forth中增加 vocabulary

> vocabulary VCL ( 新增 VCL 詞彙 )
> VCL definitions ( 指向 VCL 詞彙 )

> fload TButton.f ( 前文內容 )
> fload TEdit.f
> :
> :

> PS.
> 將修改後的 fkernel.f & class.f 和中文相容化.bat 壓縮成 Win32forth61300中文相容化.zip
> 放上網路下載!
> 使用時拷至Win32forth61300目錄下解開,執行批次檔!
> copy fkernel.f ..\src\kernel\fkernel.f
> copy class.f ..\src\class.f
> ..\setup.exe
> 按 B 鍵 ,產生新的 win32forth.exe ( 註: 所有 rebuild 選項都要重做一次, 我很少用所以之前沒說到)
> 界面中文化要修改menu.f

> 謝謝!

> On 10月4日, 下午5時03分, 燕南 <ezfo...@gmail.com> wrote:

> > 再依上改寫以前的
> > ButtonBox.F
> > CheckBox.F
> > ComboListBox.f
> > EditBox.f
> > ListBox.f
> > MessageInBox.f
> > MessageOutBox.f
> > RadioBox.f
> > StaticBox.F
> > 的範例程式

> > 建造 VCL 管理表(字彙 VCL）
> > Button---Button1---Button2---Button3
> > Check
> > ComboList
> > Edit
> > List
> > MessageIn
> > MessageOut
> > Radio
> > Static

> > 再來處理圖像問題!

> > On 10月4日, 下午3時51分, 燕南 <ezfo...@gmail.com> wrote:

> > > \ In TButton_Properties
> > > 196 CONSTANT TButton_size
> > > \
> > > 0 CONSTANT TButton_Action_offset
> > > 4 CONSTANT TButton_Align_offset
> > > 8 CONSTANT TButton_Anchors_offset
> > > 16 CONSTANT TButton_BiDiMode_offset
> > > 20 CONSTANT TButton_BoundsRect_offset
> > > 24 CONSTANT TButton_Caption_offset
> > > 28 CONSTANT TButton_ClientHeight_offset
> > > 32 CONSTANT TButton_ClientWidth_offset
> > > 36 CONSTANT TButton_Constraints_offset
> > > 40 CONSTANT TButton_ControlState_offset
> > > 44 CONSTANT TButton_ControlStyle_offset
> > > 48 CONSTANT TButton_Cursor_offset
> > > 52 CONSTANT TButton_DockOrientation_offset
> > > 56 CONSTANT TButton_DragCursor_offset
> > > 60 CONSTANT TButton_DragKind_offset
> > > 64 CONSTANT TButton_DragMode_offset
> > > 68 CONSTANT TButton_Enabled_offset
> > > 72 CONSTANT TButton_Floating_offset
> > > 76 CONSTANT TButton_FloatingDockSiteClass_offset
> > > 80 CONSTANT TButton_Font_offset
> > > 84 CONSTANT TButton_Height_offset
> > > 88 CONSTANT TButton_HelpContext_offset
> > > 72 CONSTANT TButton_HelpKeyword_offset
> > > 76 CONSTANT TButton_HelpType_offset
> > > 78 CONSTANT TButton_Hint_offset
> > > 84 CONSTANT TButton_HostDockSite_offset
> > > 88 CONSTANT TButton_Left_offset
> > > 92 CONSTANT TButton_LRDockWidth_offset
> > > 96 CONSTANT TButton_Name_offset
> > > 100 CONSTANT TButton_Parent_offset
> > > 104 CONSTANT TButton_ParentBiDiMode_offset
> > > 108 CONSTANT TButton_ParentFont_offset
> > > 112 CONSTANT TButton_ParentShowHint_offset
> > > 116 CONSTANT TButton_PopupMenu_offset
> > > 120 CONSTANT TButton_ShowHint_offset
> > > 124 CONSTANT TButton_TBDockHeight_offset
> > > 128 CONSTANT TButton_Top_offset
> > > 132 CONSTANT TButton_UndockHeight_offset
> > > 136 CONSTANT TButton_UndockWidth_offset
> > > 140 CONSTANT TButton_Visible_offset
> > > 144 CONSTANT TButton_Width_offset
> > > 148 CONSTANT TButton_WindowProc_offset
> > > 152 CONSTANT TButton_OnClick_offset
> > > 156 CONSTANT TButton_OnContextPopup_offset
> > > 160 CONSTANT TButton_OnDragDrop_offset
> > > 164 CONSTANT TButton_OnDragOver_offset
> > > 168 CONSTANT TButton_OnEndDock_offset
> > > 172 CONSTANT TButton_OnEndDrag_offset
> > > 176 CONSTANT TButton_OnMouseDown_offset
> > > 180 CONSTANT TButton_OnMouseMove_offset
> > > 184 CONSTANT TButton_OnMouseUp_offset
> > > 188 CONSTANT TButton_OnStartDock_offset
> > > 192 CONSTANT TButton_OnStartDrag_offset

> > > \ Derived from TControl
> > > : TButton_Action_Index ( adr0 -- adr_offset )
> > > TButton_Action_offset + ;
> > > : TButton_Align_Index ( adr0 -- adr_offset )
> > > TButton_Align_offset + ;
> > > : TButton_Anchors_Index ( adr0 -- adr_offset )
> > > TButton_Anchors_offset + ;
> > > : TButton_BiDiMode_Index ( adr0 -- adr_offset )
> > > TButton_BiDiMode_offset + ;
> > > : TButton_BoundsRect_Index ( adr0 -- adr_offset )
> > > TButton_BoundsRect_offset + ;
> > > : TButton_Caption_Index ( adr0 -- adr_offset )
> > > TButton_Caption_offset + ;
> > > : TButton_ClientHeight_Index ( adr0 -- adr_offset )
> > > TButton_ClientHeight_offset + ;
> > > : TButton_ClientWidth_Index ( adr0 -- adr_offset )
> > > TButton_ClientWidth_offset + ;
> > > : TButton_Constraints_Index ( adr0 -- adr_offset )
> > > TButton_Constraints_offset + ;
> > > : TButton_ControlState_Index ( adr0 -- adr_offset )
> > > TButton_ControlState_offset + ;
> > > : TButton_ControlStyle_Index ( adr0 -- adr_offset )
> > > TButton_ControlStyle_offset + ;
> > > : TButton_Cursor_Index ( adr0 -- adr_offset )
> > > TButton_Cursor_offset + ;
> > > : TButton_DockOrientation_Index ( adr0 -- adr_offset )
> > > TButton_DockOrientation_offset + ;
> > > : TButton_DragCursor_Index ( adr0 -- adr_offset )
> > > TButton_DragCursor_offset + ;
> > > : TButton_DragKind_Index ( adr0 -- adr_offset )
> > > TButton_DragKind_offset + ;
> > > : TButton_DragMode_Index ( adr0 -- adr_offset )
> > > TButton_DragMode_offset + ;
> > > : TButton_Enabled_Index ( adr0 -- adr_offset )
> > > TButton_Enabled_offset + ;
> > > : TButton_Floating_Index ( adr0 -- adr_offset )
> > > TButton_Floating_offset + ;
> > > : TButton_FloatingDockSiteClass_Index ( adr0 -- adr_offset )
> > > TButton_FloatingDockSiteClass_offset + ;
> > > : TButton_Font_Index ( adr0 -- adr_offset )
> > > TButton_Font_offset + ;
> > > : TButton_Height_Index ( adr0 -- adr_offset )
> > > TButton_Height_offset + ;
> > > : TButton_HelpContext_Index ( adr0 -- adr_offset )
> > > TButton_HelpContext_offset + ;
> > > : TButton_HelpKeyword_Index ( adr0 -- adr_offset )
> > > TButton_HelpKeyword_offset + ;
> > > : TButton_HelpType_Index ( adr0 -- adr_offset )
> > > TButton_HelpType_offset + ;
> > > : TButton_Hint_Index ( adr0 -- adr_offset )
> > > TButton_Hint_offset + ;
> > > : TButton_HostDockSite_Index ( adr0 -- adr_offset )
> > > TButton_HostDockSite_offset + ;
> > > : TButton_Left_Index ( adr0 -- adr_offset )
> > > TButton_Left_offset + ;
> > > : TButton_LRDockWidth_Index ( adr0 -- adr_offset )
> > > TButton_LRDockWidth_offset + ;
> > > : TButton_Name_Index ( adr0 -- adr_offset )
> > > TButton_Name_offset + ;
> > > : TButton_Parent_Index ( adr0 -- adr_offset )
> > > TButton_Parent_offset + ;
> > > : TButton_ParentBiDiMode_Index ( adr0 -- adr_offset )
> > > TButton_ParentBiDiMode_offset + ;
> > > : TButton_ParentFont_Index ( adr0 -- adr_offset )
> > > TButton_ParentFont_offset + ;
> > > : TButton_ParentShowHint_Index ( adr0 -- adr_offset )
> > > TButton_ParentShowHint_offset + ;
> > > : TButton_PopupMenu_Index ( adr0 -- adr_offset )
> > > TButton_PopupMenu_offset + ;
> > > : TButton_ShowHint_Index ( adr0 -- adr_offset )
> > > TButton_ShowHint_offset + ;
> > > : TButton_TBDockHeight_Index ( adr0 -- adr_offset )
> > > TButton_TBDockHeight_offset + ;
> > > : TButton_Top_Index ( adr0 -- adr_offset )
> > > TButton_Top_offset + ;
> > > : TButton_UndockHeight_Index ( adr0 -- adr_offset )
> > > TButton_UndockHeight_offset + ;
> > > : TButton_UndockWidth_Index ( adr0 -- adr_offset )
> > > TButton_UndockWidth_offset + ;
> > > : TButton_Visible_Index ( adr0 -- adr_offset )
> > > TButton_Visible_offset + ;
> > > : TButton_Width_Index ( adr0 --

...

閱讀更多 »

回覆回覆作者轉寄

燕南

檢視個人資料

更多選項 10月9日, 下午1時15分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Thu, 8 Oct 2009 22:15:07 -0700 (PDT)

當地時間： 2009年10月9日(星期五) 下午1時15分

主旨： Re: Button Object

  回覆
  |
  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

\ file_name: Form_1.f
:OBJECT ButtonBox <SUPER WINDOW
:M ClassInit: ( -- )
ClassInit: super
;M

:M ExWindowStyle: ( -- style )
ExWindowStyle: SUPER
;M
:M WindowStyle: ( -- style )
WindowStyle: SUPER
WS_BORDER OR
WS_OVERLAPPED OR
;M

:M WindowTitle: ( -- title )
z" "
;M

:M StartSize: ( -- width height )
300 350 ;M

:M StartPos: ( -- x y )
30 30 ;M

:M Close: ( -- )
Close: SUPER
;M

:M On_Paint: ( -- ) \ screen redraw procedure
0 0 StartSize: self LTGRAY FillArea: dc
;M

\ 以上取得一個 Windows ButtonBox ( 稱做 from 外形 )

\ fload Button_1.f
\ Button 宣告 begin
ButtonControl Button_1 \ a button
:M On_Init: ( -- )
IDOK SetID: Button_1
self Start: Button_1
126 172 70 25 Move: Button_1
s" OK" SetText: Button_1
GetStyle: Button_1
BS_DEFPUSHBUTTON +Style: Button_1
;M

:M WM_COMMAND ( hwnd msg wparam lparam -- res )
over LOWORD ( ID )
case
IDOK of Close: self endof \
endcase
0 ;M
\ Button 宣告 end
;OBJECT

\ 物件

: DEMO ( -- )
Start: ButtonBox \ 啟動 Windows ButtonBox from
;

.( Type DEMO to run the dialog demo. )

demo

因為 fload 會造成 Object 的定義斷裂,所以

<A>就此插入source (目前做法) ; 就可以開始將資料結構跟 source 結合;定時檢查變動!

<B>目前要額外再處理一下 (等A 掛鉤ok,再考慮跟<C>那個做法方便)

<C>改寫 class & object ( 期待下一版本!?)

On 10月8日, 下午1時37分, 燕南 <ezfo...@gmail.com> wrote:

- 顯示被引用文字 -

> 目前 index都為word ,方便指向我舊的紫微斗數的視窗參數!
> 正規則依 BC6各項的參數大小而定. 如 boolen( 多個可以湊成一word), string , number(如座標...)

> On 10月7日, 上午11時15分, 燕南 <ezfo...@gmail.com> wrote:

> > 在Win32forth中增加 vocabulary

> > vocabulary VCL ( 新增 VCL 詞彙 )
> > VCL definitions ( 指向 VCL 詞彙 )

> > fload TButton.f ( 前文內容 )
> > fload TEdit.f
> > :
> > :

> > PS.
> > 將修改後的 fkernel.f & class.f 和中文相容化.bat 壓縮成 Win32forth61300中文相容化.zip
> > 放上網路下載!
> > 使用時拷至Win32forth61300目錄下解開,執行批次檔!
> > copy fkernel.f ..\src\kernel\fkernel.f
> > copy class.f ..\src\class.f
> > ..\setup.exe
> > 按 B 鍵 ,產生新的 win32forth.exe ( 註: 所有 rebuild 選項都要重做一次, 我很少用所以之前沒說到)
> > 界面中文化要修改menu.f

> > 謝謝!

> > On 10月4日, 下午5時03分, 燕南 <ezfo...@gmail.com> wrote:

> > > 再依上改寫以前的
> > > ButtonBox.F
> > > CheckBox.F
> > > ComboListBox.f
> > > EditBox.f
> > > ListBox.f
> > > MessageInBox.f
> > > MessageOutBox.f
> > > RadioBox.f
> > > StaticBox.F
> > > 的範例程式

> > > 建造 VCL 管理表(字彙 VCL）
> > > Button---Button1---Button2---Button3
> > > Check
> > > ComboList
> > > Edit
> > > List
> > > MessageIn
> > > MessageOut
> > > Radio
> > > Static

> > > 再來處理圖像問題!

> > > On 10月4日, 下午3時51分, 燕南 <ezfo...@gmail.com> wrote:

> > > > \ In TButton_Properties
> > > > 196 CONSTANT TButton_size
> > > > \
> > > > 0 CONSTANT TButton_Action_offset
> > > > 4 CONSTANT TButton_Align_offset
> > > > 8 CONSTANT TButton_Anchors_offset
> > > > 16 CONSTANT TButton_BiDiMode_offset
> > > > 20 CONSTANT TButton_BoundsRect_offset
> > > > 24 CONSTANT TButton_Caption_offset
> > > > 28 CONSTANT TButton_ClientHeight_offset
> > > > 32 CONSTANT TButton_ClientWidth_offset
> > > > 36 CONSTANT TButton_Constraints_offset
> > > > 40 CONSTANT TButton_ControlState_offset
> > > > 44 CONSTANT TButton_ControlStyle_offset
> > > > 48 CONSTANT TButton_Cursor_offset
> > > > 52 CONSTANT TButton_DockOrientation_offset
> > > > 56 CONSTANT TButton_DragCursor_offset
> > > > 60 CONSTANT TButton_DragKind_offset
> > > > 64 CONSTANT TButton_DragMode_offset
> > > > 68 CONSTANT TButton_Enabled_offset
> > > > 72 CONSTANT TButton_Floating_offset
> > > > 76 CONSTANT TButton_FloatingDockSiteClass_offset
> > > > 80 CONSTANT TButton_Font_offset
> > > > 84 CONSTANT TButton_Height_offset
> > > > 88 CONSTANT TButton_HelpContext_offset
> > > > 72 CONSTANT TButton_HelpKeyword_offset
> > > > 76 CONSTANT TButton_HelpType_offset
> > > > 78 CONSTANT TButton_Hint_offset
> > > > 84 CONSTANT TButton_HostDockSite_offset
> > > > 88 CONSTANT TButton_Left_offset
> > > > 92 CONSTANT TButton_LRDockWidth_offset
> > > > 96 CONSTANT TButton_Name_offset
> > > > 100 CONSTANT TButton_Parent_offset
> > > > 104 CONSTANT TButton_ParentBiDiMode_offset
> > > > 108 CONSTANT TButton_ParentFont_offset
> > > > 112 CONSTANT TButton_ParentShowHint_offset
> > > > 116 CONSTANT TButton_PopupMenu_offset
> > > > 120 CONSTANT TButton_ShowHint_offset
> > > > 124 CONSTANT TButton_TBDockHeight_offset
> > > > 128 CONSTANT TButton_Top_offset
> > > > 132 CONSTANT TButton_UndockHeight_offset
> > > > 136 CONSTANT TButton_UndockWidth_offset
> > > > 140 CONSTANT TButton_Visible_offset
> > > > 144 CONSTANT TButton_Width_offset
> > > > 148 CONSTANT TButton_WindowProc_offset
> > > > 152 CONSTANT TButton_OnClick_offset
> > > > 156 CONSTANT TButton_OnContextPopup_offset
> > > > 160 CONSTANT TButton_OnDragDrop_offset
> > > > 164 CONSTANT TButton_OnDragOver_offset
> > > > 168 CONSTANT TButton_OnEndDock_offset
> > > > 172 CONSTANT TButton_OnEndDrag_offset
> > > > 176 CONSTANT TButton_OnMouseDown_offset
> > > > 180 CONSTANT TButton_OnMouseMove_offset
> > > > 184 CONSTANT TButton_OnMouseUp_offset
> > > > 188 CONSTANT TButton_OnStartDock_offset
> > > > 192 CONSTANT TButton_OnStartDrag_offset

> > > > \ Derived from TControl
> > > > : TButton_Action_Index ( adr0 -- adr_offset )
> > > > TButton_Action_offset + ;
> > > > : TButton_Align_Index ( adr0 -- adr_offset )
> > > > TButton_Align_offset + ;
> > > > : TButton_Anchors_Index ( adr0 -- adr_offset )
> > > > TButton_Anchors_offset + ;
> > > > : TButton_BiDiMode_Index ( adr0 -- adr_offset )
> > > > TButton_BiDiMode_offset + ;
> > > > : TButton_BoundsRect_Index ( adr0 -- adr_offset )
> > > > TButton_BoundsRect_offset + ;
> > > > : TButton_Caption_Index ( adr0 -- adr_offset )
> > > > TButton_Caption_offset + ;
> > > > : TButton_ClientHeight_Index ( adr0 -- adr_offset )
> > > > TButton_ClientHeight_offset + ;
> > > > : TButton_ClientWidth_Index ( adr0 -- adr_offset )
> > > > TButton_ClientWidth_offset + ;
> > > > : TButton_Constraints_Index ( adr0 -- adr_offset )
> > > > TButton_Constraints_offset + ;
> > > > : TButton_ControlState_Index ( adr0 -- adr_offset )
> > > > TButton_ControlState_offset + ;
> > > > : TButton_ControlStyle_Index ( adr0 -- adr_offset )
> > > > TButton_ControlStyle_offset + ;
> > > > : TButton_Cursor_Index ( adr0 -- adr_offset )
> > > > TButton_Cursor_offset + ;
> > > > : TButton_DockOrientation_Index ( adr0 -- adr_offset )
> > > > TButton_DockOrientation_offset + ;
> > > > : TButton_DragCursor_Index ( adr0 -- adr_offset )
> > > > TButton_DragCursor_offset + ;
> > > > : TButton_DragKind_Index ( adr0 -- adr_offset )
> > > > TButton_DragKind_offset + ;
> > > > : TButton_DragMode_Index ( adr0 -- adr_offset )
> > > > TButton_DragMode_offset + ;
> > > > : TButton_Enabled_Index ( adr0 -- adr_offset )
> > > > TButton_Enabled_offset + ;
> > > > : TButton_Floating_Index ( adr0 -- adr_offset )
> > > > TButton_Floating_offset + ;
> > > > : TButton_FloatingDockSiteClass_Index ( adr0 -- adr_offset )
> > > > TButton_FloatingDockSiteClass_offset + ;
> > > > : TButton_Font_Index ( adr0 -- adr_offset )
> > > > TButton_Font_offset + ;
> > > > : TButton_Height_Index ( adr0 -- adr_offset )
> > > > TButton_Height_offset + ;
> > > > : TButton_HelpContext_Index ( adr0 -- adr_offset )
> > > > TButton_HelpContext_offset + ;
> > > > : TButton_HelpKeyword_Index ( adr0 -- adr_offset )
> > > > TButton_HelpKeyword_offset + ;
> > > > : TButton_HelpType_Index ( adr0 -- adr_offset )
> > > > TButton_HelpType_offset + ;
> > > > : TButton_Hint_Index ( adr0 -- adr_offset )
> > > > TButton_Hint_offset + ;
> > > > : TButton_HostDockSite_Index ( adr0 -- adr_offset )
> > > > TButton_HostDockSite_offset + ;
> > > > : TButton_Left_Index

...

閱讀更多 »

回覆回覆作者轉寄

燕南

檢視個人資料

更多選項 10月12日, 下午3時25分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Mon, 12 Oct 2009 00:25:27 -0700 (PDT)

當地時間： 2009年10月12日(星期一) 下午3時25分

主旨： Re: Button Object

  回覆
  |
  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

168 CONSTANT tForm_size
\ Derived from TCustomForm
0 CONSTANT tForm_Active_offset
4 CONSTANT tForm_ActiveControl_offset
8 CONSTANT tForm_ActiveMDIChild_offset
12 CONSTANT tForm_ActiveOleControl_offset
16 CONSTANT tForm_AlphaBlend_offset
20 CONSTANT tForm_AlphaBlendValue_offset
24 CONSTANT tForm_BorderIcons_offset
28 CONSTANT tForm_BorderStyle_offset
32 CONSTANT tForm_Canvas_offset
36 CONSTANT tForm_ClientHandle_offset
40 CONSTANT tForm_ClientHeight_offset
44 CONSTANT tForm_ClientRect_offset
48 CONSTANT tForm_ClientWidth_offset
52 CONSTANT tForm_DefaultMonitor_offset
56 CONSTANT tForm_Designer_offset
60 CONSTANT tForm_DropTarget_offset
64 CONSTANT tForm_Floating_offset
68 CONSTANT tForm_FormState_offset
72 CONSTANT tForm_FormStyle_offset
76 CONSTANT tForm_HelpFile_offset
80 CONSTANT tForm_Icon_offset
84 CONSTANT tForm_KeyPreview_offset
88 CONSTANT tForm_MDIChildCount_offset
92 CONSTANT tForm_MDIChildren_offset
96 CONSTANT tForm_Menu_offset
100 CONSTANT tForm_ModalResult_offset
104 CONSTANT tForm_Monitor_offset
108 CONSTANT tForm_ObjectMenuItem_offset
112 CONSTANT tForm_OldCreateOrder_offset
116 CONSTANT tForm_OleFormObject_offset
120 CONSTANT tForm_Parent_offset
124 CONSTANT tForm_ParentBiDiMode_offset
128 CONSTANT tForm_PixelsPerInch_offset
132 CONSTANT tForm_Position_offset
136 CONSTANT tForm_PrintScale_offset
140 CONSTANT tForm_Scaled_offset
144 CONSTANT tForm_TileMode_offset
148 CONSTANT tForm_TransparentColor_offset
152 CONSTANT tForm_TransparentColorValue_offset
156 CONSTANT tForm_Visible_offset
160 CONSTANT tForm_WindowMenu_offset
164 CONSTANT tForm_WindowState_offset
\ event
0 CONSTANT tForm_OnActivate_offset
0 CONSTANT tForm_OnCanResize_offset
0 CONSTANT tForm_OnClick_offset
0 CONSTANT tForm_OnClose_offset
0 CONSTANT tForm_OnCloseQuery_offset
0 CONSTANT tForm_OnConstrainedResize_offset
0 CONSTANT tForm_OnContextPopup_offset
0 CONSTANT tForm_OnCreate_offset
0 CONSTANT tForm_OnDblClick_offset
0 CONSTANT tForm_OnDeactivate_offset
0 CONSTANT tForm_OnDestroy_offset
0 CONSTANT tForm_OnDockDrop_offset
0 CONSTANT tForm_OnDockOver_offset
0 CONSTANT tForm_OnDragDrop_offset
0 CONSTANT tForm_OnDragOver_offset
0 CONSTANT tForm_OnEndDock_offset
0 CONSTANT tForm_OnGetSiteInfo_offset
0 CONSTANT tForm_OnHelp_offset
0 CONSTANT tForm_OnHide_offset
0 CONSTANT tForm_OnKeyDown_offset
0 CONSTANT tForm_OnKeyPress_offset
0 CONSTANT tForm_OnKeyUp_offset
0 CONSTANT tForm_OnMouseDown_offset
0 CONSTANT tForm_OnMouseMove_offset
0 CONSTANT tForm_OnMouseUp_offset
0 CONSTANT tForm_OnMouseWheel_offset
0 CONSTANT tForm_OnMouseWheelDown_offset
0 CONSTANT tForm_OnMouseWheelUp_offset
0 CONSTANT tForm_OnPaint_offset
0 CONSTANT tForm_OnResize_offset
0 CONSTANT tForm_OnShortCut_offset
0 CONSTANT tForm_OnShow_offset
0 CONSTANT tForm_OnStartDock_offset
0 CONSTANT tForm_OnUnDoc_offset
\
\ Derived from TCustomForm
: tForm_Active_Index ( adr0 -- adr_offset )
tForm_Active_offset + ;
: tForm_ActiveControl_Index ( adr0 -- adr_offset )
tForm_ActiveControl_offset + ;
: tForm_ActiveMDIChild_Index ( adr0 -- adr_offset )
tForm_ActiveMDIChild_offset + ;
: tForm_ActiveOleControl_Index ( adr0 -- adr_offset )
tForm_ActiveOleControl_offset + ;
: tForm_AlphaBlend_Index ( adr0 -- adr_offset )
tForm_AlphaBlend_offset + ;
: tForm_AlphaBlendValue_Index ( adr0 -- adr_offset )
tForm_AlphaBlendValue_offset + ;
: tForm_BorderIcons_Index ( adr0 -- adr_offset )
tForm_BorderIcons_offset + ;
: tForm_BorderStyle_Index ( adr0 -- adr_offset )
tForm_BorderStyle_offset + ;
: tForm_Canvas_Index ( adr0 -- adr_offset )
tForm_Canvas_offset + ;
: tForm_ClientHandle_Index ( adr0 -- adr_offset )
tForm_ClientHandle_offset + ;
: tForm_ClientHeight_Index ( adr0 -- adr_offset )
tForm_ClientHeight_offset + ;
: tForm_ClientRect_Index ( adr0 -- adr_offset )
tForm_ClientRect_offset + ;
: tForm_ClientWidth_Index ( adr0 -- adr_offset )
tForm_ClientWidth_offset + ;
: tForm_DefaultMonitor_Index ( adr0 -- adr_offset )
tForm_DefaultMonitor_offset + ;
: tForm_Designer_Index ( adr0 -- adr_offset )
tForm_Designer_offset + ;
: tForm_DropTarget_Index ( adr0 -- adr_offset )
tForm_DropTarget_offset + ;
: tForm_Floating_Index ( adr0 -- adr_offset )
tForm_Floating_offset + ;
: tForm_FormState_Index ( adr0 -- adr_offset )
tForm_FormState_offset + ;
: tForm_FormStyle_Index ( adr0 -- adr_offset )
tForm_FormStyle_offset + ;
: tForm_HelpFile_Index ( adr0 -- adr_offset )
tForm_HelpFile_offset + ;
: tForm_Icon_Index ( adr0 -- adr_offset ) tForm_Icon_offset
+ ;
: tForm_KeyPreview_Index ( adr0 -- adr_offset )
tForm_KeyPreview_offset + ;
: tForm_MDIChildCount_Index ( adr0 -- adr_offset )
tForm_MDIChildCount_offset + ;
: tForm_MDIChildren_Index ( adr0 -- adr_offset )
tForm_MDIChildren_offset + ;
: tForm_Menu_Index ( adr0 -- adr_offset ) tForm_Menu_offset
+ ;
: tForm_ModalResult_Index ( adr0 -- adr_offset )
tForm_ModalResult_offset + ;
: tForm_Monitor_Index ( adr0 -- adr_offset )
tForm_Monitor_offset + ;
: tForm_ObjectMenuItem_Index ( adr0 -- adr_offset )
tForm_ObjectMenuItem_offset + ;
: tForm_OldCreateOrder_Index ( adr0 -- adr_offset )
tForm_OldCreateOrder_offset + ;
: tForm_OleFormObject_Index ( adr0 -- adr_offset )
tForm_OleFormObject_offset + ;
: tForm_Parent_Index ( adr0 -- adr_offset )
tForm_Parent_offset + ;
: tForm_ParentBiDiMode_Index ( adr0 -- adr_offset )
tForm_ParentBiDiMode_offset + ;
: tForm_PixelsPerInch_Index ( adr0 -- adr_offset )
tForm_PixelsPerInch_offset + ;
: tForm_Position_Index ( adr0 -- adr_offset )
tForm_Position_offset + ;
: tForm_PrintScale_Index ( adr0 -- adr_offset )
tForm_PrintScale_offset + ;
: tForm_Scaled_Index ( adr0 -- adr_offset )
tForm_Scaled_offset + ;
: tForm_TileMode_Index ( adr0 -- adr_offset )
tForm_TileMode_offset + ;
: tForm_TransparentColor_Index ( adr0 -- adr_offset )
tForm_TransparentColor_offset + ;
: tForm_TransparentColorValue_Index ( adr0 -- adr_offset )
tForm_TransparentColorValue_offset + ;
: tForm_Visible_Index ( adr0 -- adr_offset )
tForm_Visible_offset + ;
: tForm_WindowMenu_Index ( adr0 -- adr_offset )
tForm_WindowMenu_offset + ;
: tForm_WindowState_Index ( adr0 -- adr_offset )
tForm_WindowState_offset + ;
\ event
: tForm_OnActivate_Index ( adr0 -- adr_offset )
tForm_OnActivate_offset + ;
: tForm_OnCanResize_Index ( adr0 -- adr_offset )
tForm_OnCanResize_offset + ;
: tForm_OnClick_Index ( adr0 -- adr_offset )
tForm_OnClick_offset + ;
: tForm_OnClose_Index ( adr0 -- adr_offset )
tForm_OnClose_offset + ;
: tForm_OnCloseQuery_Index ( adr0 -- adr_offset )
tForm_OnCloseQuery_offset + ;
: tForm_OnConstrainedResize_Index ( adr0 -- adr_offset )
tForm_OnConstrainedResize_offset + ;
: tForm_OnContextPopup_Index ( adr0 -- adr_offset )
tForm_OnContextPopup_offset + ;
: tForm_OnCreate_Index ( adr0 -- adr_offset )
tForm_OnCreate_offset + ;
: tForm_OnDblClick_Index ( adr0 -- adr_offset )
tForm_OnDblClick_offset + ;
: tForm_OnDeactivate_Index ( adr0 -- adr_offset )
tForm_OnDeactivate_offset + ;
: tForm_OnDestroy_Index ( adr0 -- adr_offset )
tForm_OnDestroy_offset + ;
: tForm_OnDockDrop_Index ( adr0 -- adr_offset )
tForm_OnDockDrop_offset + ;
: tForm_OnDockOver_Index ( adr0 -- adr_offset )
tForm_OnDockOver_offset + ;
: tForm_OnDragDrop_Index ( adr0 -- adr_offset )
tForm_OnDragDrop_offset + ;
: tForm_OnDragOver_Index ( adr0 -- adr_offset )
tForm_OnDragOver_offset + ;
: tForm_OnEndDock_Index ( adr0 -- adr_offset )
tForm_OnEndDock_offset + ;
: tForm_OnGetSiteInfo_Index ( adr0 -- adr_offset )
tForm_OnGetSiteInfo_offset + ;
: tForm_OnHelp_Index ( adr0 -- adr_offset )
tForm_OnHelp_offset + ;
: tForm_OnHide_Index ( adr0 -- adr_offset )
tForm_OnHide_offset + ;
: tForm_OnKeyDown_Index ( adr0 -- adr_offset )
tForm_OnKeyDown_offset + ;
: tForm_OnKeyPress_Index ( adr0 -- adr_offset )
tForm_OnKeyPress_offset + ;
: tForm_OnKeyUp_Index ( adr0 -- adr_offset )
tForm_OnKeyUp_offset + ;
: tForm_OnMouseDown_Index ( adr0 -- adr_offset )
tForm_OnMouseDown_offset + ;
: tForm_OnMouseMove_Index ( adr0 -- adr_offset )
tForm_OnMouseMove_offset + ;
: tForm_OnMouseUp_Index ( adr0 -- adr_offset )
tForm_OnMouseUp_offset + ;
: tForm_OnMouseWheel_Index ( adr0 -- adr_offset )
tForm_OnMouseWheel_offset + ;
: tForm_OnMouseWheelDown_Index ( adr0 -- adr_offset )
tForm_OnMouseWheelDown_offset + ;
: tForm_OnMouseWheelUp_Index ( adr0 -- adr_offset )
tForm_OnMouseWheelUp_offset + ;
: tForm_OnPaint_Index ( adr0 -- adr_offset )
tForm_OnPaint_offset + ;
: tForm_OnResize_Index ( adr0 -- adr_offset )
tForm_OnResize_offset + ;
: tForm_OnShortCut_Index ( adr0 -- adr_offset )
tForm_OnShortCut_offset + ;
: tForm_OnShow_Index ( adr0 -- adr_offset )
tForm_OnShow_offset + ;
: tForm_OnStartDock_Index ( adr0 -- adr_offset )
tForm_OnStartDock_offset + ;
: tForm_OnUnDoc_Index ( adr0 -- adr_offset )
tForm_OnUnDoc_offset + ;

: tForm create tForm_size allot does> ;

On 10月9日, 下午1時15分, 燕南 <ezfo...@gmail.com> wrote:

- 顯示被引用文字 -

...

閱讀更多 »

回覆回覆作者轉寄

燕南

檢視個人資料

更多選項 10月12日, 下午3時30分

寄件人： 燕南 <ezfo...@gmail.com>

日期： Mon, 12 Oct 2009 00:30:56 -0700 (PDT)

當地時間： 2009年10月12日(星期一) 下午3時30分

主旨： Re: Button Object

  回覆
  |
  回覆作者
  |
  轉寄 | 列印 | 個別訊息
  | 顯示原始檔
  | 回報此訊息 | 尋找此作者的訊息
  

漏了 event 部分的 constant 宣告初值!

On 10月12日, 下午3時25分, 燕南 <ezfo...@gmail.com> wrote:

- 顯示被引用文字 -

...

閱讀更多 »

回覆回覆作者轉寄

無其他留言

« 返回討論主題

« 較新的主題

較舊的主題 »