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

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

2016.07.17 08:34

어려워 조회 수:141

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

* 테스트 단말기 모델명 : 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 17304
공지 유용한 관련 사이트 관리자2 2014.03.20 56188
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99612
1419 [10.2 도쿄 출시세미나] 이번 세미나에서 가장 기대되는건 당연히 리눅스 환경에서의 개발이죠....당연히..이게 얼마나 windows 버전에만큼 안정적으로 구동이 되도록 개발이 가능한지가 궁굼하네요 험프리 2017.04.06 78
1418 [10.2 도쿄 출시세미나] firemonkey 모바일 개발시 기존에 java 로 개발할 때 사용하던 라이브러리(fcm, geolocation, telephone, 기타)에 대한 사용법에 대한 샘플이나 자료가 많았으면 합니다. 험프리 2017.04.06 158
1417 [10.2 도쿄 출시세미나] 리눅스에서 pascal로 코딩시, c++로 개발된 리눅스용 라이브러리 사용하는법 험프리 2017.04.06 105
1416 Tool Palette 정렬 [1] 송동진 2017.04.06 316
1415 Delphi 10.1 Berlin AnyCpu 설정 방법 [2] Bishop 2017.04.10 181
1414 IdHttp 대체 NetHTTPClient 관련하여.. [1] 제갈공명 2017.04.11 688
1413 델파이에서 데이터베이스 연결 시 TCPIP 방법으로도 가능한가요? [1] 손보라 2017.04.11 355
1412 delphi 10.2 linux 연결 후 실행시 오류 메세지 [7] agallee 2017.04.12 330
1411 Max heap size 관련 문의 [1] 빛찬 2017.04.13 581
1410 Delphi FDQuery - OnCalcFields 이벤트에서 RecNo 부여시 0,2,3 이렇게 나옵니다 [1] 짧굵 2017.04.13 525
1409 C#으로 개발된 프로젝트를 델파이로 넘어가고 싶습니다. 험프리 2017.04.14 868
1408 비콘 거리 측정에 대해 문의 드립니다. [2] 쿠키 2017.04.14 2051
1407 모바일 앱 개발 시 구글음성 입력 기능을 호출하는 샘플이 있나요? [1] 손보라 2017.04.14 371
1406 도킹창 이동시 버벅거리는 현상 [1] 손승규 2017.04.18 312
1405 FMX List View의 Toggle DesignMode 자동크기 조절에 대해 질문드립니다. [1] file syc 2017.04.18 151
1404 AnsiString을 사용할수 없나요? [1] 파란하늘 2017.04.18 586
1403 리눅스 기반 웹서비스 테스트 중 - [FireDAC][Phys][MySQL]-314. Cannot load vendor library [3] agallee 2017.04.19 357
1402 바코드 스캐너 관련문의 [2] file silkroad99 2017.04.24 444
1401 Access Violation 에러 때문에 map파일로 확인하려고 하는데 잘 안됩니다ㅜ [1] file 맛재현 2017.04.24 737
1400 인터넷 취약점 문제해결을 위해 SFTP 방식을 지원하고자 합니다. 험프리 2017.04.25 550
쓰기
태그