1 -- Created on: 2010-05-21
2 -- Created by: PAUL SUPRYATKIN
3 -- Copyright (c) 2010-2014 OPEN CASCADE SAS
5 -- This file is part of Open CASCADE Technology software library.
7 -- This library is free software; you can redistribute it and/or modify it under
8 -- the terms of the GNU Lesser General Public License version 2.1 as published
9 -- by the Free Software Foundation, with special exception defined in the file
10 -- OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
11 -- distribution for complete text of the license and disclaimer of any warranty.
13 -- Alternatively, this file may be used under the terms of Open CASCADE
14 -- commercial license or contractual agreement.
16 class GradientBackground from Aspect
17 inherits Background from Aspect
20 ---Purpose: This class allows the definition of
21 -- a window gradient background.
26 GradientFillMethod from Aspect
31 returns GradientBackground from Aspect;
33 ---Purpose: Creates a window gradient background.
34 -- Default colors : Quantity_NOC_BLACK.
35 -- Default fill method : Aspect_GFM_NONE
37 Create ( AColor1 : Color from Quantity;
38 AColor2 : Color from Quantity;
39 AMethod : GradientFillMethod from Aspect = Aspect_GFM_HOR)
40 returns GradientBackground from Aspect;
42 ---Purpose: Creates a window gradient background with colours <AColor1, AColor2>.
44 ---------------------------------------------------
45 -- Category: Methods to modify the class definition
46 ---------------------------------------------------
48 SetColors ( me : in out;
49 AColor1 : Color from Quantity ;
50 AColor2 : Color from Quantity ;
51 AMethod : GradientFillMethod from Aspect = Aspect_GFM_HOR
54 ---Purpose: Modifies the colours of the window gradient background <me>.
55 ---Category: Methods to modify the class definition
57 ----------------------------
58 -- Category: Inquire methods
59 ----------------------------
62 AColor1 : out Color from Quantity;
63 AColor2 : out Color from Quantity
66 ---Purpose: Returns colours of the window gradient background <me>.
67 ---Category: Inquire methods
69 BgGradientFillMethod( me ) returns GradientFillMethod from Aspect;
71 ---Purpose: Returns the current gradient background fill mode.
77 -- Class : Aspect_GradientBackground
79 -- Purpose : Declaration of variables specific to the window
80 -- gradient background.
82 -- Reminder : A Gradient background is defined by two colours
85 -- the colour associated with the window background
86 MyColor2 : Color from Quantity;
87 MyGradientMethod : GradientFillMethod from Aspect;
89 end GradientBackground ;