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

Firemonkey MultiView에서 MultiDetail3.InternalPlaceOffset.X 를 수정할 수가 없네요.

2016.07.17 08:34

어려워 조회 수:133

* 사용 개발툴 버전 : 시애틀

* 테스트 단말기 모델명 : 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;

 

부탁합니다...

이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15767
공지 유용한 관련 사이트 관리자2 2014.03.20 54581
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97990
394 MemoryStream 문의입니다 [2] file 최민철 2015.09.08 654
393 ListBox 사용중 문의 드립니다. [2] file 오광 2015.09.09 144
392 [XE8] IDE 에디터 사용법 문의 [4] 가을이다 2015.09.14 164
391 서브폼 Close시 메인폼 활성화문제 라운지 2015.09.16 343
390 Delphi 10의 새로운 기능 문의드립니다. [2] 라운지 2015.09.16 144
389 XE8 작업진행중 프로그래스 표시 [1] 가을이다 2015.09.22 594
388 DataSnap를 이용한 여러 데이터 접속. [1] michael 2015.09.24 190
387 XE8 TAniIndicator 문제 [1] 가을이다 2015.09.30 288
386 [MACOS] TEdit에서 엔터키 입력시 비프음 발생 [1] 라운지 2015.09.30 306
385 [MACOS] TEdit Password 기능 오류 [1] 라운지 2015.09.30 164
384 XE8에서 IOS9 실행이 안되나요? [2] 오광 2015.10.05 273
383 TMemo 한글처리 문제 [1] file 라운지 2015.10.06 572
382 [XE8] 모바일개발시 스크롤뷰 감도 낮추는 방법 [1] 가을이다 2015.10.07 220
381 델파이 xe5 firemonkey mobile Applicaton에서 Mediaplayer 사용 [6] superman 2015.10.11 894
380 XE8 WebBrowser컴포넌트 메모리 해제법 가을이다 2015.10.16 815
379 [XE8] 안드로이드 이벤트 처리법 [1] 가을이다 2015.10.19 360
378 [XE8] 안드로이드 default키보드 IME 모드 [2] 가을이다 2015.10.29 673
377 폼에서 수정중 종료안되게 하는 방법을 알고 싶습니다. [1] 광땡 2015.10.29 214
376 [XE8] 컴포넌트 동적생성이 오동작합니다. [1] 가을이다 2015.10.30 186
375 스마트폰에서 폼 종료 방법을 알려주세요. [1] 거북이 2015.11.03 355
쓰기
태그