Delphi 2010에서 XE4로 업그레이드하고 FireMonkey를 처음 사용하여 어둠 속에서 모든 것이 어떻게 작동하는지 알아 내려고합니다.Delphi XE4 Firemonkey Grid Control - 셀을 개별적으로 스타일링하기
쿼리 당 하나의 TGrid 구성 요소에서 개별 셀을 다른 규칙에 따라 다르게 표시하려고합니다. 나는 마이크 서튼에 의해 게시 도움이 코드를 통해 일한 :
Firemonkey Grid Control - Styling a Cell based on a value (via the OnGetValue function call)
나는 그것이 XE4에서 컴파일 얻을 수있는 몇 가지 변경했습니다; 다음을 제외하고는 코드를 실행할 때 모두 괜찮아 보입니다.
- FontFill이 인식되지 않으므로 지금은 이것을 비워 두십시오.
- 글꼴 스타일이 전혀 변경되지 않고 무엇이든간에 기본 스타일로 표시됩니다.
관련 코드 (나머지는 위의 링크에 따라 꽤 많이) : 그 문제가 될 것 같지 않도록
Procedure TFinancialCell.ApplyStyle;
var
T: TFMXObject;
begin
inherited;
ApplyStyling;
end;
Procedure TFinancialCell.ApplyStyling;
begin
// If IsNegative then
// FontFill.Color:=claRed
// else
// FontFill.Color:=claBlack;
Font.Style:=[TFontStyle.fsItalic];
If IsImportant then
Font.Style:=[TFontStyle.fsBold]
else
Font.Style:=[];
If Assigned(Font.OnChanged) then
Font.OnChanged(Font);
Repaint;
end;
IsImportant 플래그가 올바르게 설정되고있다.
정말 도움이 될만한 도움이 될 것입니다. 어리석은 일을 미리 사과하고 내가 누락되었을 수 있습니다.
우수 질문을 사용 변경하려면, 나는이 자신을 알고 싶습니다. –
다른 잠재적으로 유용한 정보는 여기까지입니다. http://monkeystyler.com/blog/entry/applystyle-and-freestyle-in-firemonkey 그러나 이것이 내 검색어와 관련이 있는지 알지 못합니다. 나는 스타일 코드를 충분히 이해하지 못하기 때문에. 내 쿼리에 언급 된 원래 코드는 게시되었을 때 사용했던 코드와 잘 작동하는 것 같습니다. XE3/XE4 변경 여부에 따라 작동하지 않는지 확실하지 않습니다. – Alex