본문 바로가기

Delphi Tip/컴포넌트26

TMemo(메모장) 스트링(string) 입력 속도개선 TMemo(메모장) 스트링(string) 입력 속도개선  메모장에서 문자를 바꾸거나 할경우 메모장의 내용을String에 옮긴 다음 해당 작업을 하고다시 메모장으로 불러들일때 별생각없이 아래와 같이 한다. (예)iStr:= Memo1.Lines.Text;iStr:= StringReplace(iStr, 'a', 'b', []) ;Memo1.Lines.Text:= iStr; 그런데 메모장의 내용이 많울 경우(스트링의 크기가 클)에는Memo1.Lines.Text:= iStr; 에서 엄청 많은 시간을 먹는다. 개선방법 var iMemStream: TMemoryStream;iStr: string;beginiStr:= Memo1.Lines.Text;iStr:= StringReplace(iStr, 'a', 'b', [.. 2024. 6. 28.
컴포넌튼 만들기(초간단) 컴포넌튼 만들기 TLabel 을 상속받어, 기본 Default 배경이 검은색으로 설정되는 컴포넌트입니다. unit BlackLabel; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TBlackLabel = class(TLabel) private { Private declarations } protected { Protected declarations } public constructor create(aOwner: TComponent); override; published { Published declarations } end; procedure Register; i.. 2023. 11. 29.
동적으로 메뉴(TMenuItem) 만들고 클릭 이벤트 만들기 동적으로 메뉴(TMenuItem) 만들고 클릭 이벤트 만들기 아래와 같이 popMenuSkin MenuItem에 서브 MenuItem을 동적으로 추가할 수 있다. // Create Dynamic MenuItem var skinCount: Integer; MI: array of TMenuItem; begin skinCount := 3 for i := popMenuSkin.Count - 1 downto 0 do popMenuSkin.Remove(popMenuSkin.Items[i]); SetLength(MI, skinCount); for i := 0 to skinCount do begin MI[i] := TMenuItem.Create(Self); MI[i].Caption := IntToStr(i); MI[i.. 2023. 10. 31.
델파이 콤보박스(TComboBox)의 팝업리스트 가로폭 늘리기 델파이 콤보박스(TComboBox) procedure TMain_Form.ComboBox1DropDown(Sender: TObject); begin SendMessage( TComboBox( Sender ).Handle, CB_SETDROPPEDWIDTH, 300, 0 ); end; 추가 TiP 콤보박스 글자까지 확인해서 글자의 최대값으로 컴보박스 크기를 조절하는것입니다. procedure TForm1.AdjustDropDownWidth(Sender: TObject); var j,i,ItemWidth, IW: Integer; begin For j := ComponentCount-1 Downto 0 do Begin ItemWidth := 0; If (Components[j] is TCombobox) The.. 2023. 10. 26.
델파이 타이머(TTimer) Interval 시간오차 해결방법 델파이 타이머 델파이에서 컴포넌트로 제공되는 TTimer의 경우에는 정확한 시간에 맞게 콜백을 하지 않는다. Interval 을 1/1000 초까지 조정할 수 있지만 실제로 호출되는 것은 1/18.2 초 단위로 끊어 지게 되기때문이다. 만약 TTimer로 MP3 플레이어나 동영상 재생기를 만든다면 어떻게 될까 ? MP3 음향이 정확한 박자로 재생하지 못할 것이고 동영상도 프레임이 정확하지 못해서 눈이 상당히 피로해질 거다. 하지만 지금 소개하는 타이머를 쓰게 되면 1ms 의 오차정도만을 허용하는 고급의 타이머가 생성되게 됩니다. 어려운 내용이 아니기 때문에 그냥 소스에 주석을 붙이는 차원으로 끝내겠습니다. 그리고 dfm 의 내용도 Text 로 뒤에 첨가하였으니 직접 폼을 만들어서 테스트 해보면 된다 폼에.. 2023. 10. 11.
델파이 컨트롤 반투명 드래그 이동 델파이 컨트롤 반투명 드래그 이동 윈도우 탐색기에서 리스트뷰의 헤더부분을 드래그해보면 약간 반투명하게 움직이는 것을 볼수 있습니다. 또는 아이콘을 드래그 할때도 원래의 아이콘이미지가 반투명하게 보이고 투명한부분은 그대로 투명하게 보이는 것을 경험하셨을 겁니다. 이걸 델파이에서 구현하려면 어떻게 해야 할까요? 가장 쉽게 생각해 볼수 있는게 배경화면의 그림을 얻어와서 그 위에 반투명 처리를 해서 아이콘을 그려주고 이렇게 합성한 그림을 배경화면에 다시 그려주는 일을 해야 할겁니다. 하지만 그렇게 되면 드래그하는 일에 CPU가 쉴새가 없게 됩니다. 그러면 방법은 없을까요? 다행이도 델파이에는 이런 기능을 할수 있도록 준비된 녀석이 있습니다. 바로 TImageList라는 녀석이죠!! 사용법 1. 우선 TImage.. 2023. 9. 12.
델파이 컴포넌트(Component) 마무리 델파이 컴포넌트(Component) 마무리 RAD의 특징이 바로 프로퍼티 '+' 표시가 붙은 프로퍼티 만들기 이번에는 프로퍼티의 이름앞에 '+'가 붙어서 내용이 전개되는 것을 어떻게 처리하는지 보도록 합시다. ① 집합형..(set) 우선 폼에 있는 BorderIcons를 보세요.. 이녀석도 이름앞에 '+'가 있죠? 두번클릭하면 내용이 전개가 되면서 이름앞에 '-'로 바뀌지요. 앗.. 그런데 이녀석은 Font등에서 보던 녀석과는 약간 다른 특성이 있네요. 내용들이 모두 Boolean형으로 되어있지요? 그럼.. 이녀석의 헬프를 보도록 합시다. type TBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp); TBorderIcons = set of TBor.. 2023. 7. 25.
델파이 컴포넌트(Component) 7편 델파이 컴포넌트(Component) 7편 오브젝트 인스펙터(Object Inspector) 프로퍼티 탭을 보시면 어떤 녀석은 그냥 edit으로 되어 있구 어떤 녀석은 ComboBox로, 또 어떤녀석은 이름앞에 '+'가 붙어서 내용을 전개해서 볼수 있도록 되어 있음을 볼수 있을겁니다. 또, 특별한 경우 '...'버튼을 눌러서 대화상자를 호출해서 프로퍼티를 조작하는 경우도 있죠.. 그밖에 프로퍼티에 대해서 자세히 알아보도록 합시다. 우선 Edit로 나타나는 경우에는 어떤값을 입력할수 있었나요? Name, Caption, Hint등의 경우 문자를 입력할수 있게 됩니다. Left, Right, Tag등의 경우 숫자만을 입력할수 있게 되죠.. 거꾸로 생각하면 오브젝트 인스펙터에 Edit으로 나타나게 하려면 프로퍼.. 2023. 7. 24.
델파이 컴포넌트(Component) 6편 델파이 컴포넌트(Component) 6편 프로퍼티(Property) 델파이는 참으로 재미있는 방법으로 클래스를 지원합니다. 그 중 하나가 바로 프로퍼티라는 녀석이죠. OOP의 몇가지 대표적인 특징중에 캡슐화(정보은닉)이라는 것이 있죠? OOP에서는 클래스 내부에서 다루는 데이터는 밖으로 드러나지 않아야 된다는 것이죠 내부에서 다루는 변수는 직접 조작할수가 없고, 함수를 통해서만이 값을 참조하고 바꿀수 있게 되어있습니다. 예를 들면 클래스 내부에서 쓰이는 변수중에 'fMyAge'라는 것이 있다구 합시다. 전형적인 C++언어에서는 fMyAge라는 녀석을 private안에 숨겨둘 것입니다. 그리고 다음과 같은 함수로 fMyAge를 조작할수 있도록 하겠죠. C++에서의 변수접근법 i := GetMyAge(); .. 2023. 7. 21.
델파이 컴포넌트(Component) 5편 델파이 컴포넌트(Component) 5편 이번에는 이벤트 핸들러에 들어가는 매개변수의 형(type)과 갯수를 마음대로 바꿔서 사용할수 있도록 해봅시다. 우선 TNotifyEvent의 정의부터 보도록 합시다. type TNotifyEvent = procedure (Sender: TObject) of object; 위의 형식에다가 그대로 대입만 해주면 되겠지요? 참, 참고로 '... of object'를 보도록 하죠. 지금까지 함수포인터 얘기를 자주 했지요? 그런데 'of object'는 왜 붙어야 할까요? 결론부터 얘기하자면 'of object'를 덧붙임으로서 TNotifyEvent는 객체(object)의 함수포인터가 됩니다. 즉 일반 함수포인터의 선언시에는 'of object'가 빠지게 됩니다. 그럼 우.. 2023. 7. 20.
델파이 컴포넌트(Component) 4편 델파이 컴포넌트(Component) 이벤트 추가 우선 이벤트를 받아오는 함수에 대해서 알아야 할 것입니다. WM_MOUSEMOVE이벤트가 발생할때 반응하는 함수를 만들어 보도록 합시다. 우선 윈도우 메시지를 처리하는 함수를 다음은 Controls.pas의 함수의 선언입니다. procedure WMMouseMove(var Message: TWMMouseMove); message WM_MOUSEMOVE; 지금까지 보아오던 함수와는 조금 다르죠? 뒤에 있는 'message WM_MOUSEMOVE'는 'WM_MOUSEMOVE'이벤트를 받아서 처리를 하겠다는 의미일테구요. 매개변수로 들어간 Message는 처리할 메시지의 값이 들어가겠지요? 그럼 이 함수의 실체를 보도록 합시다 procedure TControl... 2023. 7. 19.
델파이 컴포넌트(Component) 3편 델파이 컴포넌트(Component) 3편 속성 우선 우리의 버튼에 특성을 주어 봅시다. 가장 눈에 잘띄는 속성은 Caption일 겁니다. constructor TMyButton.Create( AOwner : TComponent ); begin inherited Create(AOwner); // 생성시에 할일... Caption := '눌러봐!'; Font.Name := 'fixedsys'; Font.Size := 9; Width := 200; Height := 150; end; 이상과 같이 Create함수를 바꿔보고 컴포넌트를 다시 컴파일 합시다. 컴포넌트의 컴파일은 패키지에서 'Compile'버튼을 누르면 됩니다. 패키지는 기본적으로 'Dclusr30.dpk'를 사용하게 되는데 'Component'메뉴.. 2023. 7. 18.
델파이 컴포넌트(Component) 2편 델파이 컴포넌트(Component) 2편 생성(Create)과 해제(Destroy) 솔직해 컴포넌트는 이 두가지만 잘 해주면 거의 끝난것이라고 할수 있습니다. 많은 분들이 이 두가지를 잘못해서 컴포넌트와의 싸움에서 쓴잔을 마시고 계신줄 알고 있습니다. 가령 폼위에 컴포를 올려놓기는 했는데 삭제하려면 엑세스가 바이얼레이션한다는 보기싫은 메시지를 토해놓는다던지, 델파이가 종료가 안된다던지, 혹은 아주 보기 드믈게 윈도우가 다운된다던지 하는 일의 대부분은 Create와 Destroy를 잘못해서 생기는 일입니다. 하지만 절대 어려운 일이 아닙을 미리 밝혀드립니다. 먼저 강좌에서 만든 'MyButton.pas'를 봅시다. 많이 보던 코드들이 나와 있죠? 처음 보는 함수가 하나 만들어져 있음을 볼수 있습니다. 바로.. 2023. 7. 17.
델파이 컴포넌트(Component) 1편 델파이 컴포넌트(Component) 1편 델파이에서의 컴포넌트(Component)는 재사용 가능한 UI 요소를 나타내는 객체입니다. 컴포넌트는 시각적인 디자인 요소와 그에 대한 동작 및 속성을 포함할 수 있으며, 델파이 애플리케이션 개발에서 중요한 역할을 합니다. 델파이의 컴포넌트는 시각적인 요소를 담당하는 시각 컴포넌트(Visual Component)와 비시각적인 요소를 담당하는 비시각 컴포넌트(Non-Visual Component)로 구분할 수 있습니다. 시각 컴포넌트(Visual Component) 시각 컴포넌트는 사용자 인터페이스(UI)의 일부를 구성하는 요소로, 폼(Form) 위에 배치되어 시각적으로 표현됩니다. 버튼, 레이블, 리스트 박스, 텍스트 상자 등과 같은 UI 컨트롤들이 시각 컴포넌트.. 2023. 7. 14.
델파이 DSPack MP4 델파이 DSPack MP4 delphi dspack mp4 델파이 컴포넌트중 영상을 재생하고 컨트롤할수있는 컴포넌트 DSPack 이라는놈이 있다~! 허나 데모판을 보면 모두 AVI나 모 처음듣는 확장자를 볼수도있지만 모두 영상 관련 확장자이다!!! 간단하게 설명하겠다~! Filtergraph와 videowindow를 폼에 놓고 filtergraph를 video window에 연결하고 renderfile을 호출했다... FFDShow가 이미 설치되어 있고 작동하지 않을 때 자동으로 ffdshow를 선택하도록 필터 그래프를 설정하는 방법을 알려주실 수 있습니까 ? 그래프 빌더는 RenderFile메소드에 전달하는 파일을 렌더링하기 위한 적절한 필터를 선택해야 합니다 . 그것이 내가 언급한 자동적인 방법입니다.. 2021. 11. 11.
델파이 콤보박스 key 값 설정 델파이 콤보박스 key 값 설정 콤보박스 이름 : Cbo_Adjust 콤보박스 속성 : ItemHeight : 17 Style : csOwnerDrawFixed --OnDrawItem Handler--- with (Control as TComboBox) do begin Canvas.Font.Size := 10; Canvas.FillRect (Rect); Canvas.TextOut (Rect.Left + 2 , Rect.Top + 2 , Items.Values [Items.Names[Index]]); end; --COMBOBOX 데이터 넣을 때--- --- 불필요할 수도 있음 --- Cbo_Adjust.Items.Values ['*'] := FieldByName ('CODE_DESC').asString; .. 2021. 11. 10.
TAdvColumnGrid 팁 TAdvColumnGrid 팁 1. AdvColumnGrid 컬럼 타입 체크 형식으로 변경 AdvColumnGrid.AddCheckBoxColumn(colindex); 2. AdvColumnGrid Footer 생성 AdvColumnGrid.FloatingFooter.ColumnCalc[0] := acCount; AdvColumnGrid.FloatingFooter.ColumnCalc[1] := acCUSTOM; AdvColumnGrid.FloatingFooter.ColumnCalc[2] := acCUSTOM; AdvColumnGrid.FloatingFooter.ColumnCalc[3] := acSUM; AdvColumnGrid.FloatingFooter.ColumnCalc[4] := acNONE; 3.A.. 2021. 11. 9.
델파이 XE10.2에 SAPI 컴포넌트 등록 방법 델파이 XE10.2에 SAPI 컴포넌트 등록 방법 1. 델파이 메뉴에서 "Component -> Import Component" 클릭. ​ 2. "Import a Type Libray" 선택 후 [Next] 클릭. 3. "Microsoft Speech Object Library" 를 선택하고, 버전과 GUID를 확인한다. [Next] 클릭. 4. "Palette Page"에서 "ActiveX"를 선택하고 [Next] 클릭. 5. "Install to New Package"를 선택 후 [Next] 클릭. 6. 우측의 "…"을 클릭. 7. dpk 파일이 저장될 폴더를 선택하고 "파일 이름"란에 Package name 를 입력한다. [저장] 클릭. 8. "Description" 명을 입력하고 [Finish] .. 2021. 11. 8.
델파이 TChart 마커 이동하기 델파이 TChart 마커 이동하기 procedure TFrm_Mng_014.Chart_PriceAfterDraw(Sender: TObject); function ChartSeriesValueIndexByXValue(ASeries: TChartSeries; AXValue: Double): Integer; var i: Integer; LastValue: Double; dMinDiff, dMaxDiff: Double; begin Result := -1; try if ASeries.XValues.Count > 0 then begin LastValue := ASeries.XValue[ASeries.XValues.Count - 1]; if AXValue > LastValue then begin Result := A.. 2021. 11. 4.
델파이 TChart 설명 델파이 TChart 설명 1. TChart 중요 요소 (1) Panel(= TChart) - 차트 배경. 색이나 바깥 테두리와 간격등을 설정 가능. - TChart.Color, TChart.MarginLeft등 (2) TChart.Title - 차트 제목. 기본 중앙 상단에 표시되며 위치, 글꼴등 변경 가능. (3) TChart.Legend - 범례. 기본 버전은 기능이 미약하여 거의 사용하지 않고 필요기능(보이기/감추기, 이름/색상변경등)을 추가하여 따로 만들어서 사용하는것이 좋음. (4) TChart.Left Axis, TChart.BottomAxis - 차트 축. Left(기본 Y축), Bottom(기본 X축) 외에 Right, Top등이 존재. - (Property) Automatic, Autom.. 2021. 11. 3.

티스토리툴바