본문 바로가기

Application179

비베의 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.
Treeview 에 배경 이미지 넣기 OnCustomDraw 이벤트와 OnCustomDrawItem에벤트를 이용해서 직접 그려줘야 합니다. 배경만 그리는 거면 별 일 아닌데 배경이 그려지면 Item이 그려지는 영역은 그림이 지워집니다. 따라서 버튼, 이미지 및 Text를 일일이 그려줘야 하는 노가다 작업이 필요합니다. 다음 코드는 델파이 헬프에 있는 내용인데 제가 테스트를 하느라고 많이 생략 혹은 수정했습니다. 이미지는 이미지 콤포에 그림을 아무거나 (반드시 BMP파일일 것) 올리시고 컴파일하면 대충 동작하는 모습을 볼 수 있습니다. 이걸 약간만 더 응용, 보완하면 완벽하게 동작하는 나만의 TreeView를 만들수 있습니다. procedure TForm1.TreeView1CustomDraw(Sender: TCustomTreeView; con.. 2008. 7. 24.

티스토리툴바