자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Firemonkey MultiView에서 MultiDetail3.InternalPlaceOffset.X 를 수정할 수가 없네요.
2016.07.17 08:34
* 사용 개발툴 버전 : 시애틀
* 테스트 단말기 모델명 : ios5c...ios...
* 테스트 단말기 O/S 버전 :
procedure TMultiDetailItemAppearance.UpdateSizes(const FinalSize : TSizeF);
var
LInternalWidth: Single;
LImagePlaceOffset: Single;
LImageTextPlaceOffset: Single;
begin
BeginUpdate;
try
inherited;
// Update the widths and positions of renderening objects within a TListViewItem
if Image.ActualWidth = 0 then
begin
LImagePlaceOffset := 0;
LImageTextPlaceOffset := 0;
end
else
begin
LImagePlaceOffset := cDefaultImagePlaceOffsetX;
LImageTextPlaceOffset := cDefaultImageTextPlaceOffsetX;
end;
Image.InternalPlaceOffset.X := GlyphButton.ActualWidth + LImagePlaceOffset;
if Image.ActualWidth > 0 then
Text.InternalPlaceOffset.X := Image.ActualPlaceOffset.X + Image.ActualWidth + LImageTextPlaceOffset
else
Text.InternalPlaceOffset.X := 0 + GlyphButton.ActualWidth;
MultiDetail1.InternalPlaceOffset.X := Text.InternalPlaceOffset.X;
MultiDetail2.InternalPlaceOffset.X := Text.InternalPlaceOffset.X;
MultiDetail3.InternalPlaceOffset.X := Text.InternalPlaceOffset.X;
LInternalWidth := FinalSize.Width - Text.ActualPlaceOffset.X - Accessory.ActualWidth;
if Accessory.ActualWidth > 0 then
LInternalWidth := LInternalWidth - cTextMarginAccessory;
Text.InternalWidth := Max(1, LInternalWidth);
MultiDetail1.InternalWidth := Text.InternalWidth;
MultiDetail2.InternalWidth := Text.InternalWidth;
MultiDetail3.InternalWidth := Text.InternalWidth;
If FinalSize.Width < 330 Then //아이폰이 4인치라면
begin
MultiDetail3.InternalPlaceOffset.X := 220; // MultiDetail3.PlaceOffset.X := 220 요렇게 하고 싶은데
showmessage('4인치'); // 요건 실행이 되는데 수정은 안되네요 ^^)
end;
finally
EndUpdate;
end;
end;
부탁합니다...
댓글 0
Firemonkey MultiView에서 MultiDetail3.InternalPlaceOffset.X 를 수정할 수가 없네요.
2016.07.17 08:34
* 사용 개발툴 버전 : 시애틀
* 테스트 단말기 모델명 : ios5c...ios...
* 테스트 단말기 O/S 버전 :
procedure TMultiDetailItemAppearance.UpdateSizes(const FinalSize : TSizeF);
var
LInternalWidth: Single;
LImagePlaceOffset: Single;
LImageTextPlaceOffset: Single;
begin
BeginUpdate;
try
inherited;
// Update the widths and positions of renderening objects within a TListViewItem
if Image.ActualWidth = 0 then
begin
LImagePlaceOffset := 0;
LImageTextPlaceOffset := 0;
end
else
begin
LImagePlaceOffset := cDefaultImagePlaceOffsetX;
LImageTextPlaceOffset := cDefaultImageTextPlaceOffsetX;
end;
Image.InternalPlaceOffset.X := GlyphButton.ActualWidth + LImagePlaceOffset;
if Image.ActualWidth > 0 then
Text.InternalPlaceOffset.X := Image.ActualPlaceOffset.X + Image.ActualWidth + LImageTextPlaceOffset
else
Text.InternalPlaceOffset.X := 0 + GlyphButton.ActualWidth;
MultiDetail1.InternalPlaceOffset.X := Text.InternalPlaceOffset.X;
MultiDetail2.InternalPlaceOffset.X := Text.InternalPlaceOffset.X;
MultiDetail3.InternalPlaceOffset.X := Text.InternalPlaceOffset.X;
LInternalWidth := FinalSize.Width - Text.ActualPlaceOffset.X - Accessory.ActualWidth;
if Accessory.ActualWidth > 0 then
LInternalWidth := LInternalWidth - cTextMarginAccessory;
Text.InternalWidth := Max(1, LInternalWidth);
MultiDetail1.InternalWidth := Text.InternalWidth;
MultiDetail2.InternalWidth := Text.InternalWidth;
MultiDetail3.InternalWidth := Text.InternalWidth;
If FinalSize.Width < 330 Then //아이폰이 4인치라면
begin
MultiDetail3.InternalPlaceOffset.X := 220; // MultiDetail3.PlaceOffset.X := 220 요렇게 하고 싶은데
showmessage('4인치'); // 요건 실행이 되는데 수정은 안되네요 ^^)
end;
finally
EndUpdate;
end;
end;
부탁합니다...