Ignore:
Timestamp:
Mar 4, 2007, 11:28:44 PM (18 years ago)
Author:
イグトランス (egtra)
Message:

String型の自身を変更するメソッドを、戻り値で返すように変更。
併せて文字列比較を自前の関数で行うように変更。
プロンプトのキャレットの位置計算が正しくなかったバグを修正。

File:
1 edited

Legend:

Unmodified
Added
Removed
  • Include/Classes/System/Windows/Forms/Control.ab

    r77 r132  
    5656Class AsyncInvokeData
    5757Public
    58     FuncPtr As *Function(p As VoidPtr) As VoidPtr, p As VoidPtr
     58    FuncPtr As *Function(p As VoidPtr) As VoidPtr
    5959    Data As *VoidPtr
    6060    AsyncResult As *AsyncResultForInvoke
     
    6464    Inherits IWin32Window
    6565Public
    66     ' Properties
     66    '---------------------------------------------------------------------------
     67    ' Public Properties
    6768
    6869    Function AllowDrop() As BOOL
     
    223224    End Sub
    224225
     226    Function Parent() As *Control
     227        Return parent
     228    End Function
     229
     230    Static Function DefaultBackColor() As Color
     231        Return Color.FromArgb(255, 255, 255)
     232    End Function
     233
     234    '---------------------------------------------------------------------------
    225235    ' Constractors
    226236
     
    240250    End Sub
    241251
    242     Sub Control(text As String, left As Long, top As Long, width As Long, height As Long)
     252    Sub Control(ByRef text As String, left As Long, top As Long, width As Long, height As Long)
    243253        This.text = text
    244254        bkColor = DefaultBackColor
     
    252262    End Sub
    253263
    254     Function Parent() As *Control
    255         Return parent
    256     End Function
    257 
    258     Static Function DefaultBackColor() As Color
    259         Return Color.FromArgb(255, 255, 255)
    260     End Function
    261 
     264    '---------------------------------------------------------------------------
    262265    ' Destractor
    263266
     
    268271    End Sub
    269272
    270     ' Methods
     273    '---------------------------------------------------------------------------
     274    ' Public Methods
    271275
    272276    ' 同期関数呼出、Controlが作成されたスレッドで関数を実行する。
     
    345349
    346350Protected
    347     ' Properties
     351    '---------------------------------------------------------------------------
     352    ' Protected Properties
    348353'   Const Virtual Function CanRaiseEvents() As BOOL
    349354    Virtual Function CreateParams() As *CreateParams
     
    364369'   Virtual Sub Cursor(ByRef c As Cursor)
    365370
    366     ' Methods
     371    '---------------------------------------------------------------------------
     372    ' Protected Methods
    367373    Virtual Sub CreateHandle()
    368374        Dim createParams = CreateParams()
     
    406412                Case WM_ERASEBKGND
    407413                    ' OnPaintBackgroundに移すべき
    408                     Dim hdc As HDC
    409                     hdc = .WParam As HDC
     414                    Dim hdc = .WParam As HDC
    410415                    Dim hbr = CreateSolidBrush(bkColor.ToCOLORREF())
    411416                    Dim hbrOld = SelectObject(hdc, hbr)
    412                     Dim rc As RECT
    413                     rc = wnd.ClientRect
     417                    Dim rc = wnd.ClientRect
    414418                    Rectangle(hdc, rc.left, rc.top, rc.right, rc.bottom)
    415419                    SelectObject(hdc, hbrOld)
Note: See TracChangeset for help on using the changeset viewer.