Changeset 545


Ignore:
Timestamp:
Jul 13, 2008, 2:09:01 PM (16 years ago)
Author:
イグトランス (egtra)
Message:

ActiveBasic.Windows.UI.FormsをUIへ移動。UI以下にForms以外置くものが思い浮かばないので。

Location:
trunk/ab5.0/ablib
Files:
1 added
1 deleted
2 edited
6 moved

Legend:

Unmodified
Added
Removed
  • trunk/ab5.0/ablib/TestCase/SimpleTestCase/SimpleTestCase.ab

    r468 r545  
    66
    77Function GetTempDirectory() As String
    8     Return System.IO.Path.GetDirectoryName( System.Windows.Forms.Application.ExecutablePath ) + "\temp\"
    9 '   Return System.IO.Path.GetTempPath()
     8'   Return System.IO.Path.GetDirectoryName( System.Windows.Forms.Application.ExecutablePath ) + "\temp\"
     9    Return System.IO.Path.GetTempPath()
    1010End Function
    1111
     
    2626End Sub
    2727
    28 Initialize()
     28'Initialize()
    2929
    3030Dim csbi As CONSOLE_SCREEN_BUFFER_INFO
  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/Control.ab

    r544 r545  
    11'Classes/ActiveBasic/Windows/UI/Control.ab
    22
    3 #require <Classes/ActiveBasic/Windows/UI/Forms/EventArgs.ab>
     3#require <Classes/ActiveBasic/Windows/UI/EventArgs.ab>
    44
    55Namespace ActiveBasic
    66Namespace Windows
    77Namespace UI
    8 Namespace Forms
    98
    109'Namespace Detail
     
    252251        If Not IsNothing(a) Then
    253252            If Not IsNothing(messageMap) Then
    254                 Dim msg = Nothing As Object : msg = New System.UInt32(message)
     253                Dim msg = Hex$(message)
    255254                Dim m = messageMap.Item[msg]
    256255                If Not IsNothing(m) Then
     
    439438End Class
    440439
    441 End Namespace 'Forms
    442440End Namespace 'UI
    443441End Namespace 'Widnows
    444442End Namespace 'ActiveBasic
    445443
    446 
    447444'----------
    448445'テスト実行用
    449446
    450 Imports ActiveBasic.Windows.UI.Forms
     447Imports ActiveBasic.Windows.UI
    451448
    452449'OleInitialize()
     
    456453    Inherits Form
    457454Public
    458     Sub t()
     455    Sub MyForm()
    459456        Dim f = This
    460457        f.AddMessageEvent(WM_DESTROY, AddressOf (f.Destory))
     
    473470
    474471Dim f = New MyForm
    475 f.t()
    476472f.Create()
    477473ShowWindow(f.Handle, SW_SHOW)
  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/EventArgs.ab

    r544 r545  
    77Namespace Windows
    88Namespace UI
    9 Namespace Forms
    109
    1110TypeDef EventArgs = System.EventArgs
     
    511510Delegate Sub FormClosingEventHandler(sender As Object, e As FormClosingEventArgs)
    512511
    513 End Namespace 'Forms
    514512End Namespace 'UI
    515513End Namespace 'Widnows
  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/MakeControlEventHandler.ab

    r542 r545  
    7878
    7979MakeControlEvent("Control")
     80MakeControlEvent("Form")
    8081End
  • trunk/ab5.0/ablib/src/Classes/ActiveBasic/Windows/UI/WindowHandle.sbp

    r544 r545  
    1 'Classes/ActiveBasic/Windows/WindowHandle.sbp
     1'Classes/ActiveBasic/Windows/UI/WindowHandle.sbp
    22
    33#ifdef _WIN64
     
    4949Namespace ActiveBasic
    5050Namespace Windows
     51Namespace UI
    5152
    5253Class WindowHandle
     
    797798End Class
    798799
     800End Namespace 'UI
    799801End Namespace 'Widnows
    800802End Namespace 'ActiveBasic
  • trunk/ab5.0/ablib/src/Classes/index.ab

    r473 r545  
    77#require "./ActiveBasic/Strings/Strings.ab"
    88#require "./ActiveBasic/Windows/CriticalSection.ab"
    9 #require "./ActiveBasic/Windows/WindowHandle.sbp"
    109#require "./ActiveBasic/Windows/Windows.ab"
     10#require "./ActiveBasic/Windows/UI/WindowHandle.sbp"
    1111#require "./ActiveBasic/Xml/Parser.ab"
    1212#require "./System/Blittable.ab"
     
    9191#require "./System/Threading/Timeout.ab"
    9292#require "./System/Threading/WaitHandle.ab"
    93 #require "./System/Windows/Forms/Application.ab"
    94 #require "./System/Windows/Forms/ContainerControl.ab"
    95 #require "./System/Windows/Forms/Control.ab"
    96 #require "./System/Windows/Forms/CreateParams.ab"
    97 #require "./System/Windows/Forms/Form.ab"
    98 #require "./System/Windows/Forms/Message.ab"
    99 #require "./System/Windows/Forms/MessageBox.ab"
    100 #require "./System/Windows/Forms/misc.ab"
    101 #require "./System/Windows/Forms/PaintEventArgs.ab"
    102 #require "./System/Windows/Forms/ScrollableControl.ab"
    103 #require "./System/Windows/Forms/WebBrowser.ab"
    104 #require "./System/Windows/Forms/WebBrowserBase.ab"
    10593#require "./System/Xml/XmlAttribute.ab"
    10694#require "./System/Xml/XmlCharacterData.ab"
Note: See TracChangeset for help on using the changeset viewer.