1 -- Created on: 2004-06-24
3 -- Copyright (c) 2004-2012 OPEN CASCADE SAS
5 -- The content of this file is subject to the Open CASCADE Technology Public
6 -- License Version 6.5 (the "License"). You may not use the content of this file
7 -- except in compliance with the License. Please obtain a copy of the License
8 -- at http://www.opencascade.org and read it completely before using this file.
10 -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
11 -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
13 -- The Original Code and all software distributed under the License is
14 -- distributed on an "AS IS" basis, without warranty of any kind, and the
15 -- Initial Developer hereby disclaims all such warranties, including without
16 -- limitation, any warranties of merchantability, fitness for a particular
17 -- purpose or non-infringement. Please see the License for the specific terms
18 -- and conditions governing the rights and limitations under the License.
21 private class ColorScale from V3d inherits ColorScale from Aspect
23 ---Purpose: A colorscale class
28 LayerMgrPointer from V3d,
29 --Layer from Visual3d,
31 ExtendedString from TCollection
37 Create(aMgr : LayerMgr from V3d)
38 returns ColorScale from V3d;
39 ---Purpose: Returns returns ColorScale from V3d.
42 --returns View from V3d;
43 ---Purpose: Returns View from V3d.
45 Display(me : mutable);
50 returns Boolean from Standard;
52 ---Category: Protected
54 UpdateColorScale(me : mutable)
55 is redefined protected;
57 --BeginPaint(me : mutable)
58 --returns Boolean from Standard
59 --is redefined protected;
61 --EndPaint(me : mutable)
62 --returns Boolean from Standard
63 --is redefined protected;
65 PaintRect(me : mutable; X, Y, W, H : Integer from Standard;
66 aColor : Color from Quantity;
67 aFilled : Boolean from Standard = Standard_False)
70 PaintText(me : mutable; aText : ExtendedString from TCollection;
71 X, Y : Integer from Standard;
72 aColor : Color from Quantity)
75 TextWidth(me; aText : ExtendedString from TCollection)
76 returns Integer from Standard
79 TextHeight(me; aText : ExtendedString from TCollection)
80 returns Integer from Standard
84 AText : ExtendedString from TCollection;
85 AHeight : Integer from Standard;
86 AWidth : in out Integer from Standard;
87 AnAscent : in out Integer from Standard;
88 ADescent : in out Integer from Standard );
90 DrawScale(me : mutable);
95 --returns Layer from Visual3d
100 --myView : View from V3d;
101 myLayerMgr : LayerMgrPointer from V3d;
102 --myOverlay : Layer from Visual3d;
103 myDisplay : Boolean from Standard;