언어/delphi 썸네일형 리스트형 Package의 폼을 메인 폼으로 출처: http://www.delmadang.com/community/bbs_print.asp?bbsNo=17&bbsCat=0&indx=196712 다음과 같은 어플을 고민하다가 발견하게 되었습니다. 1. 최초에 LOGIN 창이 뜬다. 2. LOGIN이 성공적으로 이루어지면 자동 업그레이드를 수행한다. 3. Main 폼이 뜬다.(예를 들면 MDI Form) 4. Main 폼이 세부 업무에 따라 창을 띄운다.(예를 들면 MDI Child) ------------------------------------------------------------ 중요한 점은 반드시 LOGIN이 이루어진 후에 자동 업그레이드가 수행되어야 하고 Main 폼 마저도 자동 업그레이드의 대상이 된다는 점입니다. ----------.. 더보기 TPaingBox Canvas to Bitmap 출처: http://delphidabbler.com/tips/152 How to save the canvas of a TPaintBox to a .bmp file var Bitmap: TBitmap; Source: TRect; Dest: TRect; begin Bitmap := TBitmap.Create; try with Bitmap do begin Width := MyPaintBox.Width; Height := MyPaintBox.Height; Dest := Rect(0, 0, Width, Height); end; with MyPaintBox do Source := Rect(0, 0, Width, Height); Bitmap.Canvas.CopyRect(Dest, MyPaintBox.Canvas, S.. 더보기 ZXing.Delphi (Reading QRCode) 출처: https://github.com/Spelt/ZXing.Delphi implementation uses vcl.imaging.pngImage, vcl.imaging.jpeg, ZXing.ReadResult, ZXing.BarCodeFormat, ZXing.ScanManager; {$R *.dfm} procedure TmainFrm.btnLoadFromFileClick(Sender: TObject); var ReadResult: TReadResult; ScanManager: TScanManager; bmp:VCL.Graphics.TBitmap; // just to be sure we are really using VCL bitmaps begin if not OpenDlg.Execute then ex.. 더보기 Delphi QR Code Generator(zxing) 출처: http://www.debenu.com/open-source/delphizxingqrcode/ DelphiZXingQRCode: Delphi QR Code GeneratorDelphiZXingQRCode is a Delphi port of the QR Code functionality in ZXing, an open source barcode image processing library. The code was ported to Delphi by Senior Debenu Developer, Kevin Newman. The port retains the original Apache License (v2.0).Need to add QR barcodes to PDFs? Check out Quick PD.. 더보기 퀀텀그리드 출처: http://eaglesoft.tistory.com/206 퀀텀그리드에서 컬럼을 클릭할때 나오는 Filter되는 내용만 뽑는방법.컬럼을 클릭해보면 아시겠지만 엑셀의 Filter처럼 나온다. var AValueList: TcxGridFilterValueList; I: Integer; begin AValueList := cxGrid1TableView1.ViewData.CreateFilterValueList; try cxGrid1TableView1Column1.DataBinding.GetFilterValues( AValueList , True, False, True); with ListBox1.Items do begin BeginUpdate; try for I := 0 to AValueList.Coun.. 더보기 계량관리 Eng 보호되어 있는 글입니다. 더보기 이전 1 2 3 다음
