Hi Boki,
take your time. Meanwhile I am using the OnCellColoring event.
coasting
- Bergsoft Forum
- → Viewing Profile: Posts: coasting
Community Stats
- Group Members
- Active Posts 29
- Profile Views 19,192
- Age 59 years old
- Birthday September 26, 1966
-
Gender
Male
-
Location
Germany
0
Neutral
User Tools
Friends
coasting hasn't added any friends yet.
Latest Visitors
Posts I've Made
In Topic: OnSlideColoring
06 May 2010 - 09:28 PM
In Topic: OnSlideColoring
04 May 2010 - 09:16 PM
Hi Boki,
nope, doesn't help :/ Did you try yourself? Still all slides are Red. When clicking through the slides the focused one is painted correct but all other slides will then be painted in same color...!?, i.e. the slide with focus is defining the color of the other ones. Any other hint?
Many thx
coasting
nope, doesn't help :/ Did you try yourself? Still all slides are Red. When clicking through the slides the focused one is painted correct but all other slides will then be painted in same color...!?, i.e. the slide with focus is defining the color of the other ones. Any other hint?
Many thx
coasting
In Topic: OnSlideColoring
02 May 2010 - 01:17 PM
Hi
ok, I took ADO Demo3 as a base, switched DBGridView2 to gsSlides and put in the following code:
Result is that all slides are painted clRed. When clicking through the slides color of all slides is changing. What am I doing wrong?
coasting
ok, I took ADO Demo3 as a base, switched DBGridView2 to gsSlides and put in the following code:
CODE
procedure TForm1.DBGridView2SlideColoring(Sender: TObject; Index: Integer;
var SlideColor, GridColor: TColor; SlideState: TSlideState);
begin
if DataSource2.DataSet.FieldByName('OrderId').AsInteger <= 19 then
SlideColor := clRed;
if DataSource2.DataSet.FieldByName('OrderId').AsInteger = 20 then
SlideColor := clYellow;
if DataSource2.DataSet.FieldByName('OrderId').AsInteger >= 21 then
SlideColor := clGreen;
end;
var SlideColor, GridColor: TColor; SlideState: TSlideState);
begin
if DataSource2.DataSet.FieldByName('OrderId').AsInteger <= 19 then
SlideColor := clRed;
if DataSource2.DataSet.FieldByName('OrderId').AsInteger = 20 then
SlideColor := clYellow;
if DataSource2.DataSet.FieldByName('OrderId').AsInteger >= 21 then
SlideColor := clGreen;
end;
Result is that all slides are painted clRed. When clicking through the slides color of all slides is changing. What am I doing wrong?
coasting
In Topic: OnSlideColoring
01 May 2010 - 09:42 PM
Hi
thx. My intention is to paint each slide background in a different color. Maybe the way I am trying to do it is wrong. Thx yr help.
coasting
thx. My intention is to paint each slide background in a different color. Maybe the way I am trying to do it is wrong. Thx yr help.
coasting
In Topic: Slides Editor
01 May 2010 - 09:33 PM
Hi
thx, yes SlideBounds property of the column is doing that. Overlooked this one. Thx thats sufficient for me. Another 'nice to have' feature would be to implement a free positioning of the fields regardless of the gridsize. Like it is possible in VCL FormDesigner when holding the ALT key.
coasting
thx, yes SlideBounds property of the column is doing that. Overlooked this one. Thx thats sufficient for me. Another 'nice to have' feature would be to implement a free positioning of the fields regardless of the gridsize. Like it is possible in VCL FormDesigner when holding the ALT key.
coasting
- Bergsoft Forum
- → Viewing Profile: Posts: coasting
- Privacy Policy



Find content