한개의 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;