삽질하는 프로그래머 통통만두의 판톼스틱한 삽질기

탐색기 같은 곳에서 파일을 Drag&Drop 하여 폼에 올리고 싶은 경우에는 아래와 같이 하면 된다. // uses 절에 ShellAPI 를 추가하고, FormCreate 같은 곳에 아래와 같은 코드를 추가한다. DragAcceptFiles(Handle, True); // 그리고 적당한 곳에 파일이 Drag&Drop 되었을 때 받을 이벤트를 추가한다. procedure WMDropFiles(var Msg: TMessage); message WM_DROPFILES; 위와 같은 작업이 반드시 선행되어져야 한다. procedure TForm1.WMDropFiles(var Msg: TMessage); var DropCnt : Integer; hDropFile : THandle; FileName : array[0..

var BMP : TBitmap; StoredUnits : TQRUnit; begin frmWT4107B0.Prepare; StoredUnits := frmWT4107B0.Units; frmWT4107B0.Units := Pixels; try for i := 1 to frmWT4107B0.QRPrinter.PageCount do begin BMP := TBitmap.Create; BMP.Width := Round(frmWT4107B0.Page.Width); BMP.Height := Round(frmWT4107B0.Page.Length); frmWT4107B0.QRPrinter.PageNumber := i; BMP.Canvas.Draw(0, 0, frmWT4107B0.QRPrinter.Page); BMP...

집에서의 개발환경은 아래와 같다. 데스크탑 : 윈도우7 64bit 프로페셔널 K, 델파이 2007, 델파이 2010 노트북 : 윈도우 XP 프로페셔널 SP3, 델파이 2007 그간 디버깅 할 때 아무런 문제가 없었는데 사무실 컴퓨터를 새걸로 바꿨다. 정확히 말하면 바꿔주셨다 ㅋㅋㅋ 환경은 윈도우 XP 홈에디션 + 델파이 2007 이다. 헌데 어느순간부터인지.. 첨부터 그랬는지는 모르겠지만, 자꾸 디버깅할 때 컴퓨터가 먹통이 되어버려서 전원을 껏다 켜야 했다. 아.. 정말 짜증난다. -_-; 이대로 도저히 안되겠다 싶어 검색을 해봤는데 역시나 방법이 있었다. "고급 텍스트 서비스 사용 안함" 에 체크를 해주고 적용을 한다. 하지만.. 저렇게 하면 정작 델파이에서 한글이 안먹힌다는;;; 어쨋든 저렇게 해서 ..

퀵리포트는 지속적으로 사용하던 것이 아니라 매 번 할 때마다 헷갈리거나 까먹는다 -_-; 그래서 찾아보던 것 중 정말 괜찮은 사이트를 발견했다. 아래의 출처에서 확인하시라~~ 출처 : http://www.delphiunion.com/dwp/QR/qreport.htm

블로그 스킨을 변경해버렸더니 기존에 적용해놨던 syntaxhighlight 가 날라가 버렸다 ㅋㅋㅋㅋ syntaxhighlight 버전이 오래전것이라서 바꿀까 하다가 귀찮아서 놔두고 있었는데 이참에 잘됐다 -_-; 이 참에 포스팅으로 남겨서 다음에 스킨을 변경해도 어리버리안까고 적용할 수 있게 해야겠다. 먼저 아래의 파일을 다운받는다. 압축을 풀고 이 중에서 scripts, styles 폴더를 [스킨-HTML/CSS 편집] 에 파일업로드를 해버린다. 그 다음에 HTML/CSS 편집창으로 와서 아랫도리에 다음과 같은 코드를 추가한다. 이러면 적용 끝났다. 사용법은

procedure Tfrm_Main.proSetInstallInfo; var Reg : TRegistry; begin Reg := TRegistry.Create; try try Reg.RootKey := HKEY_LOCAL_MACHINE; Reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Uninstall\hPop', True); Reg.WriteString('Displayname', 'hPop'); Reg.WriteString('UninstallString', '"' + ExtractFileDir(hPopExe) + '\hPopUnInstall.exe' + '"'); except // end; finally FreeAndNil(Reg); end; end;..

그리 많은 시간은 아니지만 이 문제로 인해 상당한 시간을 투자해서 찾아보았는데, 정공법으로 속 시원한 해결방법이 없었다. 뭐 디지털 서명을 하고 게시자를 명확히 하면 어떨지 모르겠지만(테스트는 안해봄).. 아래와 같은 방법으로 해결을 봤다. ShellExecute(Handle, 'open', 'cmd.exe', PChar('/C schtasks /create /sc onlogon /tn "hPop" /tr "' + hPopExe + '"'), nil, 0); 작업스케쥴러에 윈도우에 로그인할 때 실행시키는 스크립트를 실행하는 것이다. 자세한 것은 schtasks /? 해서 확인바라며 cmd.exe 의 파라미터에 /C 로 시작하는 것은, 저 스크립트를 실행 후 종료한다. 이것 역시 cmd /? 로 확인할 수..

출처 : http://loved.pe.kr/836

uses QRExport procedure TForm1.Button2Click(Sender: TObject); var EP : TQRHTMLDocumentFilter; begin EP := TQRHTMLDocumentFilter.Create('d:\test.html'); try Form2.QuickRep1.ExportToFilter(EP); finally FreeAndNil(EP); end; end; Others : HTML : TQRHTMLDocumentFilter ASCII : TQRAsciiExportFilter CSV : TQRCSVFilter Pro : RTF : TQRRTFExportFilter WMF : TQRWMFExportFilter Excel : TQRXLSFilter 출처 : http..

procedure TForm3.FormClose(Sender: TObject; var Action: TCloseAction); begin AnimateWindow(Self.Handle, 1000, AW_HIDE or AW_BLEND); end; procedure TForm3.FormShow(Sender: TObject); begin AnimateWindow(Self.Handle, 1000, AW_ACTIVATE or AW_BLEND); end; 출처 : http://delphi.borlandforum.com/impboard/impboard.dll?action=read&db=del_tip&no=264

// 날짜 FieldByName('FIELD').EditMask := '9999-99-99;0;'; // 통화량 (uses DB) TNumericField(FieldByName('FIELD')).DisplayFormat := '#,###';

// 핫키 설정 FormCreate 이벤트 RegisterHotKey(Handle, WM_USER + 1, MOD_CONTROL, Ord('1')); RegisterHotKey(Handle, WM_USER + 2, MOD_CONTROL, Ord('2')); RegisterHotKey(Handle, WM_USER + 3, MOD_CONTROL, Ord('3')); RegisterHotKey(Handle, WM_USER + 4, MOD_CONTROL, Ord('4')); RegisterHotKey(Handle, WM_USER + 5, MOD_CONTROL, Ord('5')); RegisterHotKey(Handle, WM_USER + 6, MOD_CONTROL, Ord('6')); RegisterHotKey..

// 이전 컨트롤 Shift + Tab PostMessage(Handle, WM_NEXTDLGCTL, 1, 0); // 다음 컨트롤 Tab PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Edit5: TEdit; Edit6: TEdit; Edit7: TEdit; Edit8: TEdit; Edit9: TEdit; Edit10: TEdit; Edit11: TEdit; Edit12: TEdit; Edit13: TEdit; Edit14: TEdit; Edit15: TEdit; Edit16: TEdit; Edit17: TEdit; Edit..

Procedure Tfrm_Main.SleepProc(milisecond : DWORD); var maxloop : Integer; iindex : integer; begin maxloop := (milisecond div 50)+(milisecond mod 50); for iindex := 1 to maxloop do begin if Application.Terminated then begin Break; Exit; Application.Terminate; end; Sleep(50); Application.ProcessMessages; end; end; TWebBrowser 사용시 sleep를 호출했을 때, 만약 페이지 로딩중이었다면 TWebBrowser까지 먹통이 되어버린다. 위의 함수는 델마당 홈페..