Jump to content
과거의 기술자료(읽기 전용): https://tech.devgear.co.kr ×
과거의 기술자료(읽기 전용): https://tech.devgear.co.kr

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


Recommended Posts

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를 사용한 아이콘 지정도 가능합니다.

image.png

 

// 입력 항목 클릭시
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;

 

 

이 댓글 링크
다른 사이트에 공유하기

이 토의에 참여하세요

지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.

Guest
이 토픽(기고/질문)에 답하기

×   서식있는 텍스트로 붙여넣기.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   이전에 작성한 콘텐츠가 복원되었습니다..   편집창 비우기

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...

중요한 정보

이용약관 개인정보보호정책 이용규칙 이 사이트가 더 잘 작동하기 위해 방문자의 컴퓨터에 쿠키가 배치됩니다. 쿠키 설정 변경에서 원하는 설정을 할 수 있습니다. 변경하지 않으면 쿠키를 허용하는 것으로 이해합니다.