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

Firemonkey ListBox Item Style내부 색상변경

2016.05.24 16:02

박군80 조회 수:601

본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------

아래와 같이 ListBox의 Style 내부에 있는 rtgTitleBar(TRectangle)의 색상을 변경하려고 하는데

변경이 되질 않습니다

 

var
  lbItem : TListBoxItem;     // FMX.ListBox
  rtg: TRectangle;
begin

      ListBox.BeginUpdate;

 

      lbItem := TListBoxItem.Create( ListBox );
      lbItem.Parent := ListBox;
      lbItem.StyleLookup := 'nbListBoxItemStyle1';

      lbItem.StylesData[ 'txtCust'         ] := '00000001';
      lbItem.StylesData[ 'txtCustName' ] := '홍길동';
      lbItem.StylesData[ 'txtService'     ] := '서비스';
      lbItem.StylesData[ 'txtAddr'        ] := '지번주소';
      lbItem.StylesData[ 'txtRnaAddr'   ] := '도로명주소';

 

      // 'rtgTitleBar' 는 StyleName입니다, Name을 지정하면 저장 후에 값이 저장되지 않고 비어 있습니다

      rtg := ( lbItem.FindComponent('rtgTitleBar') as TRectangle );  //FindStyleResource도 안됩니다
      if Assigned( rtg ) then
      begin
        rtg.Fill.Color := TAlphaColorRec.Orange;
      end;

 

      ListBox.AddObject( lbItem );

      ListBox.EndUpdate;

end;

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15759
공지 유용한 관련 사이트 관리자2 2014.03.20 54576
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97971
394 AnsiString을 사용할수 없나요? [1] 파란하늘 2017.04.18 575
393 태블릿 스플래시이미지에 9-Patch 이미지를 적용했을때 화면 이상 [5] 이지현 2017.04.06 323
392 IdHttp 대체 NetHTTPClient 관련하여.. [1] 제갈공명 2017.04.11 675
391 listview 오류 [7] file 제트콜 2017.04.06 145
390 InputBox 질문입니다. 희망나라 2017.03.28 153
389 [FMX] System.IOUtils 설정 위치는 implementation 밑에 있어야 하나요? [1] 스카이 2017.03.24 142
388 string 타입 질문입니다. [2] 희망나라 2017.03.20 135
387 TstringList Addobject 질문입니다. [1] 희망나라 2017.03.17 166
386 fmx TEDIT에 스케너로 입력시 속도개선방법문의드립니다. file 오바라미 2017.03.10 165
385 카메라 권한을 runtime 시에 권한설정하려고 합니다. [3] 김하나 2017.02.28 457
384 XE10 Seattle에서 VIEW 범위 질문 [1] 당신이먼저 2017.03.04 106
383 XE10에서 Send mail 문제 [1] 당신이먼저 2017.03.01 317
382 구글 플레이스토어에 앱 등록시 openssl관련 등록거부 문제 [8] 김태윤 2017.02.20 1055
381 델파이 IBLite 안드로이드 실행시문제 [1] 스카이 2017.02.22 216
380 파이어몽키에서 아이폰으로 설치시 e8000051에러가 납니다. file 김태윤 2017.02.15 119
379 앱 재실행 관련 문의드립니다. [1] 우정 2017.02.11 284
378 iOS 호환성 문제 해결방안 file 봉가이버 2017.02.06 2227
377 Baas를 이용하지 않고 구글 푸시 서비스(FCM)를 이용하는 방법 문의 드립니다. [5] 김태윤 2017.01.25 757
376 베를린 update2 후 SqlConnect 컴포넌트가 없어요(DBexpress) 모나도 2017.01.14 105
375 안드로이드에서 앱 설치 시 External에 저장하게 하는 방법입니다. file 푸른솔 2017.01.05 307
쓰기
태그