tms TMS VCL TAdvListEditor 기능 소개 및 데모 (Tag 입력방식)

[c2design]

TAdvListEditor 는 TMS에서 제공하는 600여개의 VCL UI 컴포넌트가 담긴 번들 팩인 TMS VCL UI Pack 에 들어있습니다. TMS VCL UI Pack의 무료 평가판은 RAD 스튜디오 안에서 겟잇(GetIt) 패키지 매니저를 사용하면 바로 받아서 설치할 수 있습니다

TAdvListEditor 는 게시판이나 SNS 글 등록시 TAG 등을 입력하는 형태와 같은 새로운 개념의 Editor 박스 입니다.

다양한 형태의 사용자 입력편의성이 제공 되며 입력 항목에 숨겨진 Value 값이나 Link URL등을 등록할 수 있습니다.

사용자가 입력한 값은 DEL 키로 삭제되며, 입력값 즉시 수정도 가능합니다.

사용자 입력시 항목 구분은 세미콜론(;) 을 사용합니다.

또한 Read Only 속성으로 지정시 버튼등의 기능 수행도 가능하므로 새롭고 다양한 형태의 UI 를 구성 할 수 있습니다.

입력항목 값에 ImageList를 사용한 아이콘 지정도 가능합니다.

 

// 입력 항목 클릭시
procedure TForm4.AdvListEditor1ValueClick(Sender: TObject; ValueIndex: Integer);
begin
  ShowMessage('Value '+ inttostr(ValueIndex)+' clicked. Display text = '+ AdvListEditor1.Values[ValueIndex].DisplayText);
end;

// 읽기전용 항목에 지정된 URL 표시
procedure TForm4.AdvListEditor3ValueClick(Sender: TObject; ValueIndex: Integer);
begin
  Label3.Caption := AdvListEditor3.Values[ValueIndex].DisplayText + '  http://' + AdvListEditor3.Values[ValueIndex].Value;
end;

// DEL 키 항목 삭제 이벤트
procedure TForm4.AdvListEditor3ValueDelete(Sender: TObject;  Value: TAdvListValue; var Allow: Boolean);
begin
  Allow := MessageDlg('Delete value?',mtConfirmation,[mbYes,mbNo],0) = mrYes;
end;

// 입력 전체 항목값 확인
procedure TForm4.Button1Click(Sender: TObject);
var
  i: integer;
begin
  listbox1.Items.Clear;
  for i := 0 to AdvListEditor1.Values.Count - 1 do
  begin
    listbox1.Items.Add(AdvListEditor1.Values[i].DisplayText);
  end;
end;

// 입력 항목에 표시될 지정된 숨겨진 값 등록
procedure TForm4.FormCreate(Sender: TObject);
begin
  AdvListEditor2.Lookup.AddPair('Embarcadero','www.embarcadero.com');
  AdvListEditor2.Lookup.AddPair('TMS software','www.tmssoftware.com');
  AdvListEditor2.Lookup.AddPair('Adobe','www.adobe.com');
  AdvListEditor2.Lookup.AddPair('Apple','www.apple.com');
  AdvListEditor2.Lookup.AddPair('Microsoft','www.microsoft.com');
  AdvListEditor2.Lookup.AddPair('Atozed','www.atozed.com');
  AdvListEditor2.Lookup.AddPair('Google','www.google.com');
  AdvListEditor2.Lookup.AddPair('Twitter','www.twitter.com');
  AdvListEditor2.Lookup.AddPair('Facebook','www.facebook.com');
  AdvListEditor2.Lookup.AddPair('Dell','www.dell.com');
  AdvListEditor2.Lookup.AddPair('Gnostice','www.gnostice.com');
  AdvListEditor2.Lookup.AddPair('RemObjects','www.remobjects.com');
  AdvListEditor2.Lookup.AddPair('McAfee','www.mcafee.com');
end;

// 입력 첫글자 검색기능 옵션
procedure TForm4.RadioButton2Click(Sender: TObject);
begin
  if RadioButton1.Checked then
    AdvListEditor2.LookupMethod := lmFromStart
  else
    AdvListEditor2.LookupMethod := lmFull;
end;