자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

 

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

delphi 10.2 사용중인 초보입니다.

 

1. 멀티디바이스 프로그램에서 listboxitem에 사용자 정의 스타일을 집어 넣고

   FindStyleResource 로 대입한 내용이 스크롤을 움직이면 내용이 뒤죽박죽 됩니다.

  [스크롤하기전]

  스크롤하기전.PNG

[스크롤 내려갔다 올라옴]

스크롤내려갔다올라옴.PNG

 

2. StylesData['Text2Style'] 로 대입한 내용은 안바뀝니다. 

   TImage 나 TImageControl 의 Bitmap 에 StyleData[] 사용할때는 뭐라고 써야 하나요?

 

3. 뭔가 근본적인 방향이 잘못되었다면 지적 부탁드립니다.

 

 

... BeginUpdate/EndUpdate를 사용하면 listitem에 아무것도 안나옵니다.

... AddObject(listboxitem) 하면 전혀 다른 내용이 나옵니다.

 

 

style.PNG

 

procedure THeaderFooterForm.FormCreate(Sender: TObject);

var i:integer;

    lstitem : TListBoxItem;

    txt : TText;

    img : TImage;

begin

   listbox1.Items.Clear;

   for i:=0 to 9 do

   begin

      lstitem := TListBoxitem.Create(listbox1);

      lstitem.Parent := listbox1;

      lstitem.StyleLookup := 'listboxitemImage2';

 

      //스크롤해도 안바뀜

      lstitem.StylesData['Text2Style'] := inttostr(i);

 

      //스크롤하면 위치바뀜

      txt := lstitem.FindStyleResource('Text1Style') as TText;

      if assigned(txt) then

         txt.text := inttostr(i);

 

      img := lstitem.FindStyleResource('Image1Style') as TImage;

      if assigned(img) then

         img.bitmap.assign(TImageControl(self.FindComponent('img'+inttostr(i mod 3))).bitmap);

 

      img := lstitem.FindStyleResource('Image1Style2') as TImage;

      if assigned(img) then

         img.bitmap.assign(TImageControl(self.FindComponent('imgV'+inttostr((i mod 3)+1))).bitmap);

      lstitem.Height := 150;

   end;

 

 

   listbox2.Items.Clear;

   for i:=0 to 9 do

   begin

      lstitem := TListBoxitem.Create(listbox2);

      lstitem.Parent := listbox2;

      lstitem.StyleLookup := 'listboxitemImage1';

 

      //스크롤해도 안바뀜

      lstitem.StylesData['Text2Style'] := inttostr(i);

 

      //스크롤하면 위치바뀜

      txt := lstitem.FindStyleResource('Text1Style') as TText;

      if assigned(txt) then

         txt.text := inttostr(i);

 

      img := lstitem.FindStyleResource('Image1Style') as TImage;

      if assigned(img) then

         img.bitmap.assign(TImageControl(self.FindComponent('img'+inttostr(i mod 3))).bitmap);

      lstitem.Height := 150;

   end;

end;

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
3219 XE3 버전 문의 [1] secret 수정아빠 2015.02.04 11
3218 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 18 - Exercise 2 관리자 2020.07.03 31
3217 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 9 - Exercise 4 관리자 2020.07.03 35
3216 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 13 - Exercise 8 관리자 2020.07.03 42
3215 설치 에러 관련 문의 드립니다. [1] file 관리자2 2017.03.23 48
3214 [마이그레이션 세미나] C++ 빌더 기초 과정을 요청합니다. 험프리 2015.11.24 57
3213 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 11 - Exercise 5 관리자 2020.07.03 58
3212 [10.3.3 브리핑] 엔터프라이즈 커넥터가 1년 라이선스인데 어떻게 갱신하는가? 험프리 2019.12.10 63
3211 [10.3.3 브리핑] 업데이트에서 버그가 개선되었는지 확인하는 방법은? 험프리 2019.12.10 63
3210 Konopka XE8에서 사용 여부.. MrAJ 2018.12.12 64
3209 XE5 Firemonkey Mobile 넓다란세상 2019.06.22 64
3208 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 12 - Exercise 5 관리자 2020.07.03 68
3207 구글플레이에 게시시 32, 64비트 스마트폰 동시에 지원하는 방법은? [1] 화이부동 2020.07.02 69
3206 [10.3.3 브리핑] 출시 후 로드맵이 변경되었나요? 험프리 2019.12.10 70
3205 [IoT 세미나] 세미나 내용은 좋았는데 실습을 해보지 못해 아쉬워요. Humphery 2015.09.04 70
3204 [10.3 리오 출시 세미나] 매니지드 레코드 기능만 보류된 거 아닌가요? 험프리 2018.11.26 72
3203 [10.3.3 브리핑] RAD 서버관련 참고할 자료 안내 부탁드려요. 험프리 2019.12.10 73
3202 [10.2 도쿄 출시세미나] 이번 세미나에서 가장 기대되는건 당연히 리눅스 환경에서의 개발이죠....당연히..이게 얼마나 windows 버전에만큼 안정적으로 구동이 되도록 개발이 가능한지가 궁굼하네요 험프리 2017.04.06 74
3201 frxxlsexport 안보이는 현상 가나다 2019.03.06 74
3200 실행 시 Down Run Away Error..가 발생합니다 [1] sm 2017.09.21 76