EagleSoft

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

EagleSoft

글 목록

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

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

1.리본메뉴 사용하기

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

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

컬럼에 이미지 넣기.

MSSQL Update 문 사용법

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

MS-SQL 모든 테이블을 한번에 지우고 싶을때…

프로그램과 프로그래머이 가치에 대해…

관리자용 로그인

원격

블로그 통계

번역

판매용 프로그램

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

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

최신 댓글