자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 97983
2119 베를린으로 안드로이드 개발시 string Grid 클리어는 어떻게 하는지 알고 싶습니다. [1] wiju 2018.04.10 215
2118 No Platform availabel for current project [1] file 까칠스프 2018.04.12 120
2117 Label 색을 변경을 하였는데, 컴파일해서 실행하면 검은색으로 표시됩니다. [6] 하루 2018.04.01 1709
2116 컴파일 후 안드로이드 실행하면 cannot find -lIDEAndroidPlatform 에러가 발생합니다. [1] jeongkyu 2018.04.10 247
2115 라인 짤림 현상 문의드립니다. file 돌팅 2018.04.10 294
2114 TListBox 런타임 시 스크롤 위치 변경방법이 궁금합니다. 김태윤 2018.04.09 264
2113 [공유] 델파이에서 C++ 코드를 사용할 수 있나요?(DLL 라이브러리 등) [1] Humphery 2015.03.26 1521
2112 "80070002 지정된 파일을 찾을수 없습니다" 라는 에러 발생 [5] 하루 2018.04.01 3692
2111 안드로이드 앱에서 사진을 찍어 FPT로 올릴 경우의 문제입니다. [4] 노력짱 2018.03.22 290
2110 웹뷰 브라우저 컨트롤 가능한가요? [2] 굿맨 2018.03.20 866
2109 Linker Error 해결좀 부탁드려요 급합니다 [5] 빛찬 2018.03.29 212
2108 부팅시 자동실행(브로드캐스트 리시버)예제를 따라하니 앱이 강제 종료됩니다. [1] file 김태윤 2016.06.01 767
2107 [질문] DX 10.2.3에서 MSVCR90.DLL 오류가 발생합니다. file 델사냥 2018.04.02 362
2106 JAR를 임포팅하여, 인터페이스로 구현된 콜백함수를 호출하지 못하고 있습니다. [2] 조르디 2018.03.27 194
2105 seattle FMX에서 GetJDisplayMetrics hsson 2018.03.28 118
2104 델파이 웹에서 exe파일 실행하기 문의드립니다. 알거없잔하용 2018.03.27 606
2103 MDI Application 에서 TeeChart 를 자식폼에 넣으면 에러 발생하는 문제??? [6] sihwan 2018.03.23 281
2102 안드로이드를 선택할 경우 run이 비활성화 되었습니다 [2] 조르디 2018.03.21 160
2101 RadStudio tokyo 10.2.3 설치 후 TMapView Error [2] 제우스 2018.03.21 237
2100 안녕하세요 db그리드에서 한글이 물음표로 출력되는것에 대해 질문드리고 싶어요. [4] file vast 2018.03.19 356