Changeset 132 for Include/Classes/System/Windows/Forms
- Timestamp:
- Mar 4, 2007, 11:28:44 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/Windows/Forms/Control.ab
r77 r132 56 56 Class AsyncInvokeData 57 57 Public 58 FuncPtr As *Function(p As VoidPtr) As VoidPtr , p As VoidPtr58 FuncPtr As *Function(p As VoidPtr) As VoidPtr 59 59 Data As *VoidPtr 60 60 AsyncResult As *AsyncResultForInvoke … … 64 64 Inherits IWin32Window 65 65 Public 66 ' Properties 66 '--------------------------------------------------------------------------- 67 ' Public Properties 67 68 68 69 Function AllowDrop() As BOOL … … 223 224 End Sub 224 225 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 '--------------------------------------------------------------------------- 225 235 ' Constractors 226 236 … … 240 250 End Sub 241 251 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) 243 253 This.text = text 244 254 bkColor = DefaultBackColor … … 252 262 End Sub 253 263 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 '--------------------------------------------------------------------------- 262 265 ' Destractor 263 266 … … 268 271 End Sub 269 272 270 ' Methods 273 '--------------------------------------------------------------------------- 274 ' Public Methods 271 275 272 276 ' 同期関数呼出、Controlが作成されたスレッドで関数を実行する。 … … 345 349 346 350 Protected 347 ' Properties 351 '--------------------------------------------------------------------------- 352 ' Protected Properties 348 353 ' Const Virtual Function CanRaiseEvents() As BOOL 349 354 Virtual Function CreateParams() As *CreateParams … … 364 369 ' Virtual Sub Cursor(ByRef c As Cursor) 365 370 366 ' Methods 371 '--------------------------------------------------------------------------- 372 ' Protected Methods 367 373 Virtual Sub CreateHandle() 368 374 Dim createParams = CreateParams() … … 406 412 Case WM_ERASEBKGND 407 413 ' OnPaintBackgroundに移すべき 408 Dim hdc As HDC 409 hdc = .WParam As HDC 414 Dim hdc = .WParam As HDC 410 415 Dim hbr = CreateSolidBrush(bkColor.ToCOLORREF()) 411 416 Dim hbrOld = SelectObject(hdc, hbr) 412 Dim rc As RECT 413 rc = wnd.ClientRect 417 Dim rc = wnd.ClientRect 414 418 Rectangle(hdc, rc.left, rc.top, rc.right, rc.bottom) 415 419 SelectObject(hdc, hbrOld)
Note:
See TracChangeset
for help on using the changeset viewer.