농부지기

☞   

쪽지로 문의 하셔서 간단하게 올려 봅니다.

제목 그대로 mdi윈도를 따라다니도록 하는 스크립트

window open event에서 다음과 같이

//===========================================================

window lwin
hide()
post show()
lwin = ParentWindow()
if IsValid( lwin ) then
 Do While IsValid( lwin )
  if lwin.Windowtype = MDI! or lwin.Windowtype = MDIHelp! then
   exit
  end if
  lwin = lwin.ParentWindow()
 Loop
else
 This.center = true
end if
if IsValid( lwin ) then
 if lwin.width < This.width then
  This.x = lwin.x
 else
  This.x = lwin.x + ( ( lwin.width - This.width ) / 2 )
 end if
 if lwin.height < This.height then
  This.y = lwin.y
 else
  This.y = lwin.y + ( ( lwin.height - This.height ) / 2 )
 end if
end if

//===========================================================

이케하면 되고요

appeon에서는 테스트 안했습니다.

환경이 되시는분 테스트 부탁 합니다.

1. 자식창에서 종료할때
   CloseWithReturn(This, 넘길 데이타윈도우)
 

2. 호출한 부모창에서
   datawindow ldw
    자식창 호출
   Open(자식창)
   ldw = Message.PowerObjectParm

메뉴에서 "화면인쇄" 목록만들고

Click Event에 아래와 같이 넣으시면됩니다...

활성화된 윈도우만 A4  1/2 사이즈로 인쇄됩니다.

long Job
Job = PrintOpen( )
boolean bValid
window wSheet
wSheet = w_main.GetFirstSheet()
bValid = IsValid (wSheet)
if bValid then
wSheet.Print(Job, 1000,500, 6000,4500)
end if
PrintClose(Job)

파워빌더에서도 API함수를 이용하면 원하는 모양의 윈도우를 만들수 있습니다. 저도한번 해봤는데, 꽤 신기하네요 ~

1.Gloval External Function에 다음과 같이 선언

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

  Function long CreateEllipticRgn( long lX1, long lY1, long lX2, long lY2 ) Library "gdi32.dll"
  Function long SetWindowRgn( long lHandle, long lRgn, boolean bIsRedraw ) Library "user32.dll"
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
2.윈도우 open script에 작성

*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
Long hRgn
hRgn = CreateEllipticRgn( 0, 0, This.Width/5, This.Height /4)
SetWindowRgn( Handle( This ), hRgn, True )
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*
※ CreateEllipticRgn() 함수는 타원형 함수입니다.

기존의 딱딱하기만 한 네모 모양의 윈도우 형태를 떠나서 이렇게 시도해보는것도 재미있을 것 같네요.

디자인만 잘 한다면 괜찮은 걸 만들수도 있을 것 같아요. 예를 들면 아래 그림처럼...(하얀바탕이 네모라면.. 저런식으로 타원생성)

☞   

☞   

☞   메뉴 visible, non visible 처리

gw_main_win.MenuID.item[3].item[01].Visible = FALSE;
 

☞  OpenSheet

OpenSheet ( sheetrefvar {, windowtype }, mdiframe {, position {, arrangeopen } } )
- 메뉴 아이템들은 좌측부터 번호가 부여된답니다. 1 , 2, 3, ... 0, 마지막메뉴(보통 헬프)

OpenSheet(Child_1, MDI_User, 2, Original)
  - MDI Frame MDI_user내의 Sheet child_1을 원래 크기로 오픈한다.
  - 오픈된 Sheet의 이름은 메뉴바의 두번째 메뉴아이템에 추가된다.