|
5th
|
2004-06-08 11:43:26, 조회 : 3,006, 추천 : 503 |
( 전체 소스는 첨부된 파일을 참조해주세요. 부분적으로만 발췌해서 설명합니다. )
( [기초강좌 #12]에 소스 파일 첨부되었습니다. )
======================================================================
TList.scurl
[그림 #1]
: 목록이 많아지면 스크롤바가 생겨야하므로 TList 자체는 ScrollBox를 상속받아 스스로 ScrollBox의 속성을 가집니다. ScrollBox 위에 가져온 레코드의 개수만큼 세로로 Box들을 추가시켜야하므로 VBox를 만들어 올려놓습니다. ([그림 #1]의 초록색 표시). 하나의 VBox 내에는 가로로 Box들을 추가시켜야하므로 HBox를 올려놓습니다. ([그림 #1]의 빨간색 표시). HBox 내의 Box들은 더이상 Box들을 포함하지 않으므로 VBox를 사용하든 HBox를 사용하든 혹은 Frame을 사용하든 상관없습니다. ([그림 #1]의 파란색 표시)
아래는 start.curl에 작성된 call-back 프로시져입니다.
======================================================================
{TList
tr,
call-back={ proc {sender:any}: void
{wr.clear}
{wr.set-fields sender}
{wr.show-write-form}
}
}
======================================================================
{for x:int=0 below self.rv.size do
let reply:HBox={HBox}
{if self.rv[x]["flev"]!="0" then
{reply.add "└> "}
}
---------------------------------------------------------------------
: rv 에는 DB에서 가져온 데이터들이 들어있습니다. 데이터들의 개수만큼 Box들을 만들어 위의 그림처럼 만들 예정입니다. 데이터의 레벨값이 0 이 아니면 답변 글이라는 뜻이므로 화살표 기호를 표시하는 HBox를 만들어둡니다.
======================================================================
let readnum:VBox = {VBox
width=35px, halign="center",
self.rv[x]["freadnum"]
}
---------------------------------------------------------------------
: 조회수를 표시하는 VBox를 만들어 둡니다. 하위에 Box를 만들지 않을 경우는 HBox를 사용하는 VBox를 사용하든 상관없습니다.
* 참고 : HBox는 세로로 글자를 중간에 표시해주고, VBox는 가로로 글자를 중간에 표시해줍니다. 편한대로 사용하시면 됩니다.
======================================================================
{HBox
{Fill width=10px},
{Fill width=10px * {self.rv[x]["flev"].to-int}},
reply,
self.rv[x]["ftitle"]
}
---------------------------------------------------------------------
: 답변 글인 경우는 들여쓰기하여 표시되야합니다. 레벨값만큼 들여쓰기하고, 위에서 화살표기호를 만들어놓은 reply를 올려놓고, 옆에 제목을 올려놓습니다. 답변 글이 아니라면 들여쓰기 값은 0이 되고, reply에는 아무 표시도 되지 않을 것입니다.
======================================================================
{on PointerPress at vb:VBox do
{if self.rv[vb.user-data]["ftitle"] == "deleted" then
{popup-message "삭제된 글입니다."}
{return}
}
let result = {self.tr.update-readnum self.rv[vb.user-data]["fcode"] }
{readnum.clear}
{readnum.add result}
{self.call-back self.rv[vb.user-data]}
}
---------------------------------------------------------------------
: 제목이 삭제된 글-“deleted” 이라면 팝업창을 띄워 경고를 표시하고, 다시 원래의 자리로 반환시킵니다. 글 삭제를 실제로 DB에서 delete 시킨다면 이 경고문은 필요가 없어집니다.
글 목록을 클릭할때마다 클릭된 코드값을 update-readnum 메소드에 넘겨주면, 이 메소드는 조회수를 1 증가시키는 쿼리를 요청하고, 그 결과를 받습니다. 조회수가 표시되는 Box인 readnum만 지우고(화면 전체를 지울 필요는 없으니까요.), 조회수를 다시 표시합니다. 그러고나서, 클릭된 객체를 call-back 프로시져에 넘겨주면 call-back 프로시져는 TWrite 에 표시하는 작업을 수행합니다.
======================================================================
{link
href={url "mailto:" & self.rv[x]["fname"]},
{text
text-underline? = false,
color = "black",
{value self.rv[x]["fname"]}
}
}
---------------------------------------------------------------------
: 이름을 클릭하면 이메일로 연결시키는 작업입니다. 링크 된 부분에 밑줄이 안 보이는게 하기위해, text-underline? = false 옵션을 사용하였고, {text} 안에 변수명이 그대로 표시되는게 아니라 변수값이 표시되게 하기 위하여 {value} 를 사용합니다.
======================================================================
{if self.rv[x]["fupload"] != "" then
{link
href={url "http://localhost/study/xBoard_working/phpfile/xBoard.php?mode=file&fcode="&
self.rv[x]["fcode"]
},
{image
width=15px, height=18px,
source={url "image/file.jpg"}
}
}
else
"-"
}
---------------------------------------------------------------------
: 업로드된 파일이 있다면 파일을 연결시켜주는 작업을 합니다. get 방식으로 php문을 호출합니다. 인자로는 mode 값과 code 값을 넘겨줍니다. php문에서는 mode와 code값을 받아 해당되는 파일명을 찾아 넘겨줍니다.
다음 강좌에서 계속...
- 5th -
|
|
|
