tms TMS VCL Button 관련 컴포넌트 - TAdvAdvGlassButton 소개

[c2design]

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

TMS 의 TAdvGlassButton 컴포넌트는 여러가지 형태로 구성을 할 수 있어 이 컴포넌트 하나로 다양한 화면 디자인 작업이 가능 합니다.

TAdvAdvGlassButton  기본적으로 반투명 형태 입니다.

버튼 아이콘의 Picture 속성에  개별 이미지를 사용하거나 또는 TImageLIst에 여러 이미지를 담아서 사용 할 수도 있습니다.

CornerRadius 속성값으로 버튼의 라운드 처리 적용이 가능 합니다.

또한 BackGroundSymbol 의 기본 심벌을 사용 할 수 도 있습니다.

procedure TForm1.AdvGlassButton2Click(Sender: TObject);
begin
  AdvGlassButton2.ImageIndex := AdvGlassButton2.ImageIndex + 1;
end;

procedure TForm1.AdvGlassButton3Click(Sender: TObject);
begin
  AdvGlassButton3.CornerRadius := AdvGlassButton3.CornerRadius - 5;
end;

procedure TForm1.AdvGlassButton6Click(Sender: TObject);
begin
  inc( k );
  AdvGlassButton6.BackGroundSymbol := TBackGroundSymbol( k ) ;
end;