IDE에서 다른 크기의 구성 요소가있는 이유는 무엇입니까?

Question

델파이 6 교수

나는 분리를 위해 베벨 구성 요소를 만들었습니다.

8 픽셀 (너비 x 높이)의 스페이서를 사용했기 때문에이 구성 요소를 만들었고 Form에 배치했을 때만 정렬을 설정하면됩니다.

type 
    TSSpacer = class(TBevel) 
    public 
    constructor Create(aOwner: TComponent); override; 
    published 
    //property Width default 8; 
    //property Height default 8; 
    property Shape default bsSpacer; 
end; 

constructor TSSpacer.Create(aOwner : TComponent); 
begin 
    inherited Create(aOwner); 
    Shape := bsSpacer; 
    Width := 8; 
    Height := 8; 
end; 

하지만 (또는 "디폴트"없이) 결과는 IDE 140 X 41 픽셀이 코드를 사용하는 경우.

왜 8x8 크기가되지 않습니까? 또한 흥미로운 점은 기본 TBevel은 50 x 50입니다.

이 크기 조정의 원인은 무엇입니까?

Answer 1

읽기 : 어떻게 든 디자이너가 너무 작되는 것을 구성 요소를 방지 할 수 있습니다. 디자이너가이 최소 크기 (10 x 10)를 설정하지는 않지만 이상하게 임의로 크기를 임의로 설정하는 것으로 보입니다. OP에서 설명한 D6에서는 140 x 41이고 D7에서는 100 x 41입니다. 더를

type 
    TSSPacer = class(TBevel) 
    protected 
    procedure SetParent(AParent: TWinControl); override; 
    public 
    constructor Create(AOwner: TComponent); override; 
    procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override; 
    published 
    property Shape default bsSpacer; 
    end; 

constructor TSSPacer.Create(AOwner: TComponent); 
begin 
    inherited Create(AOwner); 
    Shape := bsSpacer; 
end; 

procedure TSSPacer.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); 
begin 
    if AutoSize then 
    inherited SetBounds(ALeft, ATop, 8, 8) 
    else 
    inherited SetBounds(ALeft, ATop, AWidth, AHeight); 
end; 

procedure TSSPacer.SetParent(AParent: TWinControl); 
begin 
    AutoSize := (csDesigning in ComponentState) and (Parent = nil) and 
    (AParent <> nil); 
    inherited SetParent(AParent); 
end; 

이 D7 여기에 작동하지만 : TBevel 사용이나 AutoSize 속성을 게시하고 해당 속성의 이름을 가지 바란 행동에 관한 않기 때문에

글쎄, 나는 그것의 사용을 스트레칭하기로 결정했습니다

private 
    FFixDesignSize: Boolean; 

procedure TSSPacer.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); 
begin 
    if FFixDesignSize then 
    begin 
    inherited SetBounds(ALeft, ATop, 8, 8); 
    FFixDesignSize := False; 
    end 
    else 
    inherited SetBounds(ALeft, ATop, AWidth, AHeight); 
end; 

procedure TSSPacer.SetParent(AParent: TWinControl); 
begin 
    FFixDesignSize := (csDesigning in ComponentState) and (Parent = nil) and 
    (AParent <> nil); 
    inherited SetParent(AParent); 
end; 

그리고 양식 디자이너에서이 컨트롤을 삭제의 호출 스택이 답변을 완료 : 신뢰성 구현 될 수

- Before SetBounds 
- After SetBounds 
- Before SetBounds 
- After SetBounds 
- Before SetParent 
    - Before SetBounds 
    - After SetBounds 
- After SetParent 
- Before SetBounds 
- After SetBounds 
- Before SetParent 
- After SetParent 

그러나이 특정 주문이나 전화 번호에 의존해서는 안됩니다. 델파이 버전간에 차이가있을 수 있습니다.

Answer 2

설명이 필요한 기사를 찾았습니다. TControl의 SetBounds를 재정의해야한다고 생각합니다.

더 여기 TLama 그의 의견에 못을 명중 http://www.delphidabbler.com/tips/77