자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi listview 에서 런타임에 이미지 넣는부분
2019.10.12 09:35
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요.
또 질문이 있어서 쓰네요. ㅠㅠ
리스트뷰에서 DynamicApprearance로 이미지를 넣을 려고 하는 사람입니다.
근데 여러개를 넣으면 결국 하나만 들어 가는데 ㅠㅠ
https://stackoverflow.com/questions/37021427/change-listview-image-at-runtime-delphi-10-1-berlin
여기 보면 제 내용일랑 똑같습니다.
근데 여기서
where is one addon - after assigning a bitmap you can make Item owner by AItem.OwnsBitmap := True;
이렇게 오너를 지정하라고 했는데 저도 그랬는데도 불구하고 새로 아이템 add 하고
이미지 넣고 오너를 넣으면 전부 지금 넣은 이미지가 다 들어가요. ㅠㅠ
ListItem := ListView1.Items.Add;
ListItem.Text := FieldByName('title').AsString;
ListItem.Purpose := TListItemPurpose.Header;
ListItem := ListView1.Items.Add;
try
tmpStream := TMemoryStream.Create;
image88.bitmap.savetostream(tmpStream);
(ListItem.Objects.DrawableByName('Img1') as TListItemImage).Bitmap := Image1.Bitmap;
(ListItem.Objects.DrawableByName('Img1') as TListItemImage).OwnsBitmap := True; - 이부분을 넣었거든요.
finally
tmpStream.Free;
end;
위 코드를 보시고 어느 부분이 잘못된건지 부탁 드립니다.
Delphi listview 에서 런타임에 이미지 넣는부분
2019.10.12 09:35
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
안녕하세요.
또 질문이 있어서 쓰네요. ㅠㅠ
리스트뷰에서 DynamicApprearance로 이미지를 넣을 려고 하는 사람입니다.
근데 여러개를 넣으면 결국 하나만 들어 가는데 ㅠㅠ
https://stackoverflow.com/questions/37021427/change-listview-image-at-runtime-delphi-10-1-berlin
여기 보면 제 내용일랑 똑같습니다.
근데 여기서
where is one addon - after assigning a bitmap you can make Item owner by AItem.OwnsBitmap := True;
이렇게 오너를 지정하라고 했는데 저도 그랬는데도 불구하고 새로 아이템 add 하고
이미지 넣고 오너를 넣으면 전부 지금 넣은 이미지가 다 들어가요. ㅠㅠ
ListItem := ListView1.Items.Add;
ListItem.Text := FieldByName('title').AsString;
ListItem.Purpose := TListItemPurpose.Header;
ListItem := ListView1.Items.Add;
try
tmpStream := TMemoryStream.Create;
image88.bitmap.savetostream(tmpStream);
(ListItem.Objects.DrawableByName('Img1') as TListItemImage).Bitmap := Image1.Bitmap;
(ListItem.Objects.DrawableByName('Img1') as TListItemImage).OwnsBitmap := True; - 이부분을 넣었거든요.
finally
tmpStream.Free;
end;
위 코드를 보시고 어느 부분이 잘못된건지 부탁 드립니다.
다음 링크의 내용과 샘플을 참고해보시기 바랍니다.
https://tech.devgear.co.kr/delphi_news/436096
——————
답글이 도움이 되셨는지 다른 분들도 참고할 수 있도록 결과 댓글 부탁드립니다.
(결과 댓글이 없는 경우 다른 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)