프로그래밍 노트

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; Type // 이벤트 핸들러 생성 TMy1stEvent = procedure(PrvValue, CurValue: integer) of object; // 값 변경 감시 클래스 정의 [사용자 이벤트 정의] TWatchChangeValue = class private FOnChangeVal : TMy1stEvent; public procedure ChangeValue(PrvValue, CurValue: integer); published property OnChangeValue : TMy1stE..

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; 이렇게 하면 어떤 컴포넌트 안에 속..

문자열 배열의 정렬 소스 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를 재설치하려면 먼저 Indy사이트에 간다. Indy 설치 환경 : Delphi 2006 환경에서의 설치 http://www.indyproject.org/ : Indy 사이트 ■ 최신판 Indy Download Indy 사이트에 첫페이지에서 아래 링크를 클릭하면 델파이 관련 컴포넌트를 받을 수 있는 곳으로 들어간다. Indy.Sockets (VCL) 위 페이지의 맨밑에 보면 [Downloads]가 나오고 거기를 클릭하면 몇가지 버전이 나온다. 여기서는 버전 10을 클릭한다. [Development Snapshot]을 선택한다. 밑의 사이트에 가면 최신판을 업데이트 한다고 한다. indy.Fulgan.com/zip/ 위 사이트에서 indy10.zip을 다운 받는다. 위사이트에서 받지않으면 SubVe..