Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.398 by yoffy, Mon Aug 16 13:58:54 2004 UTC revision 1.399 by h677, Wed Aug 18 15:16:26 2004 UTC
# Line 10539  begin Line 10539  begin
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

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26