본문 바로가기

분류 전체보기590

이미지 프린트 하기 이번에 올리는 자료는 지난번 이미지 프린트에대한 소스를 조금 수정했습니다... 바뀐부분만 간단히 설명드리겠습니다. 우선 Parameter가 추가 되었습니다... 만일 아래와 같이 호출한다면 ImagePrint(30, //용지에서 왼쪽의 기본 여백을 30mm로 한다는 것입니다. image1, //요건 그냥 TImage Object입니다. 50, //이미지를 용지에 출력할때 용지상의 폭입니다. //단위는 mm이구요.. 80, //요건 길이 입니다. False); //Stretching시 이미지 기준이면 True입니다. 별거 아니지만 고마움의 표시로 생각해 주세요.... procedure ImagePrint(tX: Integer; Ti: TImage; pX, pY: Integer; Balances: Boole.. 2008. 7. 24.
비베의 split 함수 구현 procedure THttpControler.split(separator, Content: string; Strings: TStringList); var i: integer; position: integer; sepa_leng: integer; item: string; sepa_content: string; begin position := 0; sepa_leng := length(separator); sepa_content := Content; Strings.BeginUpdate; try i := Pos(separator, sepa_content); while i > 0 do begin item := copy(sepa_content,position, i-1); sepa_content := copy(sep.. 2008. 7. 24.
볼륨 조절 해결했습니다. uses절에 MMSystem 추가하고 procedure TfmMain.SetVol(new_volume: DWORD); //웨이브볼륨크기변경 begin new_volume := MAKEWPARAM(new_volume, new_volume); waveOutSetVolume(0, new_volume); end; // 현재 볼륨크기를 basic_volume 변수에 저장하기 waveOutGetVolume(0, @basic_volume); //MMSystem 함수 2008. 7. 24.
Treeview 색상 바꾸기 procedure TForm1.TreeView1CustomDrawItem(Sender: TCustomTreeView; Node: TTreeNode; State: TCustomDrawState; var DefaultDraw: Boolean); var DC: HDC; OldFont: HFont; rtNode: TRect; i:integer; begin //주석을 풀면 선택된 노드의 색상이 변경된다. //if cdsSelected in State then begin { for i:=0 to spSkinTreeView1.Items.Count -1 do begin DC := GetDC(Node.Handle); oldFont := SelectObject(DC, TreeView1.Font.Handle); if (i=.. 2008. 7. 24.

티스토리툴바