지병철의 주저리 주저리

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] :=..

QL Server Express 백업 스케쥴링 설정하기 ( 배치파일 - "sqlcmd"로 MS SQL 백업하기 )2013.06.11 18:29 kay조회 수:859 Express 버전의 경우 서버 에이젼트가 설치되지 않아 작업스케쥴링을 설정하는것이 불가능합니다.. 그래서 배치파일("sqlcmd")과 프로시져를 이용한 백업 스크립트를 작성하고 윈도우 스..

SQL Express and remote connectionsTCP/IP is disable when you first install SQL Server Express on any machine. This KB article discusses how to enable TCP/IP the TCP/IP protocol and use an ODBC driver to connect to SQL Server Express. For demonstration purposes we will be using the following tools:SQL Server Express 2008SQL Server ODBC driverWinSQL as an ODBC clientIMPORTANT: T..

버전에 따라 다음과 같습니다. SQL Server Express 2005 - 4GBSQL Server Express 2008 - 10GBSQL Server Express 2012 - 10GB

ret := @Prompt([OkCancelEdit];"입력"; "변경할 값을 입력하세요";@GetField(FieldName)); @If(ret = ""; @Return(""); ""); @SetField(FieldName; ret); @SetField("문서번호"; Header + "-" + ret);

에이전트를 만들어 내용에 @Command([ToolsRefreshSelectedDocs]) 를 넣고, 에이전트 속성 '런타임'에서 '수행 메뉴 선택' 대상을 '없음'으로 하니 잘 되었다. 아래와 같이 하니 제대로 계산 필드가 재계산 되지 못했다. (using Computewithform) Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim collecti..

Sub Initialize On Error GoTo errHandle Dim session As New NotesSession Dim db As NotesDatabase Dim collection As NotesDocumentCollection Dim doc As NotesDocument Dim num$, FunctionNumber$, approver$, apprdate$, requester$, subject$ Set db = session.CurrentDatabase Set collection = db.UnprocessedDocuments Set doc = collection.GetFirstDocument() While Not(doc Is Nothing) num$ = CStr(getLastNum) nu..