프로그래밍 노트

procedure TForm1.Button1Click(Sender: TObject); var i, j : integer; begin SetLength(bbb, 3, 2); for i := low(bbb) to high(bbb) do begin for j := low(bbb[i]) to High(bbb[i]) do begin bbb[i,j] := TButton.Create(nil); bbb[i,j].parent := self; bbb[i,j].Width := 10; bbb[i,j].Height := 20; bbb[i,j].Top := 30 * i; bbb[i,j].Left := 20 * j + bbb[i,j].Width; end; end; for i := low(bbb) to high(bbb) do beg..

원본소스 링크 : Torry's Delphi Pages unit RVButton; interface uses SysUtils, Classes, Controls, Messages, Graphics, Windows; const iOffset = 3; type TRVButton = class(TGraphicControl) private FCaption : string; FButtonColor: TColor; FLButtonDown: boolean; FBtnPoints : array[1..2] of TPoint; FKRgn : HRgn; procedure SetCaption(Value: string); procedure SetButtonColor(Value: TColor); procedure FreeRegion..

bmp의 지정한 색을 투명하게 그리는 소스 procedure TForm1.DrawOpaque0Bmp(Cnvs: TCanvas; bmpSource: TBitmap; x, y: integer; clTransparent: TColor); var width, height : integer; clPrevColor: TColor; tpBmpSize : TPOINT; bmpInfo : BITMAP; hSourceBmp : HBitmap; hdcTarget, hdcSource : HDC; bmAndMask, bmAndObject, bmAndMem, bmWork : HBITMAP; bmMaskOld, bmObjectOld, bmMemOld, bmWorkOld : HBITMAP; hdcMask, hdcObject, hdc..

procedure DrawTransparentBmp(Cnv: TCanvas; x,y: Integer; Bmp: TBitmap; clTransparent: TColor); var bmpXOR, bmpAND, bmpINVAND, bmpTarget: TBitmap; oldcol: Longint; begin try bmpAND := TBitmap.Create; bmpAND.Width := Bmp.Width; bmpAND.Height := Bmp.Height; bmpAND.Monochrome := True; oldcol := SetBkColor(Bmp.Canvas.Handle, ColorToRGB(clTransparent)); BitBlt(bmpAND.Canvas.Handle, 0,0,Bmp.Width,Bmp.H..

델파이에서 TBitmap.Create에서 Undeclared identifier 에러가 뜰때가 있다. E2003 Undeclared identifier: 'Create' 이럴 때는 간단하게 해결할 수 있다. Bitmap: Graphics.TBitmap; 위와 같이 변수형을 선언해 주면된다. 위와 같이 쓰지 않으면 아래의 윈도우즈에 있는 Bitmap형을 인식하는 것같다. Bitmap: Windows.TBitmap;

컴포넌트에 속해 있는 컴포넌트 수 구하는 방법 procedure TForm1.Panel1Click(Sender: TObject); var i : integer; pnlSender : TPanel absolute Sender; begin // 클릭한 패널의 부모가 가지고 있는 자식들의 수 for i := 0 to pnlSender.Parent.ControlCount - 1 do begin // 컨트롤이 TPanel인가? if (pnlSender.Parent.controls[i] is TPanel) then TLabel(pnlSender.Parent.Controls[i]).Color := clBtnFace; end; pnlSender.Color := clBlue; end; 이렇게 하면 어떤 컴포넌트 안에 속..

[Pascal Warning] uAAA.pas(12): W1005 Unit 'FileCtrl' is specific to a platform 요즘 FileCtrl를 쓰는 사람이 별로 없겠지만 혹시라도 쓰는 사람이 있으면 이런 메세지가 뜬다. 이 메세지를 안뜨게 하려면 아래와 같은 코드를 넣어주면 된다. uses {$WARN UNIT_PLATFORM OFF} FileCtrl; {$WARN UNIT_PLATFORM ON}

문자열 배열의 정렬 소스 var arSort: array[1..12] of string = ('d','e','f','a','b','c','h','a','i','j','k','l'); procedure TForm1.Button1Click(Sender: TObject); var sLst: string; iIdx: Integer; bSortingEnd: Boolean; bChange: boolean; i : integer; begin Listbox1.Clear; repeat bSortingEnd := False; iIdx := 1; repeat bChange := false; if checkbox1.Checked then begin // 내림차순(c, b, a ...) if CompareStr(arSort[i..

◆ 델파이에서 TComport 설치하기 01) TComport 소스를 다운 받아 적당한 폴더에 설치한다. C:\Program Files\Borland\BDS\4.0\lib\cportu 개인적으로 위의 폴더에 풀어두었다. 02) Delphi를 실행한구 CportLibX.dbk를 연다.(최신 버전을 선택한다.) 03) CportLibX.dpk 열면 CportLibX.bpl이 Project Manager에 표시된다. 그러면 CportLibX를 오른쪽 클릭하면 아래의 그림과 같이 팝업메뉴가 표시되고 거기서 Compile을 클릭한다. 04) 그리고 델파이에서 다시 DsgnCPortX.dpk를 연다. 05) 그러면 DsGnCportX.bpl이 Project Manager에 표시된다. DsgnCportX.bpl에서 ..

Indy 컴포넌트를 사용하면서 아래 구문으로 메모리 리크 체크를 할 경우 ReportMemoryLeaksOnShutdown := True; 프로그램을 종료할 때 아래의 메시지박스가 반드시 뜬다. 이것을 잡으려고 하루종일 해멨다. 인터넷에서 열심히 찾고 찾았다. 내 개발 환경은 Delphi 2006이 깔려 있고 indy10이 기본으로 설치되어있었다. 참고링크 Embarcadero Discussion Forums IndyRegisterExpected ... Embarcadero Discussion Forums IDFREEONFINAL ... 문제해결하는 방법을 위 사이트에 씌여있는데 결론은 아주 간단했다. Indy10의 최신 버전을 설치하기만 하면 위 메모리 리크의 문제는 해결된다. 하루종일 고민했던것의 너..