새로운 글
새로운 덧글

자유롭게 질의 및 응답을 할 수 있는 게시판이며 어느 누구도 답변을 달아야만 하는 의무는 없습니다. 
  • 제품설치/등록/제품 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

 

본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------

delphi 10.2 사용중인 초보입니다.

 

1. 멀티디바이스 프로그램에서 listboxitem에 사용자 정의 스타일을 집어 넣고

   FindStyleResource 로 대입한 내용이 스크롤을 움직이면 내용이 뒤죽박죽 됩니다.

  [스크롤하기전]

  스크롤하기전.PNG

[스크롤 내려갔다 올라옴]

스크롤내려갔다올라옴.PNG

 

2. StylesData['Text2Style'] 로 대입한 내용은 안바뀝니다. 

   TImage 나 TImageControl 의 Bitmap 에 StyleData[] 사용할때는 뭐라고 써야 하나요?

 

3. 뭔가 근본적인 방향이 잘못되었다면 지적 부탁드립니다.

 

 

... BeginUpdate/EndUpdate를 사용하면 listitem에 아무것도 안나옵니다.

... AddObject(listboxitem) 하면 전혀 다른 내용이 나옵니다.

 

 

style.PNG

 

procedure THeaderFooterForm.FormCreate(Sender: TObject);

var i:integer;

    lstitem : TListBoxItem;

    txt : TText;

    img : TImage;

begin

   listbox1.Items.Clear;

   for i:=0 to 9 do

   begin

      lstitem := TListBoxitem.Create(listbox1);

      lstitem.Parent := listbox1;

      lstitem.StyleLookup := 'listboxitemImage2';

 

      //스크롤해도 안바뀜

      lstitem.StylesData['Text2Style'] := inttostr(i);

 

      //스크롤하면 위치바뀜

      txt := lstitem.FindStyleResource('Text1Style') as TText;

      if assigned(txt) then

         txt.text := inttostr(i);

 

      img := lstitem.FindStyleResource('Image1Style') as TImage;

      if assigned(img) then

         img.bitmap.assign(TImageControl(self.FindComponent('img'+inttostr(i mod 3))).bitmap);

 

      img := lstitem.FindStyleResource('Image1Style2') as TImage;

      if assigned(img) then

         img.bitmap.assign(TImageControl(self.FindComponent('imgV'+inttostr((i mod 3)+1))).bitmap);

      lstitem.Height := 150;

   end;

 

 

   listbox2.Items.Clear;

   for i:=0 to 9 do

   begin

      lstitem := TListBoxitem.Create(listbox2);

      lstitem.Parent := listbox2;

      lstitem.StyleLookup := 'listboxitemImage1';

 

      //스크롤해도 안바뀜

      lstitem.StylesData['Text2Style'] := inttostr(i);

 

      //스크롤하면 위치바뀜

      txt := lstitem.FindStyleResource('Text1Style') as TText;

      if assigned(txt) then

         txt.text := inttostr(i);

 

      img := lstitem.FindStyleResource('Image1Style') as TImage;

      if assigned(img) then

         img.bitmap.assign(TImageControl(self.FindComponent('img'+inttostr(i mod 3))).bitmap);

      lstitem.Height := 150;

   end;

end;

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2019.4~2019.7 관리자 2015.01.22 6403
공지 유용한 관련 사이트 관리자2 2014.03.20 43736
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 85023
2551 안드로이드 BLE 자동 접속 문제 조대현 2019.03.31 36
2550 블랙스크린 file 넓다란세상 2019.03.30 41
» 멀티디바이스 프로그램에서 listboxitem에 사용자 정의 스타일 적용 문의 file agallee 2019.03.29 32
2548 Delphi 2007 Component 문의드립니다. 예자매파파 2019.03.27 51
2547 컴파일 할 때 더 깊이 들어가는 방법 [2] file 엽기토끼이요 2019.03.25 79
2546 델파이 소스 좀 확인 부탁 드립니다. 윈도우 플랫폼에서는 작동되는데 안드로이드는 안되네요. [2] 손보라 2019.03.08 128
2545 Android에서 Wifi Scan하기 위한 TJBroadcastReceiver를 어떻게 구현해야 하나요? [1] 개성산전 2019.03.18 58
2544 10.3.1 영문/한글이 잘리는 문제 [2] file delphiman 2019.03.22 131
2543 Comport Lib XE2 찾아요 [1] 가나다 2019.03.22 32
2542 XE7 Webbrowser 컴포넌트의 Navigate를 이용시 ..... 구름1004 2019.03.22 38
2541 10.3.1 리오 - 버튼 툴바등 컴포넌트 컬러 [2] 델파인 2019.03.19 82
2540 mysql 연동관련하여 질문합니다. [1] sj9418 2019.03.20 88
2539 TWebBrowser 페이지 연결오류 file miracles 2019.03.19 25
2538 Shape 컨트롤 의 Stroke문제 100jk 2019.03.18 27
2537 델파이는 왜 최소화, 최대화, 끄기 버튼을 새로 만드나요? [3] 엽기토끼이요 2019.03.14 147
2536 TBitmap 갯수 및 크기제한 [2] 100jk 2019.03.06 55
2535 스트링그리드에서 특정셀의 컬러 변경 문의 [1] 포세가이 2019.03.12 47
2534 델파이 xe 디버깅시 값확인 [1] 가나다 2019.03.08 59
2533 실행시 다중폼에서 리소스에 의한 잔상(?) 문제 포세가이 2019.03.15 33
2532 델파이 XE 디버깅시 매번 재컴파일 하나요? [1] 가나다 2019.03.14 47



광고 모듈이 설치되어 있지 않아 실행을 중단합니다..