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

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

* 테스트 단말기 모델명 : 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 15766
공지 유용한 관련 사이트 관리자2 2014.03.20 54580
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97985
594 컴포넌트 해더 패스 설정방법이 궁금합니다. 쿠리 2020.05.21 132
» MultiView에서 MultiDetail3.InternalPlaceOffset.X 를 수정할 수가 없네요. 어려워 2016.07.17 133
592 Motion Sensor 사용 [1] 오사씨 2018.10.30 134
591 Android IOS 동영상 촬영... 하얀까마귀 2018.11.30 135
590 string 타입 질문입니다. [2] 희망나라 2017.03.20 135
589 TBannerAd의 에러 조언부탁합니다. [1] file 토끼왕 2019.09.23 136
588 폰트 적용 관련 문의 Firemonkey 2020.11.25 136
587 XE5 IOS 10.3 지원 문의 [1] 성후아빠 2017.09.19 137
586 델파이 시애틀로 iOS Device 32bit 스토어 배포시 Configuration에 Application Store가 없습니다. [2] 김태윤 2016.10.28 139
585 radsetver 10.2 ios 개발 인증관련 [1] file 밤바야 2017.11.21 140
584 TBitmap 갯수 및 크기제한 [2] 100jk 2019.03.06 140
583 TButton에 TImage를 Child로 만들었는데.. [1] 미크 2018.05.16 141
582 파이어몽키에서 TPanel에 Form을 넣을 수는 없는 걸까요? [2] 아크나톤 2020.02.28 143
581 ListBox 사용중 문의 드립니다. [2] file 오광 2015.09.09 144
580 델파이 안드로이드 에서 사이즈 질문 [1] 루피 2016.11.12 144
579 [FMX] System.IOUtils 설정 위치는 implementation 밑에 있어야 하나요? [1] 스카이 2017.03.24 144
578 Delphi 10의 새로운 기능 문의드립니다. [2] 라운지 2015.09.16 144
577 Tools->Options->Provisioning 에 들어가면 ... file 어려워 2016.07.09 145
576 파이어몽키에서 배포용 라이브러리 생성 [1] 블루히아신스 2016.10.28 145
575 델파이 도쿄10.2.1 에서 개발한 앱을 ios Enterprise program형태로 배포 [1] 밤바야 2017.12.11 145