Rev 738 | Rev 747 | 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 |