작성일 : 09-04-01 17:51
|
[세상사는이야기] 기다리시던 DrLabel !!!!!!!!!
|
|
|
조회 : 8,083
|
기다리시던 DrLabel이 Upgrade되었습니다
일반 라벨 부터
여러줄 라벨
그리고 버튼 기능도 한방에 됩니다.
예제는 아래와 같습니다.
==== 아래 ===
DEFINE DIALOG oDlg RESOURCE "D_LABEL"
REDEFINE DRLABEL oLabel[1] ID 501 OF oDlg ACTION MsgInfo(1)
REDEFINE DRLABEL oLabel[2] ID 502 OF oDlg
REDEFINE DRLABEL oLabel[3] ID 503 OF oDlg
REDEFINE DRLABEL oLabel[4] ID 504 OF oDlg
REDEFINE DRLABEL oLabel[5] ID 505 OF oDlg
oLabel[5]:cCaption := "참고사항"+CRLF+"기타메모"+CRLF+"요약정보"
oLabel[5]:nLineClr2 := nRGB( 139, 151, 0)
REDEFINE DRLABEL oLabel[6] ID 506 OF oDlg ACTION MsgInfo("Save") RESOURCE "__TOOLS"
REDEFINE DRLABEL oLabel[7] ID 507 OF oDlg ACTION MsgInfo("Cancel") RESOURCE "__DELETE"
oLabel[6]:nLineClr2 := nRGB( 139, 80, 0)
oLabel[6]:nBackClr := nRGB( 255, 235, 215)
oLabel[7]:nLineClr2 := nRGB( 139, 80, 0)
oLabel[7]:nBackClr := nRGB( 255, 235, 215)
ACTIVATE DIALOG oDlg CENTER
|
|
 |
멋진 기능입니다.~~~
이제 다시 달려야 할 때인가 봅니다.~~~~ 이럇 !
그런데 색상 리스트를 알 수있는 방법은 없나요?
|
|
| |
|
|
RGB값을 넣으시면 됩니당~~~~
|
|
|
|
|
실장님!! 이제는 막 가시는군요...
|
|
|
|
아 글씨.... tDr3dText를 tDrLabel로 바꾸어 보려고 프로그램만 디따 수정하고 실행 시켰더니 어느놈은 잘되고 어느놈은 ID가 없다고 나오고.... 안될려면 안되던지 말던지.... 몇시간째 씨름하다 이젠 맛갔어 푸념하고 에러난다고 꼬리 달았다 ... 다이얼로그 ID나 고치자고 들어 갔는데... 어라 LABEL Class명이 tDr3dText로 있네. 에이 창피해 얼릉 꼬리글 지우러 갔더니 벌써 "실장님!!이제 막 가시는군요" 꼬리글 달렸네. 뭔소린지 잘 모르갔고....tDr3dText를 tDrLabel로 수정해야 할거 같은디... 이밤 너무 늦어 잠이나 자고 내일 다시 테스트 해봐아 쓰겄다.
근데 nLineClr2 기본값은 어디에 적혀 있나...
|
|
|
|
날이 샜다. 다시 도전해 보자고....
물론 화면이 복잡하다. 다이얼로그 위에 탭이 여러개 있고, 각각의 탭 위에 버튼들이 여러개 있다.
oDlg1 := oPages:aDialogs[1]
oDlg2 := oPages:aDialogs[2]
Tdr3dText():Redefine(501, oDlg1)로 잘써먹었는데 tDrLabel():Redefine(501, oDlg1)로 소스를 바꾸면 안된다.
다이얼로그 그리기에서 사용자버튼 크래스명을 tDrLabel로 바꾸어 놓고 해보아도 마찬가지다.
왜 Tdr3dText()는 되고 TdrLabel()은 안되냐고....
싸부 ....Tab위에 있는 다이얼로그에서는 안되는가벼... Help me !!!!
|
|
| |
|
=> ;
[ <oDrLabel> := ] TDrLabel():ReDefine( <nId>, <cResName1>, <cResName2>,;
<cBmpFile1>, <cBmpFile2>, <cMsg>, [{||<uAction>}],;
<oWnd>, <.adjust.>, <{uWhen}>, <.lUpdate.>, <cToolTip>,;
<cPrompt>, <oFont>, [<cResName3>], [<cBmpFile3>], [!<.lNoBorder.>],;
[ Upper(<(layout)>) ] )
|
|
|
|
잉... Tdr3dText와 어쩌고 해서리 살짝 고치려고 했더니....
아~~~ 나는 단순해..... DrLabel.ch 파일만 보았어도 되는데....
tDrLabel():Redefine(501, oDlg) 요렇게만 해도 되는놈들 때문에 속았당께.
일일이 REDEFINE DRLABEL 쓰는것도 귀찮고해서리 죽어라고 FOR~NEXT에서만 테스트하고...
이젠 컴마를 디따 찍어야겠구만....
FOR nI=1 To LEN(oLabel)
oLabel[nI] := tDrLabel():Redefine(500+nI, ,,,,,, oDlg1)
NEXT
음... 다이얼로그 그리기에서 사용자버튼 Class명을 tDrLabel로 안바꾸어도 잘 되는데 바꿀까 말까 바꿀까 말까...
|
|
| |
|
ㅋ
한번 배신은 때릴것 같은디유
save as로 *.rc로 바꾸신 다음에
text로 치환 해버리세요~
|
|
|
|
수고 했음당....
nLineClr2 의 기본 RGB좀 알려 주세용.
레코드 움직일때마다 중지자에 가면 빨강, 임시중지자는 초록색, 아니면 다시 기본으로 변하게 할려구요.
|
|
| |
|
nRGB( 229, 151, 0 )
가능한
끝자리가 0으로 하게 하세요~
|
|
|
|
화면은 뿌려지는데...... duplicate error 가 발생합니다. id 501......
어디를 손봐야 할지 막막합니다.~~~^^
|
|
| |
|
하하 고거이 프로그램 내에서 또 501을 REDEFINE 했다는 말씀인데....
OF oDlg를 잘못 사용하는 경우가 가장 많이 발생.
OF ::oDlg, OF oDlg1.... 등등으로 oDlg를 정확히 해 주었는지 확인할 필요가 있습니다.
|
|
|
|
ㅋ ReLabel 호출을 할 필요가 없는데 호출을 해서 발생한 에러였습니다. 사장님의 도움으로 해결을 봤습니다.~~
이젠 RGB색상표를 쉽게 찾아내서 사용할 수만 있으면 칼라풀한 화면 디자인이 가능할 것같습니다.~~~
저같은 그래픽 초보를 위한 색상표를 찾아봐야겠습니다.
찾는데로 필요한분이 계신다면 여기에도~~올려보겠습니다.
|
|
|
