Q&A

  • 콤보박스의 ItemHeight 자동 조정..
콤보박스에서 style을 'csOwnerDrawFixed'로 하고 난 뒤..



Font를 변경했을시에 ItemHeight를 Font에 맞게 자동으로



조절해 주는 방법이 있는지 궁금합니다.



아시는 분 답변주시면 감사하겠습니다.



2  COMMENTS
  • Profile
    leowiz 2001.12.31 11:59
    콤보박스 Font의 OnChange이벤트에서 크기를 맞추어 주세요...



    interface



    type

    TForm1 = class(TForm)

    ComboBox1: TComboBox;

    procedure FormCreate(Sender: TObject);

    private

    procedure ComboBox1FontChange(Sender: TObject);

    public

    end;



    implementation



    procedure TForm1.FormCreate(Sender: TObject);

    begin

    ComboBox1.Font.OnChange := ComboBox1FontChange; // 이벤트 설정

    end;



    procedure TForm1.ComboBox1FontChange(Sender: TObject);

    // 폰트변경시 발생하는 이벤트

    begin

    // 콤보박스의 크기를 폰트의 크기로 맞춤

    ComboBox1.ItemHeight := -TFont(Sender).Height;

    end;



    ^^



    델초보 wrote:

    > 콤보박스에서 style을 'csOwnerDrawFixed'로 하고 난 뒤..

    >

    > Font를 변경했을시에 ItemHeight를 Font에 맞게 자동으로

    >

    > 조절해 주는 방법이 있는지 궁금합니다.

    >

    > 아시는 분 답변주시면 감사하겠습니다.

    >

  • Profile
    델초보 2001.12.31 22:02
    leowiz wrote:

    > 콤보박스 Font의 OnChange이벤트에서 크기를 맞추어 주세요...

    >

    > interface

    >

    > type

    > TForm1 = class(TForm)

    > ComboBox1: TComboBox;

    > procedure FormCreate(Sender: TObject);

    > private

    > procedure ComboBox1FontChange(Sender: TObject);

    > public

    > end;

    >

    > implementation

    >

    > procedure TForm1.FormCreate(Sender: TObject);

    > begin

    > ComboBox1.Font.OnChange := ComboBox1FontChange; // 이벤트 설정

    > end;

    >

    > procedure TForm1.ComboBox1FontChange(Sender: TObject);

    > // 폰트변경시 발생하는 이벤트

    > begin

    > // 콤보박스의 크기를 폰트의 크기로 맞춤

    > ComboBox1.ItemHeight := -TFont(Sender).Height;

    > end;

    >

    > ^^

    >

    > 델초보 wrote:

    > > 콤보박스에서 style을 'csOwnerDrawFixed'로 하고 난 뒤..

    > >

    > > Font를 변경했을시에 ItemHeight를 Font에 맞게 자동으로

    > >

    > > 조절해 주는 방법이 있는지 궁금합니다.

    > >

    > > 아시는 분 답변주시면 감사하겠습니다.

    > >