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

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

안녕하세요. 델파이 10.1로 여전히 개발중인 개발자입니다.

이번에 기존 'Windows'라는 Default Style 에서 IceBerg Classico 로 테마를 변경해봤습니다.

 

문제는 VCL Style 변경 시 기존에 임의로 Style 등록한 (스태킹 플랜과 같이 그림을 만들어내는) 부분에서

특히, TComponent를 사용한 부분은 프로그램이 프리징 되거나 드랍이 계속 되고 있습니다.

 

          var c: TComponent;

          c := TwLabel.Create(aForm);

          with TwLabel(c) do begin

            TwLabel(c).Tag         := chk;

            TwLabel(c).parent      := aScrollBox;

            TwLabel(c).Name        := honame(Bd,Ho);

            TwLabel(c).Caption     := aHoName;

            TwLabel(c).Visible     := true;

            TwLabel(c).Top         := t;

            TwLabel(c).Left        := l;

            TwLabel(c).Width       := w;

            TwLabel(c).Height      := h;

            TwLabel(c).BorderStyle := mlbsRaised;//mlbsSunken;

..

..

..

      if Assigned(c) then begin

        with TwLabel(c) do begin

          Caption     := Ho;

          Hint        := '';

          ShowHint    := false;

          Chima       := false;

          Color       := c_Color_Black;

          BorderColor := Color;

          BorderStyle := mlbsRaised;

 

          Font.Color  := clWhite;

          Font.Style  := [];

          Font.Size   := 9;

          Font.Name   := '굴림체';

 

          if (chk=1) and (aArea=0) then begin  //임대불가

            Color       := clSilver;

            Font.Color  := clGray;

            BorderColor := Color;

...

...

 

이 부분으로 보입니다.

 

캡처.JPG

 

어떻게 해결을 해보는게 좋을까요.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
3179 C++ 빌더 10.4 Data Base Form에 Data Base Component들이 안보임 [2] file 꼬꼬마 2021.03.11 160
3178 connection editer 희망나라 2021.03.12 105
3177 10.4.2 인스톨후 안드로이드 11 SDK문제 [2] 불나방 2021.03.10 384
3176 child form 에서 mdi form 의 버튼 클릭 이벤트 [1] 가나다 2021.03.12 233
3175 안드로이드 업데이트 이후 [3] file 지구수비방위대 2021.02.17 1065
3174 TListBox 내 TListItem 삭제 [2] 공수래 2021.03.10 157
3173 Interbase System Encryption password needed [1] 임종범 2021.03.10 339
3172 sqlite [1] 희망나라 2021.03.10 447
3171 델파이 MDI 폼에서 쪽지 알람 기능 가능? [1] 가나다 2021.03.10 333
3170 아파치 RAD Server 연동 날개 2021.03.11 86
3169 error - can't bind address: Address already in use. [2] file 그아이네 2021.02.23 183
3168 [질문] 동적 생성된 버튼 객체의 해제 유무 [2] 공수래 2021.03.05 157
3167 [질문] TEdgeBrowser 에서 새창 크기 문제 [1] 겨울아이 2021.02.10 390
3166 델파이(10.4.1) ios App 전체화면 안되는 부분 질문드립니다. 쟝히 2021.03.04 865
3165 c++ buider 10.4.2 버젼 설치하고 테스트 [2] sihwan 2021.02.25 449
3164 JSON 통신시 한글 꺠짐 [1] 똘귀아빠 2021.02.24 356
3163 lambda expression 내에서 parameter의 property에 쓰기시 this 가 암묵적 capture 가 되는 문제 [2] 아루스 2021.02.04 1902
3162 FireDAC Connection 체크를 어떤 방식으로 하는게 좋을까요? [1] 육식육식 2021.02.22 299
» 10.1 Berlin VCL Appearance 변경 시 프로그램 프리징 현상 [1] file 생각 2021.02.25 160
3160 [질문] DataSnap과 Mobile 연결 [2] 오는새벽 2021.02.25 336