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

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

 

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

  System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, Vcl.Imaging.jpeg,

  Vcl.Imaging.GIFImg, Vcl.Imaging.pngimage;

 

type

  TForm1 = class(TForm)

    imgBackground: TImage;

    pnl1: TPanel;

    img1: TImage;

    tmrStartup: TTimer;

    procedure FormShow(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure tmrStartupTimer(Sender: TObject);

  private

    { Private declarations }

    procedure TestDraw();

  public

    { Public declarations }

  end;

 

var

  Form1: TForm1;

 

implementation

 

{$R *.dfm}

 

procedure TForm1.FormCreate(Sender: TObject);

begin

  Left := 0;

  Top := 0;

 

  DoubleBuffered := True;

  pnl1.DoubleBuffered := True;

end;

 

procedure TForm1.FormShow(Sender: TObject);

begin

  // TestDraw();

end;

 

procedure TForm1.TestDraw;

begin

  if not Assigned(imgBackground.Picture.Graphic) then

    Exit;

 

  if not Assigned(img1) then

    Exit;

 

  // 이 부분을 주석처리하면 정상적으로 보입니다.

  if not Assigned(imgBackground.Picture.Bitmap) then

  begin

 

  end;

 

  img1.Picture.Bitmap.Assign(imgBackground.Picture.Graphic);

end;

 

procedure TForm1.tmrStartupTimer(Sender: TObject);

begin

  TTimer(Sender).Enabled := False;

 

  TestDraw();

end;

 

  TestDraw 안에서Assigned(imgBackground.Picture.Bitmap) 을 호출하면

  메인 폼의 DoubleBuffered 속성을 True 로 한 상태에서

  디자인 타임에 imgBackground.Picture 속성에 로드한 이미지가

  Bitmap 이미지일 경우엔 이미지가 정상적으로 표시됩니다.

  Gif  이미지일 경우엔 이미지가 표시가 안됩니다.

  JPEG 이미지일 경우엔 이미지가 표시가 안됩니다.

  PNG 이미지일 경우엔 이미지가 표시가 안됩니다.

  TIF 이미지일 경우엔 이미지가 표시가 안됩니다.

 

  단, TestDraw 안에서Assigned(imgBackground.Picture.Bitmap) 을 호출하는 부분을 주석처리한 경우엔

  Bitmap 이외의 이미지를 Load 하더라도 잘 보입니다.

  또한

  TestDraw 안에서Assigned(imgBackground.Picture.Bitmap) 을 호출하는 부분을 주석처리하지 않은 상태에서는

  DoubleBuffered 속성을 False 로 설정하면 Bitmap 이외의 이미지를 Load 하더라도 잘 보입니다.

 

  1. 왜 이럴까요?

  2. 어떻게 하면 DoubleBuffered 속성을 True 로 설정한 상태에서도

  Bitmap 이외의 이미지일 경우 이미지가 정상적으로 보이게 할 수 있을까요?

 

  DoubleBuffered 속성은 FormCreate 에서 설정하였습니다.

  TestImage 들은 ..\TestImages 에 들어있습니다.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 20046
공지 유용한 관련 사이트 관리자2 2014.03.20 58957
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 102574
3019 [질문] 엑셀파일 저장시 pdf화일로 저장 가능할까요? [1] delphi 2020.07.16 926
3018 코딩창에서 여러줄을 한꺼번에 들여쓰기 기능이 있는지 ? [2] file 라빌레나 2020.07.16 3988
» DoubleBuffered 속성을 True 로 설정하고 Picture.Bitmap 를 참조한 상태에서 TImage 에서 Bitmap 이외의 파일을 로드할 경우 이미지가 정상적으로 표시되지 않습니다. [1] file DarkRyu 2020.07.10 566
3016 FastReport관련 질문있습니다. [2] file 루키 2020.07.08 452
3015 APP STORE IOS....앱 아이콘을 Xcode의 자산 카탈로그에 추가해야합니다 문제 [1] 성후아빠 2020.07.07 295
3014 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 3 [9] 관리자 2016.05.02 480
3013 TStackPanel 사용시 문의 사항 입니다. [1] sihwan 2020.07.03 198
3012 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 8 - Exercise 4 관리자 2016.05.02 332
3011 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 22 - Exercise 1 관리자 2020.07.03 196
3010 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 6 - Exercise 4 [1] 관리자 2016.05.02 683
3009 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 1 [1] 관리자 2016.05.02 492
3008 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 2 관리자 2020.07.03 168
3007 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 7 - Exercise 3 [1] 관리자 2016.05.02 236
3006 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 12 - Exercise 5 [1] 관리자 2016.05.10 202
3005 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 20 - Exercise 1 [1] file 관리자 2016.05.27 156
3004 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 20 - Exercise 2 [1] file 관리자 2016.05.27 166
3003 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 20 - Exercise 3 [1] 관리자 2016.05.27 124
3002 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 20 - Exercise 4 [1] 관리자 2016.05.27 203
3001 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 21 - Exercise 1 [1] 관리자 2016.05.27 160
3000 [시작하는 사람들을 위한 델파이 프로그래밍] 모듈 21 - Exercise 2 [1] 관리자 2016.05.27 167