Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Giko.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 10539 |
ListView.SetFocus; |
ListView.SetFocus; |
| 10540 |
if( ListView.Items.Count > 0 ) and (ListView.ItemFocused = nil) then |
if( ListView.Items.Count > 0 ) and (ListView.ItemFocused = nil) then |
| 10541 |
ListView.Items.Item[0].Selected := true //選択アイテムが無いときは先頭のを選択する |
ListView.Items.Item[0].Selected := true //選択アイテムが無いときは先頭のを選択する |
| 10542 |
else begin |
else if ListView.Items.Count > 0 then begin |
| 10543 |
ListView.Scroll(-ListView.ClientWidth, -ListView.ClientHeight); |
ListView.Scroll(-ListView.ClientWidth, -ListView.ClientHeight); |
| 10544 |
rct := ListView.ItemFocused.DisplayRect(drBounds); |
rct := ListView.ItemFocused.DisplayRect(drBounds); |
| 10545 |
ListView.Scroll(0, 2 * rct.Top - rct.Bottom); |
ListView.Scroll(0, 2 * rct.Top - rct.Bottom); |
|
|
Legend:
| Removed from v.1.398 |
|
| changed lines |
| |
Added in v.1.399 |
|
|
|