지병철의 주저리 주저리

Speedsearch in Listboxes with Delphi The article is about writing a Delphi TBListBox component to solve an old problem of searching items in listboxes. In Search of a good ListBox If often hear people ask why a listbox has a limitation of the number of items or the total amount of data you can store in it. I cannot imagine why anybody would put more than a handful of..

unit ControlPanelItem; interface uses SysUtils, Classes, Controls, ExtCtrls, Graphics, AdvPanel, StdCtrls, Windows,Forms,Dialogs; type tControlPanelItem = class(TAdvPanel) private fLinesText : TStrings; procedure SetLinesText(const Value: TStrings); procedure SetText; protected public constructor Create(AOwner : TComponent); override; destructor Destroy; override; pu..

번호 출력값 사용방법 0 Feb 22 2006 4:26PM CONVERT(CHAR(19), CURRENT_TIMESTAMP, 0) 1 02/22/06 CONVERT(CHAR(8), CURRENT_TIMESTAMP, 1) 2 06.02.22 CONVERT(CHAR(8), CURRENT_TIMESTAMP, 2) 3 2022-02-06 CONVERT(CHAR(8), CURRENT_TIMESTAMP, 3) 4 22.02.06 CONVERT(CHAR(8), CURRENT_TIMESTAMP, 4) 5 2022-02-06 CONVERT(CHAR(8), CURRENT_TIMESTAMP, 5) 6 22-Feb-06 CONVERT(CHAR..

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState) ; var x: Integer; txt: String; begin with ComboBox1 do begin Canvas.FillRect(Rect) ; txt := Items[Index]; x := Rect.Right - Canvas.TextWidth(txt) - 4; Canvas.TextOut(x, Rect.Top, txt) ; end; end;

http://blog.naver.com/daelim_bath/20135718102 http://blog.naver.com/PostView.nhn?blogId=5ocean&logNo=130112247206

vbruntimes.exe

RichEdit Message Interface There are many RichEdit messages. In addition to the system edit control messages defined in winuser.h, there are many new messages defined in richedit.h. All edit messages handled by RichEdit (specifically by ITextServices::TxSendMessage()) are listed below. System edit and RichEdit 1.0 messages are defined in the system SDK. RichEdit 2.0 and 3.0 messages aren’t do..

var Line, Column : integer; With Memo1 do begin Line := Perform(EM_LINEFROMCHAR,SelStart, 0) ; Column := SelStart - Perform(EM_LINEINDEX, Line, 0) ; end;

MySQL 내장 함수 정리 숫자 관련 함수 - ABS(숫자) - 절대값 출력 - CEILING(숫자) - 값보다 큰 정수 중 가장 작은 수 - FLOOR(숫자) - 값보다 작은 정수 중 가장 큰 수[실수를 무조건 버림(음수일 경우는 제외)] - ROUND(숫자,자릿수) - 숫자를 소수점 이하 자릿수에서 반올림.(자릿수는 양수,0,음수를 갖을 수 있다.) - ..

private procedure ExecMethod(OnObject: TObject; MethodName: string) ; end; var Form1: TForm1; type TExec = procedure of object; procedure TForm1.ExecMethod(OnObject: TObject; MethodName: string) ; var Routine: TMethod; Exec: TExec; begin Routine.Data := Pointer(OnObject) ; Routine.Code := OnObject.MethodAddress(MethodName) ; if NOT Assigned(Routine.Code) then Exit; Exec := TExec(Routine) ; Exec..