안녕하세요.
QuickReport에 대해 고수님들의 지혜를 좀 배워보고자 이렇게 글을 올립니다.
다름이 아니라 아래와 같이 제가 디비에서 불러온 값에 따라서 QRImage에 다른 이미지를
넣고 싶은데 그게 잘 안되서요
data1이라는 값이 TRUE이면 'c:\\custom_image_list.bmp'라는 이미지를 QRImage에 넣어서 출력하고
FALSE이면 'c:\\KBSTAR.BMP'이미지를 QRImage에 넣어서 출력하고 싶은데
출력을 해 보면 현재 한 이미지(마지막 데이타)만 계속출력이 되더라구요.
왜 그런건지..뭐가 잘못된건지...해결책이 무엇인지좀 알고 싶습니다.
좀 급한 사항이라 부탁좀 드리겠습니다.
P.S) 참고로 이미지는 디비에서 직접 불러올수가 없는 상황이어서 외부에서 현재와 같이 불러와야 하는
상황입니다.
감사합니다.
With qrReport.qryQuery Do Begin
Close;
SQL.Clear;
l_sQuery := 'select data1 from test_tbl';
SQL.Text := l_sQuery;
Open;
First;
While Not Eof Do Begin
QR_Image := TQRImage.Create(nil);
QR_Image.Left := 10;
QR_Image.Top := 10;
QR_Image.Width := 10;
QR_Image.Height := 30;
QR_Image.Picture := nil;
If FieldByName( 'sp_isreturn' ).AsBoolean = True Then
QR_Image.Picture.LoadFromFile( 'c:\\custom_image_list.bmp' )
Else
QR_Image.Picture.LoadFromFile( 'c:\\KBSTAR.BMP' );
QR_Image.Parent := qrReport.DetailBand1;
QR_Image.Refresh;
Next;
End;
End;