Changeset 90 for Include/basic/prompt.sbp
- Timestamp:
- Feb 12, 2007, 12:14:04 AM (18 years ago)
- File:
-
- 1 edited
-
Include/basic/prompt.sbp (modified) (14 diffs)
Legend:
- Unmodified
- Added
- Removed
-
Include/basic/prompt.sbp
r89 r90 10 10 Dim _PromptSys_hWnd As HWND 11 11 Dim _PromptSys_dwThreadID As DWord 12 Dim _PromptSys_bInitFinish As Long12 Dim _PromptSys_bInitFinish As BOOL 13 13 14 14 'text … … 73 73 _PromptSys_BackColor[100]=HeapAlloc(_System_hProcessHeap,HEAP_ZERO_MEMORY,255*SizeOf(LONG_PTR)) 74 74 75 _PromptSys_CurPos.y =_PromptSys_CurPos.y-175 _PromptSys_CurPos.y-- 76 76 77 77 'Redraw … … 108 108 temporary,lstrlen(temporary)) 109 109 110 If IsDBCSLeadByte(temporary[0]) Then i2 =i2+1110 If IsDBCSLeadByte(temporary[0]) Then i2++ 111 111 Next 112 112 End If 113 113 114 i =i+1114 i++ 115 115 Wend 116 116 … … 135 135 FillMemory(_PromptSys_Buffer[_PromptSys_CurPos.y]+_PromptSys_CurPos.x,i3,Asc(" ")) 136 136 137 i2 =i2+1138 _PromptSys_CurPos.x =_PromptSys_CurPos.x+i3137 i2++ 138 _PromptSys_CurPos.x += i3 139 139 Continue 140 140 End If 141 141 142 142 If buf[i2]=13 and buf[i2+1]=10 Then '\r\n 143 i2 =i2+2144 _PromptSys_CurPos.y =_PromptSys_CurPos.y+1143 i2 += 2 144 _PromptSys_CurPos.y++ 145 145 _PromptSys_CurPos.x=0 146 146 Continue … … 152 152 _PromptSys_BackColor[_PromptSys_CurPos.y][_PromptSys_CurPos.x]=_PromptSys_NowBackColor 153 153 154 i2 =i2+1155 _PromptSys_CurPos.x =_PromptSys_CurPos.x+1154 i2++ 155 _PromptSys_CurPos.x++ 156 156 Loop 157 157 … … 440 440 If _PromptSys_InputStr[i2]=0 Then Exit While 441 441 442 i2 =i2+1443 i3 =i3+1442 i2++ 443 i3++ 444 444 Wend 445 445 … … 466 466 End Select 467 467 468 i =i+1468 i++ 469 469 If _System_InputDataPtr[i]=0 and _PromptSys_InputStr[i2]=Asc(",") Then 470 470 PRINT_ToPrompt(Ex"入力データの個数が多すぎます\r\n") … … 499 499 i=0 500 500 While _PromptSys_Buffer[y][i] 501 i =i+1501 i++ 502 502 Wend 503 503 … … 550 550 Ellipse(_PromptSys_hMemDC,x-radius,y-radi2,x+radius,y+radi2) 551 551 Else 552 StartPos =StartPos*100553 EndPos =EndPos*100552 StartPos *=StartPos 553 EndPos *=EndPos 554 554 555 555 If StartPos<0 Or EndPos<0 Then … … 559 559 End If 560 560 561 If StartPos<0 Then StartPos=StartPos*-1562 If EndPos<0 Then EndPos=EndPos*-1561 StartPos = Abs(StartPos) 562 EndPos = Abs(EndPos) 563 563 564 564 If StartPos<=78.5 Then … … 566 566 i2=Int(StartPos) 567 567 ElseIf StartPos<=235.5 Then 568 StartPos =StartPos-78.5568 StartPos -= 78.5 569 569 i1=78-Int(StartPos) 570 570 i2=78 571 571 ElseIf StartPos<=392.5 Then 572 StartPos =StartPos-235.5572 StartPos -= 235.5 573 573 i1=-78 574 574 i2=78-Int(StartPos) 575 575 ElseIf StartPos<=549.5 Then 576 StartPos =StartPos-392.5576 StartPos -= 392.5 577 577 i1=-78+Int(StartPos) 578 578 i2=-78 579 579 ElseIf StartPos<=628 Then 580 StartPos =StartPos-549.5580 StartPos -= 549.5 581 581 i1=78 582 582 i2=-78+Int(StartPos) … … 587 587 i4=Int(EndPos) 588 588 ElseIf EndPos<=235.5 Then 589 EndPos =EndPos-78.5589 EndPos -= 78.5 590 590 i3=78-Int(EndPos) 591 591 i4=78 592 592 ElseIf EndPos<=392.5 Then 593 EndPos =EndPos-235.5593 EndPos -= 235.5 594 594 i3=-78 595 595 i4=78-Int(EndPos) 596 596 ElseIf EndPos<=549.5 Then 597 EndPos =EndPos-392.5597 EndPos -= 392.5 598 598 i3=-78+Int(EndPos) 599 599 i4=-78 600 600 ElseIf EndPos<=628 Then 601 EndPos =EndPos-549.5601 EndPos -= 549.5 602 602 i3=78 603 603 i4=-78+Int(EndPos) … … 631 631 632 632 If bStep Then 633 ex =sx+ex634 ey =sy+ey633 ex += sx 634 ey += sy 635 635 Else 636 636 If fType Then … … 754 754 Input$=Input$+Chr$(_PromptSys_KeyChar) 755 755 _PromptSys_KeyChar=0 756 i =i+1756 i++ 757 757 If i>=length Then 758 758 Exit While
Note:
See TracChangeset
for help on using the changeset viewer.
