Q&A
- EDIT를 투명하게?
EDIT컴포넌트를 투명하게 하려고 그러는데요..
EDIT는 폼이나 판넬과는 다르게 잘 안되네요..
아시는 분 계시면 좀 가르쳐주세요..
EDIT는 폼이나 판넬과는 다르게 잘 안되네요..
아시는 분 계시면 좀 가르쳐주세요..
2
COMMENTS
-
-
남기룡 wrote:
> 남기룡 wrote:
> > EDIT컴포넌트를 투명하게 하려고 그러는데요..
> > EDIT는 폼이나 판넬과는 다르게 잘 안되네요..
> >
> > 아시는 분 계시면 좀 가르쳐주세요..
> >
> >
>
> delphi3000에 있더군요..-.-
> 제가 너무 성급하게 질문했네요......-.-
>
>
> Question/Problem/Abstract:
>
> How can I build a transparent edit control?
> Answer:
>
>
> Building a transparent edit control can be the cool face of your application. Why? Because your entry forms can look like "paper forms". Adding this cool features for your application can be very easy, as you will see bellow.
>
> First of all I want to specify that is not my original code. I have found a transparent edit, listbox, checkbox and memo controls in FusedControls, but the main goal of this library is the flicker. Is impossible for anyone to distribute a applicatin with this controls because the flicker is in supportable.
>
> An now, go to work. All we have to do is to overrwide the CreateParams and some common events. In order to resolve the flicker I have decide to let our edit control transparent only when the focus is not on it. So, I have override the DoEnter and DoExit. The entire code is bellow. Just copy, paste in a blank unit and install the component.
>
>
> unit RbsWiredEdit;
>
> interface
>
> uses
> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
> StdCtrls;
>
> const
> TWM_RbsInvalidate=WM_USER+1;
>
> type
> TRbsWiredEdit = class(TEdit)
> private
> { Private declarations }
> procedure RbsInvalidate(var Message:TMessage); message
> TWM_RbsInvalidate;
> procedure CNCTLCOLOREDIT(var Message:TWMCTLCOLOREDIT); message
> CN_CTLCOLOREDIT;
> procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
> procedure WMMove(var Message: TMessage); message WM_MOVE;
>
> protected
> { Protected declarations }
> FTransparent: boolean;
> procedure CreateWnd; override;
> procedure CreateParams(var Params: TCreateParams); override;
> procedure DoExit; override;
> procedure DoEnter; override;
> public
> { Public declarations }
> constructor Create(AOwner: TComponent); override;
> procedure Invalidate; override;
>
> published
> { Published declarations }
> end;
>
> procedure Register;
>
> implementation
>
> constructor TRbsWiredEdit.Create(AOwner:TComponent);
> begin
> inherited create(AOwner);
> ftransparent:=true;
> end;
>
> procedure TRbsWiredEdit.CreateWnd;
> begin
> inherited CreateWnd;
> if fTransparent then
> begin
> SetWindowLong(Parent.Handle, GWL_STYLE,
> GetWindowLong(Parent.Handle, GWL_STYLE) and not WS_CLIPCHILDREN);
> end;
> end;
>
> procedure TRbsWiredEdit.RbsInvalidate(var Message:TMessage);
> var r:TRect;
> begin
> if (Parent<>nil) and FTransparent then
> begin
> r:=ClientRect;
> r.TopLeft:=Parent.ScreenToClient(ClientToScreen(r.TopLeft));
> r.BottomRight:=Parent.ScreenToClient(ClientToScreen(r.BottomRight));
> RedrawWindow(Handle,nil,0,RDW_FRAME+RDW_INVALIDATE);
> end;
> end;
>
> procedure TRbsWiredEdit.CNCTLCOLOREDIT(var Message:TWMCTLCOLOREDIT);
> begin
> if FTransparent then
> with Message do
> begin
> SetBkMode(ChildDC,Windows.TRANSPARENT);
> Result:=GetStockObject(HOLLOW_BRUSH)
> end
> else inherited;
> end;
>
>
>
> procedure TRbsWiredEdit.WMEraseBkgnd(var Message:TWMERASEBKGND);
> begin
> if FTransparent and not (csDesigning in ComponentState) then
> PostMessage(Handle,TWM_RbsInvalidate,0,0)
> else inherited;
> end;
>
> procedure TRbsWiredEdit.WMMove(var message:TMessage);
> begin
> inherited;
> if FTransparent then SendMessage(Handle,TWM_RbsInvalidate,0,0)
> else Invalidate;
> end;
>
> procedure TRbsWiredEdit.CreateParams(var Params:TCreateParams);
> begin
> inherited CreateParams(Params);
> if (CsDesigning in ComponentState) then exit;
> with Params do
> begin
> ExStyle:=ExStyle or WS_EX_TRANSPARENT;
> end;
> end;
>
> procedure TRbsWiredEdit.DoExit;
> begin
> inherited;
> FTransparent:=true;
> SetCursor(0);
> RecreateWnd;
> end;
>
> procedure TRbsWiredEdit.DoEnter;
> var exstyle,stdstyle:longint;
> begin
> inherited;
> Ftransparent:=false;
> StdStyle:= Windows.GetWindowLong(handle, GWL_EXSTYLE);
> exStyle:= StdStyle and not WS_EX_TRANSPARENT;
> Windows.SetWindowLong(handle, GWL_EXSTYLE, exStyle);
> invalidate;
> end;
>
> procedure TRbsWiredEdit.Invalidate;
> begin
> if FTransparent then SendMessage(Handle,TWM_RbsInvalidate,0,0)
> else inherited;
> end;
>
> procedure Register;
> begin
> RegisterComponents('Rombest', [TRbsWiredEdit]);
> end;
>
> end.
>
os에 제한은 없나요 ??
win95/98/me 2000
(NOTICE) You must be logged in to comment on this post.
-
- 델이랑파이랑
- •
- 2000.12.02 02:58
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.04 20:24쩝... up2 라는 필드에 아무것도 넣지 않을거라면 없애버리면 되지 않을까요? sql.add('insert i...
-
- 초보자
- •
- 2000.12.02 02:52
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.04 11:20다른 사용자들로부터 데이터(패킷)을 수신하는 부분은 쓰레드로 처리하고 송신하는 부분은 Lock을 사용하...
-
- 초보중 초보
- 2000.12.02 02:49
- 0 COMMENTS
- /
- 0 LIKES
-
- 김인수
- •
- 2000.12.02 02:45
- 4 COMMENTS
- /
- 0 LIKES
-
찬호 김•2000.12.02 20:33문제를 해결하셨는지 모르겠네요. 보니까 별 문제는 없는듯 싶네요. A, B 두개의 인라인 뷰에서 같은 PR...
-
김인수•2000.12.02 21:14고수님 정말
-
김종언•2000.12.02 20:03보니깐 안될리가 없는데여... 다시 확인해보세요... 델파이내에서.. 잘못된 문장이 있는지 찾아보세요... ...
-
김인수•2000.12.02 21:17저에게 관심을 갖고 해결점을 알려주셔서 감사합니다 대단히 큰 도움이 되었습니다 항상 즐거운일이 넘...
-
- 이석현
- 2000.12.02 02:31
- 0 COMMENTS
- /
- 0 LIKES
-
- 한창도
- •
- 2000.12.02 02:28
- 1 COMMENTS
- /
- 0 LIKES
-
고드름•2000.12.06 09:37안녕하세요? 고드름 김정입니다. 태스크바에 표시되는 것은 Application 자체입니다. 따라서 이렇게...
-
- 남기룡
- •
- 2000.12.02 02:26
- 2 COMMENTS
- /
- 0 LIKES
EDIT컴포넌트를 투명하게 하려고 그러는데요.. EDIT는 폼이나 판넬과는 다르게 잘 안되네요.. 아시는 분 계시면 좀 가르쳐주세요..-
남기룡•2000.12.02 02:29남기룡 wrote: > EDIT컴포넌트를 투명하게 하려고 그러는데요.. > EDIT는 폼이나 판넬과는 다르게 잘 안...
-
이홍석•2000.12.02 07:55남기룡 wrote: > 남기룡 wrote: > > EDIT컴포넌트를 투명하게 하려고 그러는데요.. > > EDIT는 폼이나 ...
-
- 황하성
- 2000.12.02 02:24
- 0 COMMENTS
- /
- 0 LIKES
-
- 최의종
- •
- 2000.12.02 02:02
- 1 COMMENTS
- /
- 0 LIKES
-
구창민•2000.12.02 02:18최의종 wrote: > 안녕하세요! > > SetWindowPos(..., HWND_TOPMOST, ....)로 폼을 최상위 윈도우로 만...
-
- 조휘석
- •
- 2000.12.02 02:01
- 1 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.02 20:11ipx 프로토콜 아시죠? 파일 공유하고 하는거.. 그걸 이용해서 폴더 공유하고 내 컴퓨터처럼 사용하는 방...
-
- 빙
- •
- 2000.12.02 01:34
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2000.12.04 20:43가능합니다. 단, function Add(Item: Pointer): Integer; 이렇게 되여 있져. 그러므로 TList에서 상속을...
-
-
- 금강산
- 2000.12.02 01:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 박경진
- •
- 2000.12.02 00:44
- 1 COMMENTS
- /
- 0 LIKES
-
s6763•2000.12.14 21:44박경진 wrote: > Delphi 에서 OS/DB(Linux(mysql))연동하여 프로그램 테스트 중 입니다. > MySQL 고수님...
-
- 김종언
- 2000.12.02 00:42
- 0 COMMENTS
- /
- 0 LIKES
-
- sky
- 2000.12.02 00:37
- 0 COMMENTS
- /
- 0 LIKES
-
- 호야
- 2000.12.02 01:31
- 0 COMMENTS
- /
- 0 LIKES
-
- pallas
- •
- 2000.12.02 00:06
- 3 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.02 00:31문법이 틀렸네요... 어떤 필드 값을 뭘로 바꿔준다는 부분이 없어요... * 로 해준 부분을 명확하게.. 지...
-
pallas•2000.12.02 00:57김종언 wrote: > 문법이 틀렸네요... > 어떤 필드 값을 뭘로 바꿔준다는 부분이 없어요... > * 로 해준 ...
-
김종언•2000.12.02 20:25어떤 필드를 어떤값으로 바꿔준다는 부분이 없잖아요... 그걸 정의해 줘야져... pallas wrote: > ...
-
- 김정태
- •
- 2000.12.01 23:56
- 1 COMMENTS
- /
- 0 LIKES
-
까마귀•2000.12.02 01:53김정태 wrote: > > Progress Bar를 보면 항상 파란색으로 진행사항을 표시하는데 > 이 부분을 다른색의...
-
- 델이랑파이랑
- •
- 2000.12.01 23:46
- 2 COMMENTS
- /
- 0 LIKES
-
김종언•2000.12.02 00:40아이구 이런.. 또 나아니면 답해줄사람이 없을것 같네요.... 테이블의 존재 여부를 알아오는 방법이 있습...
-
델이랑파이랑•2000.12.02 01:12김종언 님... 정말 감사드려요...덕분에 유용하게 프로그래밍하고 있습니다.. 김종언님에게는 자그마한 ...
> EDIT컴포넌트를 투명하게 하려고 그러는데요..
> EDIT는 폼이나 판넬과는 다르게 잘 안되네요..
>
> 아시는 분 계시면 좀 가르쳐주세요..
>
>
delphi3000에 있더군요..-.-
제가 너무 성급하게 질문했네요......-.-
Question/Problem/Abstract:
How can I build a transparent edit control?
Answer:
Building a transparent edit control can be the cool face of your application. Why? Because your entry forms can look like "paper forms". Adding this cool features for your application can be very easy, as you will see bellow.
First of all I want to specify that is not my original code. I have found a transparent edit, listbox, checkbox and memo controls in FusedControls, but the main goal of this library is the flicker. Is impossible for anyone to distribute a applicatin with this controls because the flicker is in supportable.
An now, go to work. All we have to do is to overrwide the CreateParams and some common events. In order to resolve the flicker I have decide to let our edit control transparent only when the focus is not on it. So, I have override the DoEnter and DoExit. The entire code is bellow. Just copy, paste in a blank unit and install the component.
unit RbsWiredEdit;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
const
TWM_RbsInvalidate=WM_USER+1;
type
TRbsWiredEdit = class(TEdit)
private
{ Private declarations }
procedure RbsInvalidate(var Message:TMessage); message
TWM_RbsInvalidate;
procedure CNCTLCOLOREDIT(var Message:TWMCTLCOLOREDIT); message
CN_CTLCOLOREDIT;
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
procedure WMMove(var Message: TMessage); message WM_MOVE;
protected
{ Protected declarations }
FTransparent: boolean;
procedure CreateWnd; override;
procedure CreateParams(var Params: TCreateParams); override;
procedure DoExit; override;
procedure DoEnter; override;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
procedure Invalidate; override;
published
{ Published declarations }
end;
procedure Register;
implementation
constructor TRbsWiredEdit.Create(AOwner:TComponent);
begin
inherited create(AOwner);
ftransparent:=true;
end;
procedure TRbsWiredEdit.CreateWnd;
begin
inherited CreateWnd;
if fTransparent then
begin
SetWindowLong(Parent.Handle, GWL_STYLE,
GetWindowLong(Parent.Handle, GWL_STYLE) and not WS_CLIPCHILDREN);
end;
end;
procedure TRbsWiredEdit.RbsInvalidate(var Message:TMessage);
var r:TRect;
begin
if (Parent<>nil) and FTransparent then
begin
r:=ClientRect;
r.TopLeft:=Parent.ScreenToClient(ClientToScreen(r.TopLeft));
r.BottomRight:=Parent.ScreenToClient(ClientToScreen(r.BottomRight));
RedrawWindow(Handle,nil,0,RDW_FRAME+RDW_INVALIDATE);
end;
end;
procedure TRbsWiredEdit.CNCTLCOLOREDIT(var Message:TWMCTLCOLOREDIT);
begin
if FTransparent then
with Message do
begin
SetBkMode(ChildDC,Windows.TRANSPARENT);
Result:=GetStockObject(HOLLOW_BRUSH)
end
else inherited;
end;
procedure TRbsWiredEdit.WMEraseBkgnd(var Message:TWMERASEBKGND);
begin
if FTransparent and not (csDesigning in ComponentState) then
PostMessage(Handle,TWM_RbsInvalidate,0,0)
else inherited;
end;
procedure TRbsWiredEdit.WMMove(var message:TMessage);
begin
inherited;
if FTransparent then SendMessage(Handle,TWM_RbsInvalidate,0,0)
else Invalidate;
end;
procedure TRbsWiredEdit.CreateParams(var Params:TCreateParams);
begin
inherited CreateParams(Params);
if (CsDesigning in ComponentState) then exit;
with Params do
begin
ExStyle:=ExStyle or WS_EX_TRANSPARENT;
end;
end;
procedure TRbsWiredEdit.DoExit;
begin
inherited;
FTransparent:=true;
SetCursor(0);
RecreateWnd;
end;
procedure TRbsWiredEdit.DoEnter;
var exstyle,stdstyle:longint;
begin
inherited;
Ftransparent:=false;
StdStyle:= Windows.GetWindowLong(handle, GWL_EXSTYLE);
exStyle:= StdStyle and not WS_EX_TRANSPARENT;
Windows.SetWindowLong(handle, GWL_EXSTYLE, exStyle);
invalidate;
end;
procedure TRbsWiredEdit.Invalidate;
begin
if FTransparent then SendMessage(Handle,TWM_RbsInvalidate,0,0)
else inherited;
end;
procedure Register;
begin
RegisterComponents('Rombest', [TRbsWiredEdit]);
end;
end.