Советы по Delphi



         

Панель с изменяющимися размерами


Привожу исходный код для создания панелей с изменяющимися размерами. Воровняйте панель по области клиента свойством alClient, расположите на ней несколько элементов управления и посмотрите как меняются размеры во время изменения размера формы при выполнении программы. Можно расширить код и запретить изменения размеров во время проектирования, но это я оставляю для вас. Данная технология может и не идеальна, поскольку я накропал код за считанные минуты, но для выполнения моих задач этого достаточно.

unit Elastic;

interface

uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,Forms, Dialogs, ExtCtrls;
type
TElasticPanel = class( TPanel )privateFHorz, FVert: boolean;nOldWidth, nOldHeight: integer;bResized: boolean;protectedprocedure WMSize( var message: TWMSize ); message WM_SIZE;publicnCount: integer;constructor Create( AOwner: TComponent ); override;publishedproperty ElasticHorizontal: boolean read FHorz write FHorz defaultTRUE;
property ElasticVertical: boolean read FVert write FVert defaultTRUE;
end;
procedure Register;

implementation

constructor
TElasticPanel.Create( AOwner: TComponent );
begin
inherited
Create( AOwner );FHorz := TRUE;FVert := TRUE;nOldWidth := Width;nOldHeight := Height;bResized := FALSE;end;

procedure TElasticPanel.WMSize( var message: TWMSize );
var
bResize: boolean;xRatio: real;i: integer;ctl: TWinControl;begin
Inc( nCount );if Align = alNone thenbResize := TRUEelsebResize := bResized;if not ( csDesigning in ComponentState ) and bResize thenbeginif FHorz thenbeginxRatio := Width / nOldWidth;for i := 0 to ControlCount - 1 dobeginctl := TWinControl( Controls[i] );ctl.Left := Round( ctl.Left * xRatio );ctl.Width := Round( ctl.Width * xRatio );end;end;if FVert thenbeginxRatio := Height / nOldHeight;for i := 0 to ControlCount - 1 dobeginctl := TWinControl( Controls[i] );ctl.Top := Round( ctl.Top * xRatio );ctl.Height := Round( ctl.Height * xRatio );end;end;endelsebeginnOldWidth := Width;nOldHeight := Height;end;bResized := TRUE;nOldWidth := Width;nOldHeight := Height;end;

procedure Register;
begin
RegisterComponents('Additional', [TElasticPanel]);end;

end.
[000315]




Содержание  Назад  Вперед