프로그램 관련 Archives - 12 중 2 번째 페이지

퀀텀 스킨을 사용할때 MessageDLG를 스킨 적용하기…

보통은 CreateMessageDialog함수를 써서 MessageDLG를 재정의한뒤 사용합니다. 조금 귀찮지요. 자 각설하고 아래와 같이 초기에 선언한뒤에 사용합니다. 모든 MessageDlg 가 스킨이 적용됩니다. Dialogs.UseLatestCommonDialogs := false; 휘발성 메모리로 인한…

DevExpress사의 퀀텀그리드중 TcxImageComboBox 사용하기

TcxImageComboBox는 ComboBox를 대체할수 있는 훌륭한 컴포넌트입니다. TcxImageComboBox는 사용법이 일반 ComboBox와 비슷하지만 몇가지 장점이 존재 합니다. 1. 콤보에 ImageList와 연결하여 이미지를 그릴 수 있습니다. 2. 실제 value값과 화면에…

1.리본메뉴 사용하기

리본메뉴의 특징 1. MS 계열의 라이센스형식을 따릅니다. 2. 보기 좋고 직관적입니다. 3. 메뉴를 다양한 방법으로 응용 가능합니다.( 입력/수정/표시/광고 ) 시작… RibbonBar는 TdxBarManager를 사용해야만 합니다. 따라서 폼에 TdxBarManager를…

델파이 기본 Hash를 이용한 MD5 파일 Check입니다.

Uses idHash, IdHashMessageDigest;

function MD5(const fileName : string) : string;
 var
   idmd5 : TIdHashMessageDigest5;
   fs : TFileStream;
   hash : T4x4LongWordRecord;
 begin
   idmd5 := TIdHashMessageDigest5.Create;
   fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;
   try
     result := idmd5.HashStreamAsHex( fs ) ;
   finally
     fs.Free;
     idmd5.Free;
   end;
 end;
var
  s : String;
  c : integer;
begin
  if OpenDialog1.Execute( handle ) then
  begin
    c := GetTickCount;
    S :=  Md5( OpenDialog1.FileName );
    c := GetTickCount - c;
    Memo1.Lines.Add( intToStr( C ) + ' : ' + S );
  end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

Uses idHash, IdHashMessageDigest;

function MD5(const fileName : string) : string;

var

idmd5 : TIdHashMessageDigest5;

fs : TFileStream;

hash : T4x4LongWordRecord;

begin

idmd5 := TIdHashMessageDigest5.Create;

fs := TFileStream.Create(fileName, fmOpenRead OR fmShareDenyWrite) ;

try

result := idmd5.HashStreamAsHex( fs ) ;

finally

fs.Free;

idmd5.Free;

end;

var

s : String;

c : integer;

begin

if OpenDialog1.Execute( handle ) then

begin

c := GetTickCount;

S := Md5( OpenDialog1.FileName );

c := GetTickCount - c;

Memo1.Lines.Add( intToStr( C ) + ' : ' + S );

end;

TcxTreeList의 추가 삭제 부분입니다.

procedure TForm1.버튼_추가Click(Sender: TObject);
  Procedure 추가( N : TcxTreeListNode );
  begin
      With  N.AddChild do
      begin
        Values[ cxTreeList1Column1.ItemIndex ] := N.AbsoluteIndex;
        Values[ cxTreeList1Column2.ItemIndex ] := cxTextEdit1.Text;

      end;
      N.root.Expand( True );

  end;
begin
  if cxTreeList1.AbsoluteCount > 0 then
  begin
    if Assigned( cxTreeList1.FocusedNode ) then
      추가( cxTreeList1.FocusedNode )
    else
      추가( cxTreeList1.Root );
  end
  else
  begin
    추가( cxTreeList1.Root );
  end;

//  cxTreeList1.FullExpand;
end;

procedure TForm1.버튼_삭제Click(Sender: TObject);
begin
  if Assigned( cxTreeList1.FocusedNode ) then
    cxTreeList1.FocusedNode.Delete

end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

procedure TForm1.버튼_추가Click(Sender: TObject);

Procedure 추가( N : TcxTreeListNode );

begin

With N.AddChild do

begin

Values[ cxTreeList1Column1.ItemIndex ] := N.AbsoluteIndex;

Values[ cxTreeList1Column2.ItemIndex ] := cxTextEdit1.Text;

end;

N.root.Expand( True );

end;

begin

if cxTreeList1.AbsoluteCount > 0 then

begin

if Assigned( cxTreeList1.FocusedNode ) then

추가( cxTreeList1.FocusedNode )

else

추가( cxTreeList1.Root );

end

else

begin

추가( cxTreeList1.Root );

end;

// cxTreeList1.FullExpand;

end;

procedure TForm1.버튼_삭제Click(Sender: TObject);

begin

if Assigned( cxTreeList1.FocusedNode ) then

cxTreeList1.FocusedNode.Delete

end;

참고만 하시길..

컬럼에 이미지 넣기.

퀀텀그리드의 특정 컬럼에 이미지를 넣는 방법.

procedure TForm1.Button2Click(Sender: TObject);
var
  P : TStringStream;
begin

  cxGrid1TableView1.DataController.RecordCount := 10;

  if OpenPictureDialog1.Execute then
  begin
    cxGrid1TableView1Column4.DataBinding.ValueType:= 'Variant';
    cxGrid1TableView1Column4.PropertiesClassName := 'TcxImageProperties';
    TcxImageProperties( cxGrid1TableView1Column4.Properties ).GraphicClassName := 'TdxSmartImage';
    try
      P := TStringStream.Create;
      P.LoadFromFile( OpenPictureDialog1.FileName );
      cxGrid1TableView1.DataController.Values[ 1, cxGrid1TableView1Column4.Index ] := P.Bytes;
    finally
      P.Free;
    end;

  end;


end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

procedure TForm1.Button2Click(Sender: TObject);

var

P : TStringStream;

begin

cxGrid1TableView1.DataController.RecordCount := 10;

if OpenPictureDialog1.Execute then

begin

cxGrid1TableView1Column4.DataBinding.ValueType:= 'Variant';

cxGrid1TableView1Column4.PropertiesClassName := 'TcxImageProperties';

TcxImageProperties( cxGrid1TableView1Column4.Properties ).GraphicClassName := 'TdxSmartImage';

try

P := TStringStream.Create;

P.LoadFromFile( OpenPictureDialog1.FileName );

cxGrid1TableView1.DataController.Values[ 1, cxGrid1TableView1Column4.Index ] := P.Bytes;

finally

P.Free;

end;

NexusDB로 데이타 베이스 서버를 만드는 경우

NexusDB로 데이타 베이스 서버를 만드는 경우 해야할일이 3가지 있다. 첫째 nxServerEngine.MaxRam을 디폴트값인 -1에서 다른 값으로 설정하는 것이다. MB 단위로 설정한다. 보통 필자의 경우 서버를 설치할…

Program Files 폴더 가져오는 방법중 한가지

프로그램 파일 폴더의 내용을 가져오는 예제입니다. 제 기억으로는 델파이 4부터 가능한것으로 압니다. CSIDL_PROGRAM_FILES등의내용은 ShFolder를 참고 하시면 됩니다.

Uses shFolder;

function 프로그램파일폴더_가져오기: string;

var

  폴더명: Array[0..MAX_PATH] of char;

begin

  Result := '';

  if SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0,0, @폴더명[0]) = S_OK then

    Result := 폴더명;

end;

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

Uses shFolder;

function 프로그램파일폴더_가져오기: string;

var

폴더명: Array[0..MAX_PATH] of char;

begin

Result := '';

if SHGetFolderPath(0, CSIDL_PROGRAM_FILES, 0,0, @폴더명[0]) = S_OK then

Result := 폴더명;

end;

델파이로 Canvas에 글자를 각도에 맞게 출력하기

가끔 질문들이 올라옵니다. 도대체 어떻게 Label이나 글자를 각도에 맞게 찍을수 있는가 하는부분이죠. 음..의외로 간단합니다. 델파이에서 기본적으로 제공하는 LogFont를 사용하고 Canvas로 찍으면 됩니다. 사용법도 간단해서 아래처럼…

방화벽 등록하기

윈도우 XP 부터 Vista, Win7까지 방화벽을 설정하는 루틴이다. 윈도우 XP는 아래부분으로 처리하면 되고 Vista와 Win7은 아래 방법 말고도 다른 방법으로 가능하다. 하지만, 사용법이나 편리성만 두고보면…

EagleSoft

[카테고리:] 프로그램 관련

퀀텀 스킨을 사용할때 MessageDLG를 스킨 적용하기…

DevExpress사의 퀀텀그리드중 TcxImageComboBox 사용하기

1.리본메뉴 사용하기

델파이 기본 Hash를 이용한 MD5 파일 Check입니다.

TcxTreeList의 추가 삭제 부분입니다.

컬럼에 이미지 넣기.

NexusDB로 데이타 베이스 서버를 만드는 경우

Program Files 폴더 가져오는 방법중 한가지

델파이로 Canvas에 글자를 각도에 맞게 출력하기

방화벽 등록하기

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

네오크린 : 세탁 관리 프로그램

네오북 : 마을 문고/소규모 도서 관리 프로그램

최신 댓글