Q&A

  • 디렉토리의 bmp이미지를 Imagelist에 넣는데...
한개의 bmp파일이 분리되어 5개로 들어가는데 이유를 모르겠습니다
소스는 아래와 같습니다... 급해서... 고수님들의 조언을 기다리겠습니다.

같은 파일을 디자인타임에서직접 입력하면 잘 들어갑니다.

////////////////////////////////////////////////
procedure TfrmMC1102A0.ImageList_Setup;
var
  bit : TImage;
  I: Integer;
  ListItem: TListItem;
  NewColumn: TListColumn;
begin
  ImageListTot.Clear;
   FileListBox.ApplyFilePath('C:\MedicalDDX\Work\Image\Icon\');


   bit := TImage.Create(Self);
   for i := 1 to FileListBox.Count do
   begin
      bit.Picture.LoadFromFile('C:\MedicalDDX\Work\Image\Icon\' + FileListBox.Items[i - 1]);
      ImageListTot.Add(bit.Picture.Bitmap, bit.Picture.Bitmap);
      ImageListTot.
   end;

   bit.Free;

//////////////////////////////////
// Create a listview item for each image in the ImageList
  with ListViewTot do
  begin
    SmallImages := ImageListTot;
    LargeImages := ImageListTot;
    for I := 0 to ImageListTot.Count - 1 do
    begin
      ListItem := Items.Add;
      Listitem.Caption := 'Image' + IntToStr(I);

      ListItem.ImageIndex := I;
    end;
    // Create two columns to show during viewing as vsReport
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 1';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Column 2';
  end;
end;
1  COMMENTS
  • Profile
    김정용 2008.07.31 23:58
    imagelist 의 width와 height를 적절하게 늘려 줘 보세요 너무 작으면 분리 될수 있습니다.