Может статик покавырять.
Добавлено через 7 минут и 55 секунд extctrls.pas:
| Код | { TCustomPanel }
constructor TCustomPanel.Create(AOwner: TComponent); begin inherited Create(AOwner); ControlStyle := [csAcceptsControls, csCaptureMouse, csClickEvents, csSetCaption, csOpaque, csDoubleClicks, csReplicatable]; Width := 185; Height := 41; FAlignment := taCenter; BevelOuter := bvRaised; BevelWidth := 1; FBorderStyle := bsNone; Color := clBtnFace; FFullRepaint := True; UseDockManager := True; end;
{ TBevel }
constructor TBevel.Create(AOwner: TComponent); begin inherited Create(AOwner); ControlStyle := ControlStyle + [csReplicatable]; FStyle := bsLowered; FShape := bsBox; Width := 50; Height := 50; end;
|
Добавлено через 9 минут и 29 секунд http://forum.swamp.ru/viewtopic.php?p=1818963 |