[Support]

Hello

Are you sure you saw this name? “sStylePassive.dcu”?

This file is not included into the package.

[karel]

'Support' wrote:

Hello

Are you sure you saw this name? “sStylePassive.dcu”?

This file is not included into the package.

unit sSkinProvider;

{$I sDefs.inc}

interface

{.$DEFINE LOCALDEBUG}

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

sStylePassive, menus, sSkinMenus, sSkinManager, sConst, sScrollBar, sPanel;

type

TsBorderIcon = (biSystemMenu, biMinimize, biMaximize, biHelp);

TsBorderIcons = set of TsBorderIcon;

TsCaptionButton = record

State : integer;

ImageIndex : integer;

Rect : TRect;

end;

TsSystemMenu = class;

TsSkinProvider = class(TComponent)

private

FsStyle: TsPassivePaintStyle;

FsBorderIcons: TsBorderIcons;

OldCaption : string;

OldCaption1 : string;

FMakeSkinMenu: boolean;

procedure SetBorderIcons(const Value: TsBorderIcons);

procedure OnVSBChange(Sender : TObject; OldValue : integer);

procedure OnHSBChange(Sender : TObject; OldValue : integer);

procedure ScrollBy(x, y : integer);

protected

MenusInitialized : boolean;

RegionChanged : boolean;

CaptChanged : boolean;

CaptRgnChanged : boolean;

I see, that is calling this unit

[Support]

What is version number of your AlphaControls package and where I can download it?

Look on beginning of my sSkinProvider.pas file:

Code:

unit sSkinProvider;
{$I sDefs.inc}
//{$DEFINE LOGGED}
//{$DEFINE DEBUG}

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Forms, sDefaults, menus, ExtCtrls, Buttons, Controls,
{$IFDEF DELPHI_XE2} UITypes, {$ENDIF}
{$IFDEF DELPHI7UP} Types, {$ENDIF}
{$IFDEF FPC} LMessages, {$ENDIF}
{$IFDEF TNTUNICODE} TntWideStrUtils, TntMenus, TntStdCtrls, TntControls, {$ENDIF}
sConst, sCommondata, acSBUtils, sSkinMenus, sSkinManager, acGlow, acThdTimer, acTitleBar;

type
{$IFNDEF NOTFORHELP}
TacLabelColor = record
Color: TColor;
Control: TControl;
ParentFont: boolean;
end;
…

[Author]

Posts