Menu
▾
▴
[JVCL-Checkins] CVS: dev/marcelb/LEDDisplays/Example ExampleJVSegmentedLEDDisplayMain.dfm,1.1,1.2 ExampleJVSegmentedLEDDisplayMain.pas,1.1,1.2
|
From: Marcel B. <jed...@us...> - 2003-03-26 20:45:14
|
Update of /cvsroot/jvcl/dev/marcelb/LEDDisplays/Example
In directory sc8-pr-cvs1:/tmp/cvs-serv10463/dev/marcelb/LEDDisplays/Example
Modified Files:
ExampleJVSegmentedLEDDisplayMain.dfm
ExampleJVSegmentedLEDDisplayMain.pas
Log Message:
Expanding example
Index: ExampleJVSegmentedLEDDisplayMain.dfm
===================================================================
RCS file: /cvsroot/jvcl/dev/marcelb/LEDDisplays/Example/ExampleJVSegmentedLEDDisplayMain.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ExampleJVSegmentedLEDDisplayMain.dfm 25 Mar 2003 19:24:00 -0000 1.1
--- ExampleJVSegmentedLEDDisplayMain.dfm 26 Mar 2003 20:45:02 -0000 1.2
***************
*** 1,8 ****
object frmExampleSegmentedLEDDisplayMain: TfrmExampleSegmentedLEDDisplayMain
! Left = 394
! Top = 286
BorderStyle = bsSingle
Caption = 'Segmented LED display example'
! ClientHeight = 405
ClientWidth = 640
Color = clBtnFace
--- 1,8 ----
object frmExampleSegmentedLEDDisplayMain: TfrmExampleSegmentedLEDDisplayMain
! Left = 393
! Top = 291
BorderStyle = bsSingle
Caption = 'Segmented LED display example'
! ClientHeight = 507
ClientWidth = 640
Color = clBtnFace
***************
*** 87,91 ****
Top = 60
Width = 641
! Height = 346
ActivePage = ts7Seg
Anchors = [akLeft, akTop, akRight, akBottom]
--- 87,91 ----
Top = 60
Width = 641
! Height = 448
ActivePage = ts7Seg
Anchors = [akLeft, akTop, akRight, akBottom]
***************
*** 96,123 ****
object sldCarOdometer1: TJvSegmentLEDDisplay
Left = 0
! Top = 5
Width = 144
Height = 40
AutoSize = False
! Color = 7376896
ColorOn = clBlack
! ColorOff = 8030720
DigitCount = 6
DigitHeight = 40
Digits = <
item
- Segments = 'A,B,C'
UseDP = True
end
item
! Segments = 'B,C,F,G'
UseDP = True
end
item
! Segments = 'A,B,D,E,G'
UseDP = True
end
item
! Segments = 'A,C,D,E,F,G'
UseDP = True
end
--- 96,122 ----
object sldCarOdometer1: TJvSegmentLEDDisplay
Left = 0
! Top = 37
Width = 144
Height = 40
AutoSize = False
! Color = 7378944
ColorOn = clBlack
! ColorOff = 7049984
DigitCount = 6
DigitHeight = 40
Digits = <
item
UseDP = True
end
item
! Segments = 'A,B,C'
UseDP = True
end
item
! Segments = 'B,C,F,G'
UseDP = True
end
item
! Segments = 'A,B,D,E,G'
UseDP = True
end
***************
*** 136,167 ****
SlantAngle = 0
Spacing = 4
! Text = '742621'
end
object sldCarOdoMeter2: TJvSegmentLEDDisplay
! Left = 55
! Top = 45
Width = 88
Height = 32
AutoSize = False
! Color = 7376896
ColorOn = clBlack
! ColorOff = 8030720
DigitCount = 4
DigitHeight = 32
Digits = <
item
! Segments = 'A,B,C,D,G'
UseDP = True
end
item
! Segments = 'A,C,D,E,F,G'
UseDP = True
end
item
! Segments = 'A,B,C,D,E,F,G,DP'
UseDP = True
end
item
! Segments = 'A,B,C'
UseDP = True
end>
--- 135,166 ----
SlantAngle = 0
Spacing = 4
! Text = ' 74221'
end
object sldCarOdoMeter2: TJvSegmentLEDDisplay
! Left = 56
! Top = 5
Width = 88
Height = 32
AutoSize = False
! Color = 7378944
ColorOn = clBlack
! ColorOff = 7049984
DigitCount = 4
DigitHeight = 32
Digits = <
item
! Segments = 'A,C,D,F,G'
UseDP = True
end
item
! Segments = 'A,B,C,D,G'
UseDP = True
end
item
! Segments = 'A,B,C,D,F,G,DP'
UseDP = True
end
item
! Segments = 'B,C'
UseDP = True
end>
***************
*** 172,176 ****
SlantAngle = 0
Spacing = 4
! Text = '36[&8DP]7'
end
object pnlCarOdometerRight: TPanel
--- 171,256 ----
SlantAngle = 0
Spacing = 4
! Text = '53[&9DP]1'
! end
! object sld7SegTester: TJvSegmentLEDDisplay
! Left = 0
! Top = 90
! Width = 630
! Height = 50
! AutoSize = False
! Color = clBlack
! ColorOn = clRed
! ColorOff = 100
! DigitCount = 18
! DigitHeight = 50
! Digits = <
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! UseDP = True
! end
! item
! Segments = 'G'
! UseDP = True
! end
! item
! Segments = 'B,C'
! UseDP = True
! end
! item
! Segments = 'A,B,D,E,G'
! UseDP = True
! end
! item
! Segments = 'A,B,C,D,G'
! UseDP = True
! end
! item
! Segments = 'B,C,F,G,DP'
! UseDP = True
! end
! item
! Segments = 'A,C,D,F,G'
! UseDP = True
! end
! item
! Segments = 'A,C,D,E,F,G'
! UseDP = False
! end>
! DigitWidth = 35
! Kind = slk7Segments
! Margin = 4
! SegmentWidth = 2
! SlantAngle = 5
! Spacing = 4
! Text = ' -123[&4DP]56'
end
object pnlCarOdometerRight: TPanel
***************
*** 180,188 ****
Height = 72
BevelOuter = bvNone
! Color = 7376896
TabOrder = 0
object lblCarOdometerTopKM: TLabel
Left = 0
! Top = 20
Width = 19
Height = 16
--- 260,268 ----
Height = 72
BevelOuter = bvNone
! Color = 7378944
TabOrder = 0
object lblCarOdometerTopKM: TLabel
Left = 0
! Top = 53
Width = 19
Height = 16
***************
*** 197,201 ****
object lblCarOdometerBottomKM: TLabel
Left = 0
! Top = 55
Width = 16
Height = 13
--- 277,281 ----
object lblCarOdometerBottomKM: TLabel
Left = 0
! Top = 16
Width = 16
Height = 13
***************
*** 205,213 ****
object pnlCarOdometerLeftBottom: TPanel
Left = 0
! Top = 45
Width = 56
Height = 32
BevelOuter = bvNone
! Color = 7376896
TabOrder = 1
end
--- 285,293 ----
object pnlCarOdometerLeftBottom: TPanel
Left = 0
! Top = 5
Width = 56
Height = 32
BevelOuter = bvNone
! Color = 7378944
TabOrder = 1
end
***************
*** 234,245 ****
AutoSize = False
Caption =
! 'The odometer is made up of 2 7-segment displays and two panels (' +
! 'one panel on the bottom left to fill up the room). In the right ' +
! 'panel two labels are placed to show the text '#39'KM'#39'.'#13#10#13#10'The backgr' +
! 'ound color is set to $00709000, ColorOn is set to clBlack and Co' +
! 'lorOf is set to $007A8A00.'
WordWrap = True
end
end
end
end
--- 314,342 ----
AutoSize = False
Caption =
! 'The odometer is made up of two 7-segment displays and two panels' +
! ': one panel on the top left to fill up the room and one on the r' +
! 'ight to show the '#39'KM'#39' labels.'#13#10#13#10'The background color is set to ' +
! '$00709800, ColorOn is set to clBlack and ColorOf is set to $006B' +
! '9300.'
WordWrap = True
end
end
+ object insp7SegTester: TJvInspector
+ Left = 0
+ Top = 145
+ Width = 630
+ Height = 271
+ Anchors = [akLeft, akTop, akRight, akBottom]
+ BandWidth = 150
+ BevelInner = bvNone
+ BevelKind = bkTile
+ RelativeDivider = True
+ Divider = 50
+ ItemHeight = 16
+ Painter = idnpMain
+ ReadOnly = False
+ UseBands = False
+ WantTabs = False
+ end
end
end
***************
*** 249,252 ****
--- 346,353 ----
Left = 545
Top = 15
+ end
+ object idnpMain: TJvInspectorDotNETPainter
+ Left = 424
+ Top = 11
end
end
Index: ExampleJVSegmentedLEDDisplayMain.pas
===================================================================
RCS file: /cvsroot/jvcl/dev/marcelb/LEDDisplays/Example/ExampleJVSegmentedLEDDisplayMain.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** ExampleJVSegmentedLEDDisplayMain.pas 25 Mar 2003 19:24:01 -0000 1.1
--- ExampleJVSegmentedLEDDisplayMain.pas 26 Mar 2003 20:45:03 -0000 1.2
***************
*** 5,9 ****
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! JvComponent, JvLEDDisplays, ExtCtrls, ComCtrls, JvComCtrls, StdCtrls;
type
--- 5,10 ----
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
! JvComponent, JvLEDDisplays, ExtCtrls, ComCtrls, JvComCtrls, StdCtrls,
! JvInspector;
type
***************
*** 21,29 ****
--- 22,36 ----
pnlCarOdometerExplain: TPanel;
lblCarOdometerExplain: TLabel;
+ sld7SegTester: TJvSegmentLEDDisplay;
+ insp7SegTester: TJvInspector;
+ idnpMain: TJvInspectorDotNETPainter;
procedure tmrLEDScrollerTimer(Sender: TObject);
private
{ Private declarations }
+ protected
+ procedure Loaded; override;
public
{ Public declarations }
+ procedure Init7SegInspector;
end;
***************
*** 33,36 ****
--- 40,46 ----
implementation
+ uses
+ JvInspExtraEditors;
+
{$R *.DFM}
***************
*** 41,44 ****
--- 51,91 ----
'ON A COMPONENT SET TO RENDER A 14-SEGMENT DISPLAY USING THE PAGES BELOW YOU CAN SEE ' +
'THE OTHER AVAILABLE TYPES AND WHICH CHARACTERS THEY SUPPORT';
+
+ procedure TfrmExampleSegmentedLEDDisplayMain.Loaded;
+ begin
+ inherited Loaded;
+ TJvInspectorColorItem.RegisterAsDefaultItem;
+ Init7SegInspector;
+ end;
+
+ procedure TfrmExampleSegmentedLEDDisplayMain.Init7SegInspector;
+ var
+ Cat: TJvInspectorCustomCategoryItem;
+ Instances: TJvInspectorItemInstances;
+ I: Integer;
+ Cat1: TJvInspectorCustomCategoryItem;
+ begin
+ insp7SegTester.Root.SortKind := iskNone;
+ Cat := TJvInspectorCustomCategoryItem.Create(insp7SegTester.Root, nil);
+ Cat.DisplayName := 'Fixed settings';
+ Instances := TJvInspectorPropData.NewByNames(Cat, sld7SegTester, ['DigitCount', 'DigitHeight', 'DigitWidth']);
+ for I := High(Instances) downto 0 do
+ Instances[I].ReadOnly := True;
+ // Cat.Expanded := True;
+ Cat := TJvInspectorCustomCategoryItem.Create(insp7SegTester.Root, nil);
+ Cat.DisplayName := 'Appearance';
+ Cat1 := TJvInspectorCustomCategoryItem.Create(Cat, nil);
+ Cat1.DisplayName := 'Colors';
+ TJvInspectorPropData.New(Cat1, sld7SegTester, 'Color').DisplayName := 'Background';
+ TJvInspectorPropData.New(Cat1, sld7SegTester, 'ColorOn').DisplayName := 'Segment lit';
+ TJvInspectorPropData.New(Cat1, sld7SegTester, 'ColorOff').DisplayName := 'Segment unlit';
+ Cat1.Expanded;
+ TJvInspectorPropData.New(Cat, sld7SegTester, 'SegmentWidth').DisplayName := 'Segment width';
+ TJvInspectorPropData.New(Cat, sld7SegTester, 'Spacing').DisplayName := 'Space between segments';
+ TJvInspectorPropData.New(Cat, sld7SegTester, 'SlantAngle').DisplayName := 'Slanting angle';
+ TJvInspectorPropData.New(Cat, sld7SegTester, 'Margin');
+ Cat.Expanded := True;
+ TJvInspectorPropData.New(insp7SegTester.Root, sld7SegTester, 'Text');
+ end;
procedure TfrmExampleSegmentedLEDDisplayMain.tmrLEDScrollerTimer(
|