천객만래 [千客萬來] (It has an interminable succession of visitors)



박스안 리스트설정

- list-style-position : 글머리의 위치를 지정합니다.
-- outside : 외곽선 바깥쪽에 글머리를 배치합니다.
-- inside : 외곽선 안쪽에 글머리를 배치합니다.
- list-style-image : 항목 앞에 이미지를 넣습니다.
-- url() : 해당이미지의 url을 넣습니다.
-- none : 이미지를 표시하지 않습니다.





----------------------------------------------------------------------------------------



<html>
<head>
<style type="text/css">
<!--



ul#dot_border {
background-color : wihite;
margin : 10px;
border : 3px #40b0e0 dotted;
padding : 10px;
width : 130px;
}



ul {
list-style-position : inside;
list-style-image : url("http://cafefiles.naver.net/data15/2006/4/25/151/ico_star.gif");
color : green;
}



-->
</style>
</head>
<body>



<ul id="dot_border">
<li> clipboard
<li> cellbox
<li> workbook
<li> package
</ul>



</body>
</html>

Posted by SB패밀리

아래의 과정을 거치는 것 외에 특별한 것은 없음..

클립보드 이미지 데이터 -> 비트맵 -> JPEG






uses 에 Jpeg, ClipBrd 추가해야 함.


procedure SaveClipBoardPicture(ImgPath: String);

var

  Btm: TBitmap;

  Jpg: TJpegImage;


begin  

  Btm:=TBitmap.Create;

  Jpg:=TJpegImage.Create;

  try

      // 1. 클립보드 -> 비트맵

      Btm.Assign(ClipBoard);

      // 2. 비트맵 -> JPEG

      Jpg.Assign(Btm);


      // 압축퀄리티 설정

      Jpg.CompressionQuality:=50;

      // 파일로 저장

      Jpg.SaveToFile(ImgPath);

  finally

    FreeAndNil(Jpg);

    FreeAndNil(Btm);

  end;

end;

Posted by SB패밀리