안녕하십니까. 델초보 입니다.
처음으로 글을 올리는군요.
간단한 아이콘 뷰어를 만들려고 합니다.
일단 소스를 보시지요.
procedure TForm1.Button1Click(Sender: TObject);
Var
Files :TStrings;
Icon :TIcon;
Index :Integer;
listItem :TListItem;
begin
Icon := TIcon.Create;
if OpenDialog1.Execute then
begin
ImageList1.Clear;
ListView1.Items.Clear;
Files := OpenDialog1.Files;
For Index := 0 to Files.Count - 1 do
begin
Icon.LoadFromFile(Files.Strings[Index]);
ImageList1.AddIcon(Icon);
end;
For Index := 0 to ImageList1.Count - 1 do
begin
ListItem := ListView1.Items.Add;
ListItem.Caption := Files.Strings[Index];
ListItem.ImageIndex := Index;
end;
end;
Icon.Free;
end;
[질문 1]
위처럼 하면 선택된 파일의 이름이 경로까지 같이 기억됩니다.
리스트 뷰에 표시할때 경로는 빼고 파일 이름만 표시하고자합니다.
어떻게 해야하죠?
[질문 2]
위에서는 대화상자에서 선택된 파일만 불러오게 되어있습니다.
지정한 폴더에 있는 아이콘 파일을 자동으로 싸그리 읽으려면 어떻게
해야하죠?
[질문 3]
ICL 파일을 읽으려고 합니다.
전혀 방법을 모르겠습니다.(아직 델초보)
고수님들의 답변을 부탁드립니다.
|