글 목록
cxTreeList의 내용을 복사하기
cxTreeList의 내용을 복사하기 DBTreelist이든 일반이던 모든 내용을 복사 합니다.
|
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 35 36 |
var i,j : Integer; N : TcxTreeListNode; begin for I := 0 to aaaa.AbsoluteCount - 1 do begin if aaaa.AbsoluteItems[ i ].Parent = aaaa.AbsoluteItems[ i ].Root then begin with bbbb.AddNode( nil, nil, nil, tlamAddChild ) do begin values[0] := aaaa.AbsoluteItems[ i ].Values[0]; values[1] := aaaa.AbsoluteItems[ i ].Values[1]; values[2] := aaaa.AbsoluteItems[ i ].Values[3]; end; end else begin N := nil; for j := 0 to bbbb.AbsoluteCount - 1 do if bbbb.AbsoluteItems[j].Values[0] = aaaa.AbsoluteItems[ i ].Values[1] then begin N := bbbb.AbsoluteItems[j]; Break; end; with bbbb.AddNode( nil, N, nil, tlamAddChild ) do begin values[0] := aaaa.AbsoluteItems[ i ].Values[0]; values[1] := aaaa.AbsoluteItems[ i ].Values[1]; values[2] := aaaa.AbsoluteItems[ i ].Values[3]; end; end; end; |
퀀텀그리드(cxGrid) 드래그 드롭하기…
퀀텀그리드(cxGrid) 드래그 드롭하기…
|
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 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 |
procedure TForm2.cxGrid2TableView1DragDrop(Sender, Source: TObject; X, Y: Integer); var Source_Site: TcxGridSite; Sender_Site: TcxGridSite; idx, 복사할위치, 복사당할위치 : Integer; 복사당할_레코드 : TcxCustomGridRecord; begin if ( Source is TcxDragControlObject ) then begin Source_Site := TcxGridSite( TcxDragControlObject(Source).Control ); Sender_Site := TcxGridSite(Sender); // TcxGridSite( TcxDragControlObject(Sender).Control ); if Source_Site.GridView is TcxGridTableView then begin // TcxGridTableView ( 그리드_사이트.GridView ).ViewInfo.GetHitTest( Point( x,y ) ) ) // 복사할위치 := TcxGridTableView ( TcxGridSite( TcxDragControlObject(Source).Control ).GridView ).Controller.SelectedRecords[0]; if TcxGridTableView ( Sender_Site.GridView ).ViewInfo.GetHitTest( Point( x,y ) ) is TcxGridRecordCellHitTest then 복사당할_레코드 := TcxGridRecordCellHitTest( TcxGridTableView ( Sender_Site.GridView ).ViewInfo.GetHitTest( Point( x,y ) ) ).GridRecord else 복사당할_레코드 := nil; if 복사당할_레코드 <> nil then idx := TcxGridTableView ( Sender_Site.GridView ).DataController.InsertRecord( 복사당할_레코드.RecordIndex ) else idx := TcxGridTableView( Sender_Site.GridView ).DataController.AppendRecord; TcxGridTableView ( Sender_Site.GridView ).DataController.Values[ idx, 0 ] := TcxGridTableView ( Source_Site.GridView ).Controller.SelectedRecords[0].Values[0]; end; end; end; procedure TForm2.cxGrid2TableView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); var 그리드_사이트: TcxGridSite; begin if ( Source is TcxDragControlObject ) then begin 그리드_사이트 := TcxGridSite( TcxDragControlObject(Source).Control ); if 그리드_사이트.GridView is TcxGridTableView then begin Accept := TcxGridTableView ( 그리드_사이트.GridView ) = cxGrid1TableView1; end; end; end; |
richedit의 마지막으로 이동하기..
RichEdit1.SelLength := 0; RichEdit1.SelStart := RichEdit1.GetTextLen; RichEdit1. Perform( EM_SCROLL, SB_LINEDOWN, 0); 설명이 필요 없지요?
TcxGridTableView 와 TcxGridLevel의 동적생성
동적생성시 아래와 같이 해야만 합니다. var TV : TcxGridTableView; LV : TcxGridLevel; begin Result := TcxGrid.Create( Application ); with Result do begin LV := Result.Levels.Add;…
개발중 또는 개발후에도 NexusDB에서 nxEnterpriseManager를 사용하는 방법.
안녕하세요. NexusDB를 소개하고 많은 시간이 흘렀습니다. 게으름에 사용 방법을 올려야 하는데, 저도 이게 정석인지 아닌지 몰라 고민하다가 그냥 공개를 합니다. ( 이글은 초보용이 아닙니다. 약간의…
WebBrowser에 HTML 내용 바꾸기 ( Delphi & C++ Builder )
TWebBrowser의 HTML을 변경하려면 우선..WebBrowser1.Navigator(‘About:Blank’)로 초기화를 한뒤에 아래와 같이 작업하시면 됩니다. 델파이와는 다르게 C++ Builder에서는 variant형의 지원때문에 조금 길어 보입니다. 내용은 100% 동일합니다. Delphi
|
1 2 |
WebBrowser1.OleObject.Document.Body.innerhtml := WebBrowser1.OleObject.Document.Body.innerhtml + '<FONT color=#3058d2><SPAN style="FONT-FAMILY: Gulim"><SPAN style="FONT-SIZE: 10pt"><STRONG> 이름 : </STRONG> </SPAN> </SPAN> <SPAN style="FONT-FAMILY: Arial"> <SPAN style="FONT-SIZE: 10pt"> <FONT color=#000000>' + Edit1.Text + '</FONT> </SPAN> </SPAN> <br /> </FONT>'; |
…
화면의 컬러(Color) Bit수를 알아 내기…
원격 관리 프로그램을 만드는중에 시스템의 현재 컬러의 Bit값을 알아내야 했다.. 이리 저리 알아 보다가 DC를 얻어내서 GetDeviceCaps로 알아 낼수 있는 방법을 찾아 냈다.
|
1 2 3 4 5 6 7 8 |
function GetScreenColorBit : Integer; var DC : HDC; begin DC := GetDC( GetDesktopWindow ); Result := GetDeviceCaps( DC, BITSPIXEL ); ReleaseDC( GetDesktopWindow, DC ) end; |
잊어 먹지…
Delphi 몇가지 Tip( 시작할때 메인폼 나타나지 않기, 부팅후 한번만 실행하기, Tray아이콘으로 현재 아이콘 가져가기 )
며칠전 아는 사람의 몇가지 질문을 보고 적은 내용입니다. 시작할때 메인폼을 화면에 나타내지 않기.
|
1 2 3 4 5 6 |
begin Application.Initialize; Application.ShowMainForm:=False; Application.CreateForm(TForm1, Form1); Application.Run; end. |
부팅 오직 한번만 프로그램을 실행하기…. 도대체 무엇 때문에 이런용도를 쓰는지 알수…
Comport, LTP, USB등의 List를 얻어 오는 방법..
며칠전 USB Port를 직접 제어 해야 할일이 생겨서 예전 자료를 뒤지 던중 발견한 코드입니다. USB나 Comport의 경우 레지스트리를 뒤져서 내용을 가져오는 방법이 가장많이 사용됩니다. 그런데, Device…
DevExpress의 cxGrid에서 특정 컬럼만 Fixed Column을 설정하는 방법
String Grid에서는 Fixed Column을 지정할 수 있습니다. 퀀텀그리드에서는 Fixed Column을 지정하는 방법이 제가 아는 방법으로는 없습니다. 여기서 중요한것은 Fixed Column 처럼 보이게 하는 property가 없는것이지…
최신 댓글