You've already forked lazarus-ccr
jvcllaz: Add TJvGradientHeaderPanel
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6297 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -1,2 +1,3 @@
|
|||||||
tjvgradient.bmp
|
tjvgradient.bmp
|
||||||
|
tjvgradientheaderpanel.bmp
|
||||||
tjvspecialprogress.bmp
|
tjvspecialprogress.bmp
|
||||||
|
BIN
components/jvcllaz/design/JvMM/images/tjvgradientheaderpanel.bmp
Normal file
BIN
components/jvcllaz/design/JvMM/images/tjvgradientheaderpanel.bmp
Normal file
Binary file not shown.
After Width: | Height: | Size: 1.6 KiB |
@ -16,12 +16,12 @@ implementation
|
|||||||
uses
|
uses
|
||||||
Classes, JvDsgnConsts,
|
Classes, JvDsgnConsts,
|
||||||
PropEdits, Controls,
|
PropEdits, Controls,
|
||||||
JvGradient, JvSpecialProgress;
|
JvGradient, JvGradientHeaderPanel, JvSpecialProgress;
|
||||||
|
|
||||||
procedure Register;
|
procedure Register;
|
||||||
begin
|
begin
|
||||||
RegisterComponents(RsPaletteJvcl, [
|
RegisterComponents(RsPaletteJvcl, [
|
||||||
TJvGradient,
|
TJvGradient, TJvGradientHeaderPanel,
|
||||||
TJvSpecialProgress
|
TJvSpecialProgress
|
||||||
]);
|
]);
|
||||||
end;
|
end;
|
||||||
|
@ -15,7 +15,7 @@
|
|||||||
<Description Value="JVCL Multimedia Components (Runtime)."/>
|
<Description Value="JVCL Multimedia Components (Runtime)."/>
|
||||||
<License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
|
<License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
|
||||||
<Version Major="1" Release="4"/>
|
<Version Major="1" Release="4"/>
|
||||||
<Files Count="2">
|
<Files Count="3">
|
||||||
<Item1>
|
<Item1>
|
||||||
<Filename Value="..\run\JvMM\JvSpecialProgress.pas"/>
|
<Filename Value="..\run\JvMM\JvSpecialProgress.pas"/>
|
||||||
<UnitName Value="JvSpecialProgress"/>
|
<UnitName Value="JvSpecialProgress"/>
|
||||||
@ -24,6 +24,10 @@
|
|||||||
<Filename Value="..\run\JvMM\JvGradient.pas"/>
|
<Filename Value="..\run\JvMM\JvGradient.pas"/>
|
||||||
<UnitName Value="JvGradient"/>
|
<UnitName Value="JvGradient"/>
|
||||||
</Item2>
|
</Item2>
|
||||||
|
<Item3>
|
||||||
|
<Filename Value="..\run\JvMM\JvGradientHeaderPanel.pas"/>
|
||||||
|
<UnitName Value="JvGradientHeaderPanel"/>
|
||||||
|
</Item3>
|
||||||
</Files>
|
</Files>
|
||||||
<RequiredPkgs Count="2">
|
<RequiredPkgs Count="2">
|
||||||
<Item1>
|
<Item1>
|
||||||
|
Binary file not shown.
446
components/jvcllaz/run/JvMM/JvGradientHeaderPanel.pas
Normal file
446
components/jvcllaz/run/JvMM/JvGradientHeaderPanel.pas
Normal file
@ -0,0 +1,446 @@
|
|||||||
|
{-----------------------------------------------------------------------------
|
||||||
|
The contents of this file are subject to the Mozilla Public License
|
||||||
|
Version 1.1 (the "License"); you may not use this file except in compliance
|
||||||
|
with the License. You may obtain a copy of the License at
|
||||||
|
http://www.mozilla.org/MPL/MPL-1.1.html
|
||||||
|
|
||||||
|
Software distributed under the License is distributed on an "AS IS" basis,
|
||||||
|
WITHOUT WARRANTY OF ANY KIND, either expressed or implied. See the License for
|
||||||
|
the specific language governing rights and limitations under the License.
|
||||||
|
|
||||||
|
The Original Code is: JvGradientCaption.PAS, released on 2001-02-28.
|
||||||
|
|
||||||
|
The Initial Developer of the Original Code is S�bastien Buysse [sbuysse att buypin dott com]
|
||||||
|
Portions created by S�bastien Buysse are Copyright (C) 2001 S�bastien Buysse.
|
||||||
|
All Rights Reserved.
|
||||||
|
|
||||||
|
Contributor(s): Michael Beck [mbeck att bigfoot dott com].
|
||||||
|
|
||||||
|
You may retrieve the latest version of this file at the Project JEDI's JVCL home page,
|
||||||
|
located at http://jvcl.delphi-jedi.org
|
||||||
|
|
||||||
|
Known Issues:
|
||||||
|
-----------------------------------------------------------------------------}
|
||||||
|
// $Id$
|
||||||
|
|
||||||
|
unit JvGradientHeaderPanel;
|
||||||
|
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
LMessages, Types,
|
||||||
|
SysUtils, Classes, Graphics, Controls, StdCtrls,
|
||||||
|
JvGradient, JvTypes, JvComponent;
|
||||||
|
|
||||||
|
type
|
||||||
|
TJvGradientHeaderPanel = class(TJvCustomControl)
|
||||||
|
private
|
||||||
|
FGradient: TJvGradient;
|
||||||
|
FLabel: TLabel;
|
||||||
|
FLabelLeft: Integer;
|
||||||
|
FHint: Boolean;
|
||||||
|
FOldLabelFontChange: TNotifyEvent;
|
||||||
|
function GetGradientCursor: TCursor;
|
||||||
|
procedure SetGradientCursor(Value: TCursor);
|
||||||
|
function GetGradientHint: string;
|
||||||
|
procedure SetGradientHint(const Value: string);
|
||||||
|
function GetGradientStartColor: TColor;
|
||||||
|
procedure SetGradientStartColor(Value: TColor);
|
||||||
|
function GetGradientEndColor: TColor;
|
||||||
|
procedure SetGradientEndColor(Value: TColor);
|
||||||
|
function GetGradientSteps: Integer;
|
||||||
|
procedure SetGradientSteps(Value: Integer);
|
||||||
|
function GetLabelLeft: Integer;
|
||||||
|
procedure SetLabelLeft(Value: Integer);
|
||||||
|
function GetLabelTop: Integer;
|
||||||
|
procedure SetLabelTop(Value: Integer);
|
||||||
|
function GetLabelCursor: TCursor;
|
||||||
|
procedure SetLabelCursor(Value: TCursor);
|
||||||
|
function GetLabelHint: string;
|
||||||
|
procedure SetLabelHint(const Value: string);
|
||||||
|
function GetLabelCaption: string;
|
||||||
|
procedure SetLabelCaption(const Value: string);
|
||||||
|
function GetLabelColor: TColor;
|
||||||
|
procedure SetLabelColor(Value: TColor);
|
||||||
|
procedure SetShowHint(const Value: Boolean);
|
||||||
|
function GetLabelFont: TFont;
|
||||||
|
procedure SetLabelFont(const Value: TFont);
|
||||||
|
function GetGradientStyle: TJvGradientStyle;
|
||||||
|
procedure SetGradientStyle(const Value: TJvGradientStyle);
|
||||||
|
function GetLabelAlignment: TAlignment;
|
||||||
|
procedure SetLabelAlignment(const Value: TAlignment);
|
||||||
|
procedure AdjustLabelWidth;
|
||||||
|
procedure WMSize(var Msg: TLMSize); message LM_SIZE;
|
||||||
|
protected
|
||||||
|
// function DoEraseBackground(Canvas: TCanvas; Param: LPARAM): Boolean; override;
|
||||||
|
procedure DoLabelFontChange(Sender: TObject);
|
||||||
|
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
|
||||||
|
X, Y: Integer); override;
|
||||||
|
public
|
||||||
|
constructor Create(AOwner: TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
|
published
|
||||||
|
property GradientCursor: TCursor read GetGradientCursor write SetGradientCursor default crDefault;
|
||||||
|
property GradientHint: string read GetGradientHint write SetGradientHint;
|
||||||
|
property GradientStartColor: TColor read GetGradientStartColor write SetGradientStartColor default clBlack;
|
||||||
|
property GradientEndColor: TColor read GetGradientEndColor write SetGradientEndColor default clWhite;
|
||||||
|
property GradientSteps: Integer read GetGradientSteps write SetGradientSteps default 100;
|
||||||
|
property GradientStyle: TJvGradientStyle read GetGradientStyle write SetGradientStyle default grHorizontal;
|
||||||
|
property LabelLeft: Integer read GetLabelLeft write SetLabelLeft default 10;
|
||||||
|
property LabelTop: Integer read GetLabelTop write SetLabelTop default 8;
|
||||||
|
property LabelCursor: TCursor read GetLabelCursor write SetLabelCursor default crDefault;
|
||||||
|
property LabelHint: string read GetLabelHint write SetLabelHint;
|
||||||
|
property LabelCaption: string read GetLabelCaption write SetLabelCaption;
|
||||||
|
// LabelColor sets the background Color of the label (used for text in the control).
|
||||||
|
// To get a transparent text background, set LabelColor to clNone
|
||||||
|
property LabelColor: TColor read GetLabelColor write SetLabelColor default clNone;
|
||||||
|
property LabelFont: TFont read GetLabelFont write SetLabelFont;
|
||||||
|
property ShowHint: Boolean read FHint write SetShowHint default False;
|
||||||
|
property LabelAlignment: TAlignment read GetLabelAlignment write SetLabelAlignment;
|
||||||
|
property Align;
|
||||||
|
property Anchors;
|
||||||
|
property AutoSize;
|
||||||
|
{
|
||||||
|
property BevelEdges;
|
||||||
|
property BevelInner;
|
||||||
|
property BevelKind;
|
||||||
|
property BevelOuter;
|
||||||
|
property BevelWidth;
|
||||||
|
}
|
||||||
|
property BorderSpacing;
|
||||||
|
// property BorderWidth;
|
||||||
|
property Constraints;
|
||||||
|
property DockSite;
|
||||||
|
property DoubleBuffered;
|
||||||
|
property DragMode;
|
||||||
|
property Enabled;
|
||||||
|
property Font;
|
||||||
|
property ParentShowHint;
|
||||||
|
property PopupMenu;
|
||||||
|
property TabOrder;
|
||||||
|
property TabStop;
|
||||||
|
property Visible;
|
||||||
|
// property OnCanResize;
|
||||||
|
property OnDockDrop;
|
||||||
|
property OnDockOver;
|
||||||
|
property OnGetSiteInfo;
|
||||||
|
property OnUnDock;
|
||||||
|
property OnClick;
|
||||||
|
property OnConstrainedResize;
|
||||||
|
property OnContextPopup;
|
||||||
|
property OnDblClick;
|
||||||
|
property OnDragDrop;
|
||||||
|
property OnDragOver;
|
||||||
|
property OnEndDrag;
|
||||||
|
property OnEnter;
|
||||||
|
property OnExit;
|
||||||
|
property OnKeyDown;
|
||||||
|
property OnKeyPress;
|
||||||
|
property OnKeyUp;
|
||||||
|
property OnMouseDown;
|
||||||
|
property OnMouseMove;
|
||||||
|
property OnMouseUp;
|
||||||
|
property OnMouseWheel;
|
||||||
|
property OnMouseWheelDown;
|
||||||
|
property OnMouseWheelUp;
|
||||||
|
property OnResize;
|
||||||
|
property OnStartDrag;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
JvResources;
|
||||||
|
|
||||||
|
type
|
||||||
|
TNoEventLabel = class(TLabel)
|
||||||
|
public
|
||||||
|
procedure Dispatch(var Message); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TNoEventGradient = class(TJvGradient)
|
||||||
|
public
|
||||||
|
procedure Dispatch(var Message); override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TJvGradientHeaderPanel.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited Create(AOwner);
|
||||||
|
ControlStyle := ControlStyle + [csOpaque, csAcceptsControls];
|
||||||
|
Self.Width := 285;
|
||||||
|
Self.Height := 30;
|
||||||
|
FGradient := TNoEventGradient.Create(Self);
|
||||||
|
FGradient.Parent := Self;
|
||||||
|
FLabel := TNoEventLabel.Create(Self);
|
||||||
|
FLabel.AutoSize := False;
|
||||||
|
FLabel.Parent := Self;
|
||||||
|
FGradient.Left := 0;
|
||||||
|
FGradient.Top := 0;
|
||||||
|
FGradient.StartColor := clBlack;
|
||||||
|
FGradient.EndColor := clWhite;
|
||||||
|
FGradient.Steps := 100;
|
||||||
|
LabelLeft := 10;
|
||||||
|
FLabel.Top := 8;
|
||||||
|
LabelColor := clNone;
|
||||||
|
FOldLabelFontChange := FLabel.Font.OnChange;
|
||||||
|
FLabel.Font.OnChange := @DoLabelFontChange;
|
||||||
|
FLabel.Font.Color := clWhite;
|
||||||
|
FLabel.Caption := RsYourTextHereCaption;
|
||||||
|
FHint := False;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TJvGradientHeaderPanel.Destroy;
|
||||||
|
begin
|
||||||
|
FGradient.Free;
|
||||||
|
// FLabel.OnChange := FOldLabelFontChange;
|
||||||
|
FLabel.Free;
|
||||||
|
inherited Destroy;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetGradientCursor: TCursor;
|
||||||
|
begin
|
||||||
|
Result := FGradient.Cursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetGradientCursor(Value: TCursor);
|
||||||
|
begin
|
||||||
|
FGradient.Cursor := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetGradientHint: string;
|
||||||
|
begin
|
||||||
|
Result := FGradient.Hint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetGradientHint(const Value: string);
|
||||||
|
begin
|
||||||
|
FGradient.Hint := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetGradientStartColor: TColor;
|
||||||
|
begin
|
||||||
|
Result := FGradient.StartColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetGradientStartColor(Value: TColor);
|
||||||
|
begin
|
||||||
|
FGradient.StartColor := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetGradientEndColor: TColor;
|
||||||
|
begin
|
||||||
|
Result := FGradient.EndColor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetGradientEndColor(Value: TColor);
|
||||||
|
begin
|
||||||
|
FGradient.EndColor := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetGradientSteps: Integer;
|
||||||
|
begin
|
||||||
|
Result := FGradient.Steps;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetGradientSteps(Value: Integer);
|
||||||
|
begin
|
||||||
|
FGradient.Steps := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetLabelLeft: Integer;
|
||||||
|
begin
|
||||||
|
Result := FLabelLeft;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetLabelLeft(Value: Integer);
|
||||||
|
begin
|
||||||
|
if FLabel.Left <> Value then
|
||||||
|
begin
|
||||||
|
if Value < 0 then
|
||||||
|
Value := 0;
|
||||||
|
FLabel.Left := Value;
|
||||||
|
FLabelLeft := Value;
|
||||||
|
AdjustLabelWidth;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetLabelTop: Integer;
|
||||||
|
begin
|
||||||
|
Result := FLabel.Top;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetLabelTop(Value: Integer);
|
||||||
|
begin
|
||||||
|
if Value < 0 then
|
||||||
|
Value := 0;
|
||||||
|
FLabel.Top := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetLabelCursor: TCursor;
|
||||||
|
begin
|
||||||
|
Result := FLabel.Cursor;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetLabelCursor(Value: TCursor);
|
||||||
|
begin
|
||||||
|
FLabel.Cursor := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetLabelHint: string;
|
||||||
|
begin
|
||||||
|
Result := FLabel.Hint;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetLabelHint(const Value: string);
|
||||||
|
begin
|
||||||
|
FLabel.Hint := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetLabelCaption: string;
|
||||||
|
begin
|
||||||
|
Result := FLabel.Caption;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetLabelCaption(const Value: string);
|
||||||
|
begin
|
||||||
|
FLabel.Caption := Value;
|
||||||
|
AdjustLabelWidth;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetLabelColor: TColor;
|
||||||
|
begin
|
||||||
|
Result := FLabel.Color;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetLabelColor(Value: TColor);
|
||||||
|
begin
|
||||||
|
FLabel.Color := Value;
|
||||||
|
FLabel.Transparent := (Value = clNone);
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetShowHint(const Value: Boolean);
|
||||||
|
begin
|
||||||
|
FHint := Value;
|
||||||
|
FLabel.ShowHint := Value;
|
||||||
|
FGradient.ShowHint := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetLabelFont: TFont;
|
||||||
|
begin
|
||||||
|
Result := FLabel.Font;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetLabelFont(const Value: TFont);
|
||||||
|
begin
|
||||||
|
FLabel.Font := Value;
|
||||||
|
AdjustLabelWidth;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetGradientStyle: TJvGradientStyle;
|
||||||
|
begin
|
||||||
|
Result := FGradient.Style;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetGradientStyle(const Value: TJvGradientStyle);
|
||||||
|
begin
|
||||||
|
FGradient.Style := Value;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TJvGradientHeaderPanel.GetLabelAlignment: TAlignment;
|
||||||
|
begin
|
||||||
|
Result := FLabel.Alignment;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.SetLabelAlignment(const Value: TAlignment);
|
||||||
|
begin
|
||||||
|
FLabel.Alignment := Value;
|
||||||
|
AdjustLabelWidth;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.WMSize(var Msg: TLMSize);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
AdjustLabelWidth;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.AdjustLabelWidth;
|
||||||
|
var
|
||||||
|
W, L: Integer;
|
||||||
|
begin
|
||||||
|
L := FLabel.Left;
|
||||||
|
// make as large as we need:
|
||||||
|
FLabel.AutoSize := True;
|
||||||
|
FLabel.AutoSize := False;
|
||||||
|
FLabel.Left := L;
|
||||||
|
W := FGradient.Width - FLabelLeft - FLabelLeft;
|
||||||
|
// make bigger if there's room
|
||||||
|
if W > FLabel.Width then
|
||||||
|
begin
|
||||||
|
FLabel.Width := W;
|
||||||
|
FLabel.Left := FLabelLeft;
|
||||||
|
end
|
||||||
|
else
|
||||||
|
if W < FLabel.Width then // otherwise, just center
|
||||||
|
begin
|
||||||
|
FLabel.Left := (Width - FLabel.Width) div 2;
|
||||||
|
// if (FLabelLeft > FLabel.Left) and then
|
||||||
|
// FLabelLeft := FLabel.Left;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.DoLabelFontChange(Sender: TObject);
|
||||||
|
begin
|
||||||
|
if Assigned(FOldLabelFontChange) then
|
||||||
|
FOldLabelFontChange(Sender);
|
||||||
|
AdjustLabelWidth;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TJvGradientHeaderPanel.MouseDown(Button: TMouseButton;
|
||||||
|
Shift: TShiftState; X, Y: Integer);
|
||||||
|
begin
|
||||||
|
inherited MouseDown(Button, Shift, X, Y);
|
||||||
|
if CanFocus then
|
||||||
|
SetFocus;
|
||||||
|
end;
|
||||||
|
|
||||||
|
(*
|
||||||
|
function TJvGradientHeaderPanel.DoEraseBackground(Canvas: TCanvas; Param: LPARAM): Boolean;
|
||||||
|
begin
|
||||||
|
{ Reduce flickering FGradient completely fills the TJvGradientHeaderPanel }
|
||||||
|
Result := True;
|
||||||
|
end;
|
||||||
|
*)
|
||||||
|
|
||||||
|
//=== { TNoEventLabel } ======================================================
|
||||||
|
|
||||||
|
procedure TNoEventLabel.Dispatch(var Message);
|
||||||
|
begin
|
||||||
|
with TLMessage(Message) do
|
||||||
|
if (Parent <> nil) and
|
||||||
|
(((Msg >= LM_MOUSEFIRST) and (Msg <= LM_MOUSELAST)) or
|
||||||
|
((Msg >= LM_KEYFIRST) and (Msg <= LM_KEYLAST))) then
|
||||||
|
Parent.Dispatch(Message)
|
||||||
|
else
|
||||||
|
inherited Dispatch(Message);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
//=== { TNoEventGradient } ===================================================
|
||||||
|
|
||||||
|
procedure TNoEventGradient.Dispatch(var Message);
|
||||||
|
begin
|
||||||
|
with TLMessage(Message) do
|
||||||
|
if (Parent <> nil) and
|
||||||
|
(((Msg >= LM_MOUSEFIRST) and (Msg <= LM_MOUSELAST)) or
|
||||||
|
((Msg >= LM_KEYFIRST) and (Msg <= LM_KEYLAST))) then
|
||||||
|
Parent.Dispatch(Message)
|
||||||
|
else
|
||||||
|
inherited Dispatch(Message);
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
Reference in New Issue
Block a user