자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey ListBox Item Style내부 색상변경
2016.05.24 16:02
본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
아래와 같이 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;
Firemonkey ListBox Item Style내부 색상변경
2016.05.24 16:02
본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------
아래와 같이 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;
요글일 도움이 되실 것 같습니다.
http://stackoverflow.com/questions/18411131/creating-specific-custom-tlistboxitem-with-given-example-and-trouble-with-fontco
그리고,
이번 10.1 베를린에서 ListView의 Item 외관을 디자인할 수 있는 기능이 추가되었습니다.
http://tech.devgear.co.kr/delphi_news/421584
위 글도 참고해 보시기 바랍니다.