Rev 738 | Rev 746 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 738 | Rev 740 | ||
|---|---|---|---|
| Line 317... | Line 317... | ||
| 317 | if i > ListCount(items)-1 then |
317 | if i > ListCount(items)-1 then |
| 318 | Write(FillRight('', ListWidth, ' ')) |
318 | Write(FillRight('', ListWidth, ' ')) |
| 319 | else |
319 | else |
| 320 | begin |
320 | begin |
| 321 | sTmp := ListGetElement(items, i); |
321 | sTmp := ListGetElement(items, i); |
| 322 | if Length(sTmp) > ListWidth then |
- | |
| 323 | begin |
- | |
| 324 | (* Cut too long line *) |
- | |
| 325 | sTmp := Copy(sTmp, 1, ListWidth-3) + '...'; |
322 | sTmp := TrimLineToWidth(sTmp, ListWidth); |
| 326 | end; |
- | |
| 327 | Write(FillRight(sTmp, ListWidth, ' ')); |
323 | Write(FillRight(sTmp, ListWidth, ' ')); |
| 328 | end; |
324 | end; |
| 329 | TextColor(White); |
325 | TextColor(White); |
| 330 | TextBackground(Black); |
326 | TextBackground(Black); |
| 331 | end; |
327 | end; |
| Line 348... | Line 344... | ||
| 348 | goto doAgain; |
344 | goto doAgain; |
| 349 | end |
345 | end |
| 350 | else if sc = #$47(*POS1*) then |
346 | else if sc = #$47(*POS1*) then |
| 351 | begin |
347 | begin |
| 352 | itemIndex := 0; |
348 | itemIndex := 0; |
| - | 349 | iStartScope := 0; |
|
| - | 350 | iEndScope := iStartScope + ListHeight; |
|
| 353 | goto doAgain; |
351 | goto doAgain; |
| 354 | end |
352 | end |
| 355 | else if sc = #$4F(*END*) then |
353 | else if sc = #$4F(*END*) then |
| 356 | begin |
354 | begin |
| 357 | itemIndex := ListCount(items); |
355 | itemIndex := ListCount(items)-1; |
| - | 356 | iStartScope := itemIndex - Min(ListHeight,ListCount(items)); |
|
| - | 357 | iEndScope := itemIndex; |
|
| 358 | goto doAgain; |
358 | goto doAgain; |
| 359 | end; |
359 | end; |
| 360 | end; |
360 | end; |
| 361 | 361 | ||
| 362 | if sc = #13(*Return*) then |
362 | if sc = #13(*Return*) then |