Die Prozedure SetBounds() überschreiben:
Delphi-Quellcode:
TMeinControl = class(TGraphicControl)
....
protected
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override;
.....
procedure TMeinControl.SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
begin
inherited SetBounds(ALeft, ATop, AWidth, 40);
end;
Aber Controls, die sich so unkooperativ verhalten sind nicht sehr beliebt.
Besser wäre es dann, die Zeichnung zu skalieren oder zumindest vertikal zu zentrieren.