Q&A
- image관련 책장 넘기는 효과를 내고 싶습니다..
홍성락님께서 대답해주신게 있긴 하던데 제가 잘 이해를 못해서요
밑의것이 제 소스구요
// image1 앞의 페이지
// image2 뒤의 페이지
for i := 1 to image1.Width do
begin
if image1.Width <= 0 then
break;
image1.Width := image1.Width - i ;
image1.Refresh; <--
image2.Refresh; <--
end;
물론 image1, image2 의 위치와 크기는 같게 해놓았구요
stretch 는 True로 해놓아야만 하는 상황입니다.
문제는 넘어가는 느낌은 나는데 image1, image2 둘다 Refresh를 해주면
이미지에 점멸이 생깁니다. 번쩍번쩍 ㅡ_ㅡ
그렇다고 image1만 Refresh 해주면 화면에 잔상이 남았다가 사라지구요
어케 해결할 방법이 없을까요?
고수님들께 부탁드립니다
즐거운 하루되세요^^
밑의것이 제 소스구요
// image1 앞의 페이지
// image2 뒤의 페이지
for i := 1 to image1.Width do
begin
if image1.Width <= 0 then
break;
image1.Width := image1.Width - i ;
image1.Refresh; <--
image2.Refresh; <--
end;
물론 image1, image2 의 위치와 크기는 같게 해놓았구요
stretch 는 True로 해놓아야만 하는 상황입니다.
문제는 넘어가는 느낌은 나는데 image1, image2 둘다 Refresh를 해주면
이미지에 점멸이 생깁니다. 번쩍번쩍 ㅡ_ㅡ
그렇다고 image1만 Refresh 해주면 화면에 잔상이 남았다가 사라지구요
어케 해결할 방법이 없을까요?
고수님들께 부탁드립니다
즐거운 하루되세요^^
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 델피언
- 2004.12.12 20:48
- 0 COMMENTS
- /
- 0 LIKES
-
- Crazy™
- 2004.12.12 05:34
- 0 COMMENTS
- /
- 0 LIKES
-
- 이재현
- 2004.12.12 01:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 김현철
- •
- 2004.12.11 22:44
- •
- 1 COMMENTS
- /
- 0 LIKES
-
파멸의슬픔•2004.12.11 23:22procedure TForm1.BitBtn1Click(Sender: TObject); begin Panel1.Visible := false; ...
-
- 희아빠
- 2004.12.11 22:15
- 0 COMMENTS
- /
- 0 LIKES
-
- kim bae won
- 2004.12.11 20:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 이정은
- •
- 2004.12.11 20:08
- 1 COMMENTS
- /
- 0 LIKES
-
파멸의슬픔•2004.12.11 23:18#13#10 이렇게해보세요... 전 이렇게 사용중입니다... ^^;
-
- 박준철
- 2004.12.11 00:51
- 0 COMMENTS
- /
- 0 LIKES
-
- 정충신
- 2004.12.10 23:22
- 0 COMMENTS
- /
- 0 LIKES
-
-
이창재•2005.02.02 05:56저도 초보이지만 고수님의 문서를 보니깐 ... 디테일 밴드를 위치시키고 그 안에 shape 도구로 일일이 ...
-
Crazy™•2004.12.12 06:17QuickReport의 BeforePrint이벤트에 줄..(shape..) Enabled를 다 해제해야 할것 같네요~
-
-
- 제로니스
- •
- 2004.12.10 06:49
- 2 COMMENTS
- /
- 0 LIKES
-
남충희•2004.12.11 01:403D 효과는 브라우저에서 내는것 같은데 제어하는 옵션은 못본것 같구요. 전 forml 안에서 브라우저의 ...
-
제로니스•2004.12.13 06:37깜쪽 같네요~ 감사합니다~ ^^*
-
- 강동엽
- •
- 2004.12.10 03:29
- 1 COMMENTS
- /
- 0 LIKES
-
석주현•2004.12.10 05:40해당폼에서 keyPreview 를 true 로 하고 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Wo...
-
- 오승섭
- •
- 2004.12.10 03:05
- 1 COMMENTS
- /
- 0 LIKES
-
srookie•2004.12.10 23:39안녕하세요. 정확한 답변이 될지는 모르겠습니다만, 제가 예전에 그와 비슷한 일을 해봐서요. 저는 그때 I...
-
- 박준영
- •
- 2004.12.10 02:59
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2004.12.10 19:50안녕하세요.. 쿼리는 재쿼리를 하지 않는 이상, 자동으로 업데이트 되는 방법은 없는 걸로 알고 있습...
-
- 김현철
- •
- 2004.12.10 00:35
- 6 COMMENTS
- /
- 0 LIKES
-
석주현•2004.12.10 06:16정확하세 제가 내용을 모르겠지만 저런 경우 같으면 보통 TStringList를 쓰시는게 편합니다. 소스 그냥...
-
한하눌•2004.12.10 00:57memo1.lines.loadfromfile('c:\config.ini'); memo1.lines.values['COMPANY_NAME'] := 'TEST'; 이렇...
-
권태훈•2004.12.10 00:53if pos("company_name", lowercase(one_line)) > -1 then beign result := trim(copy...
-
김현철•2004.12.10 02:02[re] 한하눌님...권태훈님... 고맙습니다.! 근데 철자를 고쳐서 ...
-
권태훈•2004.12.10 02:15해당 부분을 올려주세요
-
김현철•2004.12.10 02:26procedure TMainForm.ConnectButtonClick(Sender: TObject); var i : integer; &nbs...
-
- 이재현
- 2004.12.10 00:30
- 0 COMMENTS
- /
- 0 LIKES
-
- 누룽지
- •
- •
- 2004.12.10 00:21
- 1 COMMENTS
- /
- 4 LIKES
홍성락님께서 대답해주신게 있긴 하던데 제가 잘 이해를 못해서요 밑의것이 제 소스구요 // image1 앞의 페이지 // image2 뒤의 페이지 for i := 1 to image1.Width do begin if image1.Width <= 0 then break; image1.Width := image1.Wi...-
권태훈•2004.12.10 00:47더블 버퍼링을 해야 합니다. 그림을 바로 그리지 말고 버퍼에 그렸다가 디스플레이 하면 됩니다. 역...
-
- 무수리
- •
- 2004.12.09 22:32
- 1 COMMENTS
- /
- 0 LIKES
-
권태훈•2004.12.10 00:44될려나 모르겠는데 kxdriver를 사용해 보십시요. 사블이라면 될 가능성이 높습니다. kx드라이버는 원...
-
- 임우식
- •
- 2004.12.09 22:22
- 1 COMMENTS
- /
- 0 LIKES
-
srookie•2004.12.10 02:05안녕하세요. 델파이 2005는 Win32와 .Net을 동시에 지원하고 있답니다. 일반환경에서도 물론 사용할 수 ...
-
- 김송희
- •
- 2004.12.09 22:08
- 1 COMMENTS
- /
- 0 LIKES
-
석주현•2004.12.10 06:36기존에 5.0에는 encodeDate 와 encodeTime 이 있으니깐 만들어 쓰시면 될거 같은데요.. 어차피 TDat...
그림을 바로 그리지 말고 버퍼에 그렸다가 디스플레이 하면 됩니다.
역시 꽁수중에 하나로 이미지 콤포를 버퍼링이 기본빵으로 되는
판넬 위에 올려 놓는 방법도 있습니다. 버퍼링이 되는건 찾아보셔야 합니다.
"플리커리 없애기".. 이런걸로 찾으면 답변 많이 나올겁니다.