자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 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 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
414 xe 10.2 에서 Form transparency 기능 문의 vastia 2017.07.20 107
413 DataSNAP 연결하여 클라이언트에서 업무처리중에 네트웍이 끊기면 [2] 0Erros 2017.07.16 369
412 Android에서 TImage 의 크기가 왜 변하나요? [2] file 쿠리 2017.07.05 355
411 ListBox 사용시 최대 몇개의 아이템을 추가 가능할 까요? [3] file 쿠리 2017.07.04 390
410 모바일에서 메일로 첨부화일을 보내는 방법은 있나요? [2] 스카이 2017.06.24 625
409 안드로이드에서 백그라운드 푸쉬 해결방법. [4] 나즈나 2017.06.19 2319
408 Gesture 적용이 않됩니다. [2] file 쿠리 2017.06.13 209
407 델파이에서 SDK 정보가 증발되는 버그 제보 및 안드로이드 빌드 시 Exec Error 해결방법입니다. [2] file 나즈나 2017.06.16 338
406 모바일 폼 구성시 여러개 폼 생성 방법 [6] 수강생 2014.04.28 3066
405 정현수님의 토스트 샘플로 공부중 동작하지 않아 질문입니다. [2] 나즈나 2017.06.14 119
404 주소록 가져오는 셈플 테스트가 안됩니다. [1] 쿠리 2017.06.09 108
403 FCM 사용. [2] nazuna 2017.06.10 600
402 델파이 시애틀로 ios 10버전의 기기 컴파일시 가능여부 [2] 김태윤 2017.06.12 188
401 ble 관련 질문 드립니다. [1] kimds 2017.05.30 120
400 안드로이드 앱 테더링 연결 문제 [2] file YGPOS 2017.05.24 464
399 delphi xe10 firemonkey로 개발한 앱 rooting 폰 및 중국폰 에서 사용 가능 유무 당신이먼저 2017.05.19 183
398 델파이 10 Seattle로 안드로이드 Nougat 개발. [1] hsson 2017.05.19 213
397 Tokyo 에서 컴파일 후 실행파일에 Malware 로 잡히는 증상발생 [3] file 크루노 2017.05.16 472
396 xe10.2 버전 서브 폼닫기 안됨 [2] 텔로스김 2017.05.12 491
395 10.2 에서 안드 빌드시 [ldandroid Error] "ld" exited with code 1. 에러문제 [1] 크루세더 2017.04.29 561