?? ksskinmessages.pas
字號:
{==============================================================================
SkinEngine's Message
Copyright (C) 2000-2002 by Evgeny Kryukov
Copyright (C) 2002 by DKJ
All rights reserved
All conTeThements of this file and all other files included in this archive
are Copyright (C) 2002 Evgeny Kryukov. Use and/or distribution of
them requires acceptance of the License Agreement.
See License.txt for licence information
$Id: KsSkinMessages.pas,v 1.1.1.1 2002/08/05 12:12:13 Evgeny Exp $
===============================================================================}
unit ksskinmessages;
{$I se_define.inc}
{$T-,W-,X+,P+}
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls, Buttons, se_controls, KsSkinVersion, KsSkinObjects,
KsSkinSource, KsSkinEngine;
type
{ TSeSkinMessage }
TSeSkinMessage = class(TSeCustomMessage)
private
FSkinEngine: TSeSkinEngine;
function GetVersion: TSeSkinVersion;
procedure SetVersion(const Value: TSeSkinVersion);
procedure SetSkinEngine(const Value: TSeSkinEngine);
protected
function CreateButton(Owner: TComponent): TSeCustomButton; override;
function CreateEdit(Owner: TComponent): TSeCustomEdit; override;
function CreateForm(Owner: TComponent): TSeCustomForm; override;
function CreateLabel(Owner: TComponent): TSeCustomLabel; override;
function CreateCheckBox(Owner: TComponent): TSeCustomCheckBox; override;
{ VCL protected }
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
published
property SkinEngine: TSeSkinEngine read FSkinEngine write SetSkinEngine;
property Version: TSeSkinVersion read GetVersion write SetVersion
stored false;
end;
implementation {===============================================================}
uses KsSkinButtons, KsSkinForms, KsSkinEdits, KsSkinCheckBoxs, KsSkinLabels;
{ TSeSkinMessage }
constructor TSeSkinMessage.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
end;
function TSeSkinMessage.CreateButton(Owner: TComponent): TSeCustomButton;
begin
Result := TSeSkinButton.Create(Owner);
if Owner is TWinControl then
Result.Parent := Owner as TWinControl;
(Result as TSeSkinButton).SkinEngine := FSkinEngine;
end;
function TSeSkinMessage.CreateEdit(Owner: TComponent): TSeCustomEdit;
begin
Result := TSeSkinEdit.Create(Owner);
if Owner is TWinControl then
Result.Parent := Owner as TWinControl;
(Result as TSeSkinEdit).SkinEngine := FSkinEngine;
end;
function TSeSkinMessage.CreateForm(Owner: TComponent): TSeCustomForm;
begin
Result := TSeSkinForm.Create(Owner);
(Result as TSeSkinForm).SkinEngine := FSkinEngine;
end;
function TSeSkinMessage.CreateLabel(Owner: TComponent): TSeCustomLabel;
begin
Result := TSeSkinLabel.Create(Owner);
(Result as TSeSkinLabel).SkinEngine := FSkinEngine;
end;
function TSeSkinMessage.CreateCheckBox(
Owner: TComponent): TSeCustomCheckBox;
begin
Result := TSeSkinCheckBox.Create(Owner);
(Result as TSeSkinCheckBox).SkinEngine := FSkinEngine;
end;
procedure TSeSkinMessage.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited;
if (Operation = opRemove) and (AComponent = FSkinEngine) then
SkinEngine := nil;
end;
function TSeSkinMessage.GetVersion: TSeSkinVersion;
begin
Result := sSeSkinVersion;
end;
procedure TSeSkinMessage.SetSkinEngine(const Value: TSeSkinEngine);
begin
FSkinEngine := Value;
end;
procedure TSeSkinMessage.SetVersion(const Value: TSeSkinVersion);
begin
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -