EagleSoft

지하실에서의 추억…

20여년전 필자가 20대 초반의 일이다. 자양동 근처의 어느 지하실에서 일을 할때 였다. 그당시 돈도 없고 월급 30만원에 밥은 먹여는 조건으로 어느 허름한 지하실에서 작업하던때이다. 그당시…

cxTreeList에서 FocusedNode로 이동하기.

cxTreeList에서 Find류의 함수를 이용하여 노드를 찾은뒤에 FocusedNode를 이용하여 Focus를 이동합니다. 하지만, 여기서 문제는 포커스는 이동하지만, 화면은 바뀌지 않는다는 점입니다. 이떄 사용하는 것이 cxTreeList1.FocusedNode.MakeVisible 명령입니다. 이…

퀀텀 스킨을 사용할때 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;

MSSQL Update 문 사용법

아주 디비를 골고르 쓰다보니 헛갈린다. MS-SQL의 Update문의 일반적인 사용법이다. 1. 일반적인 Update 문 Update 테이블명 set 필드명 = 바꿀값 또는 파라미터 Where 조건문 2. Update…

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

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

EagleSoft

글 목록

지하실에서의 추억…

cxTreeList에서 FocusedNode로 이동하기.

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

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

1.리본메뉴 사용하기

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

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

컬럼에 이미지 넣기.

MSSQL Update 문 사용법

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

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

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

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

최신 댓글