[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

[Author]

Posts