지병철의 주저리 주저리

Provider=Microsoft.ACE.OLEDB.12.0;Data source=C:\Users\Gord\Desktop\Database1.accdb;

http://www.sysnet.pe.kr/2/0/1036

http://fendee.egloos.com/2230168

exceltodelphi.pdf

procedure TForm1.AntiAlias; const ZOOM = 16; var Bmp: TBitmap; StretchMode: Integer; begin Bmp := TBitmap.Create; // create a large bitmap and set coordinate extents accordingly Bmp.SetSize(qrimage1.clientwidth * ZOOM, qrimage1.ClientHeight * ZOOM); SetMapMode(Bmp.Canvas.Handle, MM_ISOTROPIC); SetWindowExtEx(Bmp.Canvas.Handle, 100, 100, nil); SetViewportExtEx(Bmp.Canvas.Handle..

Here is one of the ways to get there: varF: Single;I, V: Integer;beginfor I := 0 to 255 dobeginF := I / 255; // Scale to 0..1 rangeF := Power(F, GAMMA); // GammaF := (F - 0.5) * (1 + CONTRAST) + 0.5; // ContrastF := F + BRIGHTNESS; // BrightnessV := Round(F * 255); // Scale to 0..255 rangeif V < 0 then V := 0else if V > 255 then V := 255; // Clip to 0..255 rangeLUT[I] :=..

[펌] 델파이 객체지향프로그래밍을 위한 20가지 규칙Programming 2010/08/08 20:02출처: http://www.delmadang.com/community/bbs_view.asp?bbsNo=3&bbsCat=42&indx=196668&keyword1=20가지&keyword2=소백촌닭 (손님) 2004-10-27 오후 5:13:04카테고리:팁 5394회 조회 한의원 아저씨로부터 부탁이 있어서 번역을 하게 되었습니다. 번역..

[펌] 델파이 클래스(Class) Delphi 2005/07/07 00:19 http://nsj0409.blog.me/20014525096 큰꼼 (네이버 블로그) | 큰꼼 http://blog.naver.com/vicbea19/100001463687당시 게시판이 텝문자 지원이 안되서 소스코드의 들여쓰기가 안되있는게 좀 그렇긴 하지만, 쉬운 코드들이니 차근히 보시면 되리라 생각이 된다. 그럼 강..

procedure TForm8.cxTextEdit2KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin case Key of VK_UP: begin PostMessage(GetParentForm(self).Handle, wm_NextDlgCtl, 1, 0); Key := 0; end; VK_DOWN: begin PostMessage(GetParentForm(self).Handle, wm_NextDlgCtl, 0, 0); Key := 0; end; VK_RETURN: begin PostMessage(GetParentForm(self).Handle, wm_NextDlgCtl, 0, 0); K..