본문 바로가기

Application/Delphi Lecture126

QuickReport (퀵리포트) 설치 메뉴에 Component -> Install Packages.... [$델파이]/bin/dclqrt70.bpl 델파이에 기본 제공 3.0.5 버젼이다. 2008. 8. 13.
전월, 다음월 등등 계산하기 procedure TForm1.FormShow(Sender: TObject); var wDate : TDateTime; y,m,d : word; begin wDate := now; //현재일자 //wDate := StrToDate(FormatMaskText('0000-00-00;0', '20061215')); //테스트특정일자 //wDate := StrToDate(FormatMaskText('0000-00-00;0', '20070401')); //테스트특정일자 DecodeDate(wDate,y,m,d); Label1.Caption := formatDateTime('yyyymmdd',wDate); MaskEdit1.text := formatDateTime('yyyymmdd',IncMonth(wdate,1).. 2008. 8. 13.
TbuboPower ShellStock 1.02 기존 델파이에서 제공하는 llTreeView 의 버그가 많다. 예전에 상용이었지만 회사의 부도로 인해 오픈 소스 되었다. TbuboPower ShellStock 1.02 http://sourceforge.net/projects/tpshellshock 2008. 8. 13.
drawgrid 에 그림 그리기. var a:TRect; begin a:=DrawCell.CellRect( ACol,ARow ); DrawCell.Canvas.Draw(a.left,a.top,Bitmap); end; if (ACol =0) and (ARow > 0) and (Cells[0, ARow]'') then begin Try CarStateBitmap := TBitmap.Create ; ImageList1.GetBitmap (StrToInt(Cells[0,ARow]), CarStateBitmap); Canvas.FillRect (Rect); nBitmapLeft := Trunc(Rect.Left + ((Rect.Right - Rect.Left)/2) - (CarStateBitmap.Width /2)); Canvas.Draw(nBi.. 2008. 8. 13.

티스토리툴바