Q&A
- 투명폼...
지금 투명폼을 만들고 있는데요...
아래의 소스처럼 만들면 자주 깜박거려 문제가 있구여...
Invalidete구절을 생략 하면 처음은 투명이 되지만 이미지 이동시에는 이전 상태의
이미지가 계속 같이 움직이 더라구요...
그리구 예를 들어 아래와 같은 이미지
+---+ <-(1)
| +---------+
| <-(2) |
| +---------+
+---+
(1) 번부분에서도 마우스를 (투명 처리부분)되어도 이동하거든요 ...
(2) 번부분만 마우스를 작동 되게 하구 싶습니다...
마스크 이미지를 만들어 처리 하구 싶지만 방식을 몰라 고전 중입니당...
영대님이 만드신 NeoBrowser 처럼 화면이 이동하는 폼을 만들고 싶어요 -_-;;
도움 주시면 고맙겠습니다...
참고로 아래의 소스는 상하로만 움직이게 제가 고정 시켰습니다.
procedure TOnlineForm.IMGMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
yMouse := y;
MoveFlags := true;
end;
procedure TOnlineForm.IMGMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var top_pos : Integer;
NewRect : TRect;
begin
if MoveFlags then begin
SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@NewRect), 0);
top_pos := top - yMouse + y;
if top_pos < 0 then top_pos := 0;
if (height + top_pos) > NewRect.Bottom then top_pos := NewRect.Bottom - height;
SetWindowPos(handle, HWND_TOP, left,top_pos, width, height, SWP_NOZORDER);
end;
end;
procedure TOnlineForm.IMGMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MoveFlags := false;
end;
procedure TOnlineForm.FormShow(Sender: TObject);
begin
top := 0;
left := 0;
Height := IMG.Height;
Width := IMG.Width;
MoveFlags := False;
end;
procedure TOnlineForm.CreateParams(var P: TCreateParams);
begin
inherited CreateParams(P);
P.ExStyle := P.ExStyle or WS_EX_TRANSPARENT;
OnlineForm.Brush.Style := bsClear;
end;
procedure TOnlineForm.FormPaint(Sender: TObject);
begin
Invalidate;
end;
아래의 소스처럼 만들면 자주 깜박거려 문제가 있구여...
Invalidete구절을 생략 하면 처음은 투명이 되지만 이미지 이동시에는 이전 상태의
이미지가 계속 같이 움직이 더라구요...
그리구 예를 들어 아래와 같은 이미지
+---+ <-(1)
| +---------+
| <-(2) |
| +---------+
+---+
(1) 번부분에서도 마우스를 (투명 처리부분)되어도 이동하거든요 ...
(2) 번부분만 마우스를 작동 되게 하구 싶습니다...
마스크 이미지를 만들어 처리 하구 싶지만 방식을 몰라 고전 중입니당...
영대님이 만드신 NeoBrowser 처럼 화면이 이동하는 폼을 만들고 싶어요 -_-;;
도움 주시면 고맙겠습니다...
참고로 아래의 소스는 상하로만 움직이게 제가 고정 시켰습니다.
procedure TOnlineForm.IMGMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
yMouse := y;
MoveFlags := true;
end;
procedure TOnlineForm.IMGMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var top_pos : Integer;
NewRect : TRect;
begin
if MoveFlags then begin
SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@NewRect), 0);
top_pos := top - yMouse + y;
if top_pos < 0 then top_pos := 0;
if (height + top_pos) > NewRect.Bottom then top_pos := NewRect.Bottom - height;
SetWindowPos(handle, HWND_TOP, left,top_pos, width, height, SWP_NOZORDER);
end;
end;
procedure TOnlineForm.IMGMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MoveFlags := false;
end;
procedure TOnlineForm.FormShow(Sender: TObject);
begin
top := 0;
left := 0;
Height := IMG.Height;
Width := IMG.Width;
MoveFlags := False;
end;
procedure TOnlineForm.CreateParams(var P: TCreateParams);
begin
inherited CreateParams(P);
P.ExStyle := P.ExStyle or WS_EX_TRANSPARENT;
OnlineForm.Brush.Style := bsClear;
end;
procedure TOnlineForm.FormPaint(Sender: TObject);
begin
Invalidate;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 금성진
- •
- 2000.05.15 02:29
- 1 COMMENTS
- /
- 0 LIKES
-
조규춘•2000.05.15 20:49금성진 wrote: > 안녕하세요 다름이 아니라 델파이4.0으로 프로그램을 만들었는데 > 프로그램에서 기본적...
-
- 안희준
- •
- 2000.05.14 23:18
- 2 COMMENTS
- /
- 0 LIKES
-
김일영•2000.05.15 07:32그냥 한번 써봤습니다... 물론 이미 다 잘 알고들 계시리라 생각합니다만... 자료실에 보심 Class Spy라고...
-
최용일•2000.05.15 01:14안녕하세요. 최용일입니다. 제가 직접 해보았는데 잘 되던데요. 메세지박스를 어떻게 찾으셨나요? 이...
-
- 델사모초보
- •
- 2000.05.14 22:30
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.15 01:17안녕하세요. 최용일입니다. 파라매터가 하나 빠졌네요... ShellExecute(Handle, 'OPEN', 'd:한진증권...
-
- 이수정
- •
- 2000.05.14 19:37
- 1 COMMENTS
- /
- 0 LIKES
-
Goman•2000.05.14 20:48이수정 wrote: > 안녕하세요.. > > ---------------- > 테이블 A > -----------------------------...
-
- all path
- •
- 2000.05.14 12:27
- 1 COMMENTS
- /
- 0 LIKES
-
한창희•2000.05.14 13:01all path wrote: > 전 델파이 초보입니다. > 델파이를 배우고 있는데. > 예를들어 파라독스로 db를 만들...
-
- Goman
- •
- 2000.05.14 09:59
- 1 COMMENTS
- /
- 0 LIKES
-
Mr.Q•2000.05.14 22:05Goman wrote: > 예를 들어.. > 1. 관리 > 1.1 발송 => 여기는 생성했음 > 1.2 우...
-
- 숫
- •
- 2000.05.14 08:51
- 1 COMMENTS
- /
- 0 LIKES
-
nilriri•2000.05.15 07:28처음 미리보기에서는 자료가 안보이고 두번째 미리보기를 실행할때 자료가 보인다면 서브디테일에서 사용...
-
- 김계성
- •
- 2000.05.14 07:37
- 1 COMMENTS
- /
- 0 LIKES
-
김일영•2000.05.14 12:26양병규님께서 답변을 잘 써놓으신게 있습니다만, 그 답변은 병규님의 헬프워드 사이트에서 Q&A로 써놓으...
-
- 최민규
- 2000.05.14 06:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 김일영
- •
- 2000.05.14 05:50
- 2 COMMENTS
- /
- 0 LIKES
-
최용일•2000.05.15 01:23안녕하세요. 최용일입니다. 좀 다른 방법으로... Canvas를 가지고 있는 객체(예 - TImage)를 alClient로...
-
Mr.Q•2000.05.14 11:17김일영 wrote: > 안녕하십니까. 프로젝트가 너무 바쁘다보니 참여가 적어져서 죄송합니다. > Form에서 To...
-
- 김병건
- •
- 2000.05.14 03:56
- 1 COMMENTS
- /
- 0 LIKES
지금 투명폼을 만들고 있는데요... 아래의 소스처럼 만들면 자주 깜박거려 문제가 있구여... Invalidete구절을 생략 하면 처음은 투명이 되지만 이미지 이동시에는 이전 상태의 이미지가 계속 같이 움직이 더라구요... 그리구 예를 들어 ...-
David•2000.05.14 06:28지나가던 사람입니다.. 저는 김병건님과 같은 문제로 고민을 하다가 간단한 방법을 생각했습니다. 폼에 ...
-
- 김길남
- 2000.05.14 01:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- •
- 2000.05.14 00:33
- 1 COMMENTS
- /
- 0 LIKES
-
술친구•2000.05.14 01:49초보 wrote: > if i =0 then > rewrite(z1) > else append(z1); > > for문을 돌려서 > 처...
-
- 변상규
- 2000.05.14 00:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이음청초보!
- •
- 2000.05.14 00:19
- 4 COMMENTS
- /
- 0 LIKES
-
술친구•2000.05.14 01:57델파이음청초보! wrote: > human_name : string > > with query1 do > begin > close; > ...
-
tommy•2000.05.16 01:31sql.add ('where human.name = "'+human_name+'"'); > human_name : string > > > > with query1 do ...
-
한창희•2000.05.14 11:38술친구 wrote: > 델파이음청초보! wrote: > > human_name : string > > > > with query1 do > > ...
-
델파이음청초보!•2000.05.14 00:20
-
- 김대겸
- •
- 2000.05.13 23:52
- 1 COMMENTS
- /
- 0 LIKES
-
댕그•2000.05.17 02:59아직 고민중이신지??? 아이디어라기 보다는요 뭐.. 통상적인 방법일듯 한데... 로그파일을 읽는 프로...
-
- 박대규
- •
- 2000.05.13 22:37
- 1 COMMENTS
- /
- 0 LIKES
-
한석희•2000.05.16 19:46박대규 wrote: > 안녕하세요.. 델파이를 사랑하는 여러분... > > 다름이 아니라 다음과 같은 루틴을 작...
-
- 손승규
- •
- 2000.05.13 22:33
- 1 COMMENTS
- /
- 0 LIKES
-
박종식•2000.05.13 23:27정확히 에러가 나는 시점이 어디에서 발생하는지가 궁금하군요...
-
- sonny
- 2000.05.13 22:02
- 0 COMMENTS
- /
- 0 LIKES
-
- mumu
- 2000.05.13 21:17
- 0 COMMENTS
- /
- 0 LIKES
저는 김병건님과 같은 문제로 고민을 하다가 간단한 방법을 생각했습니다.
폼에 우선 이미지콘트롤을 깐다음에...
이미지의 경계선을 검출하는 루틴을 만듭니다..
그래서 그 포인트들을 일정한 버퍼에 넣고 나서는
ppPoint := TPointType(RgnStream.memory);
Wrgn := CreatePolygonRgn(ppPoint^,i,WINDING);
RgnStream.Free;
SetWindowRgn(handle,Wrgn,True);
이렇게 코딩을 하는거죠...
물론 RgnStream에 경계좌표가 줄을 이어서 써져있는거죠..
그러면 정확히 그림이 있는곳의 영역을 짤라서 움직일 수 있을겁니다.
빈공간의 움직임도 없을테구요..
그럼...
김병건 wrote:
> 지금 투명폼을 만들고 있는데요...
> 아래의 소스처럼 만들면 자주 깜박거려 문제가 있구여...
> Invalidete구절을 생략 하면 처음은 투명이 되지만 이미지 이동시에는 이전 상태의
> 이미지가 계속 같이 움직이 더라구요...
> 그리구 예를 들어 아래와 같은 이미지
> +---+ <-(1)
> | +---------+
> | <-(2) |
> | +---------+
> +---+
> (1) 번부분에서도 마우스를 (투명 처리부분)되어도 이동하거든요 ...
> (2) 번부분만 마우스를 작동 되게 하구 싶습니다...
> 마스크 이미지를 만들어 처리 하구 싶지만 방식을 몰라 고전 중입니당...
> 영대님이 만드신 NeoBrowser 처럼 화면이 이동하는 폼을 만들고 싶어요 -_-;;
> 도움 주시면 고맙겠습니다...
>
> 참고로 아래의 소스는 상하로만 움직이게 제가 고정 시켰습니다.
>
> procedure TOnlineForm.IMGMouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> yMouse := y;
> MoveFlags := true;
> end;
>
> procedure TOnlineForm.IMGMouseMove(Sender: TObject; Shift: TShiftState; X,
> Y: Integer);
> var top_pos : Integer;
> NewRect : TRect;
> begin
> if MoveFlags then begin
> SystemParametersInfo(SPI_GETWORKAREA, 0, Pointer(@NewRect), 0);
> top_pos := top - yMouse + y;
> if top_pos < 0 then top_pos := 0;
> if (height + top_pos) > NewRect.Bottom then top_pos := NewRect.Bottom - height;
> SetWindowPos(handle, HWND_TOP, left,top_pos, width, height, SWP_NOZORDER);
> end;
> end;
>
> procedure TOnlineForm.IMGMouseUp(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> MoveFlags := false;
> end;
>
> procedure TOnlineForm.FormShow(Sender: TObject);
> begin
> top := 0;
> left := 0;
> Height := IMG.Height;
> Width := IMG.Width;
> MoveFlags := False;
> end;
>
> procedure TOnlineForm.CreateParams(var P: TCreateParams);
> begin
> inherited CreateParams(P);
>
> P.ExStyle := P.ExStyle or WS_EX_TRANSPARENT;
> OnlineForm.Brush.Style := bsClear;
> end;
>
> procedure TOnlineForm.FormPaint(Sender: TObject);
> begin
> Invalidate;
> end;
>