캡션바 마우스 다운 효과를 줄 컨트롤의 MouseDown 이벤트에 아래 코드 추가
ReleaseCapture;
SendMessage(Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);
no pain, no gain..
kkuzil.own@gmail.com
93 Entries : Results for Development
- Posted
- Filed under Development/Delphi
- Tag 팁
- Response
- You can track responses via RSS / ATOM feed
- Posted
- Filed under Development/etc.
갤럭시 알파를 사용하는데, 아무리 찾아보아도 "S파인더", "퀵 커넥트"를 알림창에서 제거 하는 방법을 찾지 못했다..
그래서 알아 봤는데... 순성상태에서는 갤럭시 노트4부터 이 기능을 제거 하는게 생긴거 같다...
아.. 뭐지? 나름 삼성에서 요구사항 받아들여서 관련 알림창에 넣은 기능을 on/off 한거 같은데..
왜 노트4 밑으로는 없는건가... 참.. 짜증나는 상황이다..
그래서 알아본 결과 일반적인 환경에서는 할 수 없고 루팅이된 상태에서!!
/system/etc/permissions/com.sec.feature.findo.xml
위 파일을 삭제 또는 "확장자"를 변경 후 재부팅을 하면 해결된다 (출처 - 맛클 사이트 팁)
끝.
그래서 알아 봤는데... 순성상태에서는 갤럭시 노트4부터 이 기능을 제거 하는게 생긴거 같다...
아.. 뭐지? 나름 삼성에서 요구사항 받아들여서 관련 알림창에 넣은 기능을 on/off 한거 같은데..
왜 노트4 밑으로는 없는건가... 참.. 짜증나는 상황이다..
그래서 알아본 결과 일반적인 환경에서는 할 수 없고 루팅이된 상태에서!!
/system/etc/permissions/com.sec.feature.findo.xml
위 파일을 삭제 또는 "확장자"를 변경 후 재부팅을 하면 해결된다 (출처 - 맛클 사이트 팁)
끝.
- Tag 갤럭시
- Response
- You can track responses via RSS / ATOM feed
- Posted
- Filed under Development/Delphi
Ctrl + Alt + . : 주석으로 변경
Ctrl + Alt + , : 주석 해제
Ctrl + Alt + U : uses 로 이동 한번 더 누르면 interface uses로 이동 한번도 누르면 최초 제자리로 이동
Ctrl + Shift + V : 해당 프로시저의 var로 이동 한번 더 누르면 최초 제자리로 이동
Ctrl + Alt + O : 최근 열어본 파일 확인 및 열기
Ctrl + Alt + , : 주석 해제
Ctrl + Alt + U : uses 로 이동 한번 더 누르면 interface uses로 이동 한번도 누르면 최초 제자리로 이동
Ctrl + Shift + V : 해당 프로시저의 var로 이동 한번 더 누르면 최초 제자리로 이동
Ctrl + Alt + O : 최근 열어본 파일 확인 및 열기
- Response
- You can track responses via RSS / ATOM feed
- Posted
- Filed under Development/Delphi
델파이 바로가기(.lnk) 속성으로 들어가서 "-np" 파라메터를 추가 해주면 된다.
끝.
끝.
- Response
- You can track responses via RSS / ATOM feed
- Posted
- Filed under Development/Delphi
TScrollBox 에서는 기본적으로 마우스 휠이 적용이 안된다.
그래서 적용하는 방법은...
TScrollBox을 품고 있는 폼의 MouseWheel 이벤트에
if WheelDelta >= 0 then
SendMessage(scBox.Handle, WM_VSCROLL, SB_LINELEFT, 0)
else
SendMessage(scBox.Handle, WM_VSCROLL, SB_LINERIGHT, 0);
Handled := True;
을 하면 되는데, 다른 컨트롤에 스크롤이 있는경우 모든 스크롤 이벤트를 가로체서 해당 컨트롤에 까지 닫지 않는다.
WindowFromPoint(p: TPoint) 를 이용해서 마우스 커서에 올려져 있는 컨트롤이 TScrollBox인지 스크롤 다른건지 확인해서 넘겨준다.
그래서 적용하는 방법은...
TScrollBox을 품고 있는 폼의 MouseWheel 이벤트에
if WheelDelta >= 0 then
SendMessage(scBox.Handle, WM_VSCROLL, SB_LINELEFT, 0)
else
SendMessage(scBox.Handle, WM_VSCROLL, SB_LINERIGHT, 0);
Handled := True;
을 하면 되는데, 다른 컨트롤에 스크롤이 있는경우 모든 스크롤 이벤트를 가로체서 해당 컨트롤에 까지 닫지 않는다.
WindowFromPoint(p: TPoint) 를 이용해서 마우스 커서에 올려져 있는 컨트롤이 TScrollBox인지 스크롤 다른건지 확인해서 넘겨준다.
procedure TForm1.Form1MouseWheel(Sender: TObject;
var Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
var Handled: Boolean);
h: HWND;
if (h <> vtProc.Handle) and (h <> vtList.Handle) then
if WheelDelta >= 0 then
begin
h := WindowFromPoint(MousePos);
if (h <> vtProc.Handle) and (h <> vtList.Handle) then
h := scBox.Handle;
if WheelDelta >= 0 then
SendMessage(h, WM_VSCROLL, SB_LINELEFT, 0)
else
SendMessage(h, WM_VSCROLL, SB_LINERIGHT, 0); Handled := True;
end;
이런식으로 폼 MouseWheel 이벤트에 추가해주면 장점이 있는데,
스크롤 할 컨트롤을 굳이 클릭해서 포커스를 주지 않아도 마우스 휠만으로 스크롤이 가능하다는 것이다.
끝.
- Response
- You can track responses via RSS / ATOM feed