[shadow_tj]

im marking all the changes… and every time i nisert a new version of alphaskin to production i loko at the changes with beyond compare <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

this way i can also see the latest changes.. specialy the fix list is very short in the readme.. most of the time there is written fixed a lot of litle bugs.
but wich things are changed is not documented.. so i can see the changes myself.

also found something strange..

procedure TsDBDateEdit.EditingChange(Sender: TObject);
begin
if FDataLink.Editing and DefaultToday and (FDataLink.Field nil) and (FDataLink.Field.AsDateTime = 0) then
FDataLink.Field.AsDateTime := SysUtils.Now;
end;

but at somewhere else is used

procedure TsDBDateEdit.DataChange(Sender: TObject);
begin
if FDataLink.Field nil then begin
EditMask := GetDateMask;
Self.Date := FDataLink.Field.AsDateTime;
end
else begin
if csDesigning in ComponentState then begin
EditMask := '';
EditText := Name;
end
else begin
EditMask := GetDateMask;
if DefaultToday then Date := SysUtils.Date
else Date := 0;
end;
end;
end;

the data change is used SysUtils.date.. but EditingChange is using Now… the now has also a time stamp.
why is in the EditingChange not used SysUtils.date also ??

[shadow_tj]

litle problem is that i already changed the code production.
so can not change it back at this moment because we need to deliver production version these days.

so hopefully have more time in 2 weeks.

greetings,

shadow_tj

[shadow_tj]

here is a sample made with my adjusted alphaskin source.

when compile it with original v6.31 then both text labels are black instead of dimmed and black color.
prehaps its something that happens when you insert them on a lmd panel..

because when a both are placed directly on a form its indeed blended. but on the lmdpanel its both black. and not one blended other black <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

with the change of acWriteTextEx(FCommonData.FCacheBmp.Canvas, PacChar(Caption), true, rText, Fmt, FCommonData, ControlIsActive(FCommonData) and not ReadOnly);

its also blended on the lmdpanel.. so then its working always <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

[shadow_tj]

mmm we do not much wich restrictions on database.
all restrictions are made in the application.

but when you set a min max date, why not restrict that.. because its a propertie, you expect that it is working <img src="style_emoticons//smile.gif” style=”vertical-align:middle” emoid=”:)” border=”0″ alt=”smile.gif” />

QUOTE (Support @ May 13 2009, 08:30 AM)

Yes, you are right, but entered data must be controlled by DataSet constraints.. What you think?

sDBDateEdit control was derived from sCustomDateEdit control and have MinDate and MaxDate properties inherited. Problem may be easy solved if sDBDateEdit control will have the CheckOnExit property published like sDateEdit control, but maybe constraining in DataSet will be better?

[shadow_tj]

ok found out…

in the scurEdit is another component that draws a speedbutton.
TsCalcEdit is drawing its button but the sCurrencyEdit is not.

Looking close at the TsCalcEdit i noticed a differance between the 2.

TsCalcEdit has a line in the Create.

FDefBmpID := iBTN_CALC;

the CurrencyEdit has no FDefBMPID … when inserting this line to the create of the currencyedit.
then i can draw a button, if i remove this.. no more buttons.

Now is the question… is the CalcEdit the same as a CurrencyEdit ?
Differance is only a button…. because then is my problem solved.
and then i need to use the CalcEdit instead of the CurrencyEdit.

[shadow_tj]

found a strange thing…

constructor TsCurrencyEdit.Create(AOwner:TComponent);
begin
inherited Create(AOwner);
SkinData.COC := COC_TsCurrencyEdit;
Width := 80;

ControlState := ControlState + [csCreating];
try
Button.Parent := nil;
Button.Width := 0;
Button.Parent := Self;
finally
ControlState := ControlState – [csCreating];
end;
end;

In the create of TsCurrencyEdit …. the button width is set to 0
where is the button height and width set back to original size ??

When the glyphmode is set, and a imageindex > -1 then the
button should be shown … or is this more a hidden feature that im now trying to use ?

[shadow_tj]

nice this seems to be fixed in the 6.31 release

[shadow_tj]

this is not fixed yet in 6.31 ??
because i still have the problem with the 6.31 release

[shadow_tj]

that option may work if you got a solid color with no textures in it.
so when the background has only 1 color.

But when you have that, and you only use the same skin why not grab the color combination when you run your application.
there are tools to grab colors from applications.

The application i used most for getting the right color is ColorCop.

URL: http://colorcop.net/

with this tool you get a pipet to grabcolor settings from other applications.
this way you can grab the color you need and yust use that in the color property.

Your way also works, except when you add a other item on position 2,2 this is very close on the position of Menu`s.
so when you add a menu to your application you will get a other color.

greetings,

shadow_tj

[shadow_tj]

mmmmm

Then there is no other option then create your own component set.
Extent the SpinEdit with Database stuff.

Make a sample with TsEdit and TsDBEdit, the differances from those 2 are the stuff you need to create a database component.

Create a new Package, add a unit called TsDBSpinEdit.
Make the ancester TsSpinEdit, and add the same stuff you see in the TsDBEdit that is used for database stuff.

There are only some things you need to handle yourself, like a onchange event when you press the SpinButtons.

Will take some time to create your own skinned components for the first time.
But when you get the hang of it you will see that its not that hard and a lot of fun to.
You can create all kinds of skinned components yust by looking at the other components.

Only things that are realy hard is to add skinning for components that has nothing with skins.

greetings,

shadow_tj

[shadow_tj]

what do you want the skinned mainform color for ??

if you want to paint a panel with the same color of the mainform..
replace the TPanel with a TsPanel ( GeExprts tools are very usefull for that )

The sPanel has a Skindata property.. when the panels are dropped on a form.. yust make the SkinSection on “NONE”
then the panel will be transparent so you see the Form colors.

You can also set the skinsection to form, but must of the time you get the form color with a border.

Other options is to create a own SkinSection, where you only select the form background colors.
There are tools on the Alphaskin page to adjust the skins.
But must easiest way is to use SkinSection “None”

Or is there a other thing you want the Form color ??

[shadow_tj]

Using windows XP prof. english version

On my own pc, Windows Vista 64bit its also happening.
select a font, and scrol down… except on my vista machine its painting correctly after scrolling more fonts down.
So the first scroll … ( only one scroll movement.. after that iots painting correctly ).

On the xp machine its not painting correct after scrolling down, but when you select something in a white box the painting is working again.

QUOTE (Support @ Apr 28 2009, 03:17 PM)

Thank you for files, you are using Vista or XP?

[shadow_tj]

Same answer as in the Alphaskins section of this forum…

in the skinmanager there is a property called SkinningRules.

there is the options,

[srStdForms,srStdDialogs,srThirdParty]

if you put the srStdForms on false, then the forms must not be skinned.
Thirdparty controls can be selected also.. so you can select wich control may and may not be skinned.
press the … button of the property`s and you get a form where you can select / deselect thirdparty items for skinning.

greetings,

Shadow_tj

[shadow_tj]

DBSpinEdit is not made by delphi.

there are some solutions for that.

make your own DBSpinEdit.
if you dont know how to make them there are some other tools that has them

WWDbSpinEdit or LMDDBSpinEdit..

there is probably no sDBSpinEdit.. because there is also not a standard delphi version.

If you dont wanne use thirthparty tools, and create your own.
but dont know how to make one.. give me a email then i will create one for yah

[shadow_tj]

when you have your skins internal..
dubbel click on your skin provider. ( then you can insert your skins to internal skins with the popscreen the pops up ).

then you can set the internal skin by adding the SkinName in the Skinprovider.

SkinProvider1.SkinName := 'BlueIce (internal)';

notice the tekst … [ '(internal)' ] this is when your skins are internal skins.
if you only add BlueIce.. then you use the skin from the skin folder.

also dont forget to check that the skinprovider is still active <img src="style_emoticons//wink.gif” style=”vertical-align:middle” emoid=”;)” border=”0″ alt=”wink.gif” />

[shadow_tj]

prehaps im not clear on describing the problem.
drawing the glyph is not working… height width are screwed… got a 2pixel height speedbutton.

also got a piece of example code, that can explain a lot more then i can write down.

Also the left of the speedbutton is bit strange… looks like it 8 pixels to far to the right side.

greetings,

Shadow_tj

[shadow_tj]

what i can see is that the Button Height and width are screwed.
when i set them manual.. the i can set them back to

height := 16;
width := 16;

only problem is the left… looks like the speedbutton is 8 pixels to far to the right side.

[shadow_tj]

there are images on the speedbuttons yes.

QUOTE (Support @ Apr 21 2009, 06:00 PM)

In the v5.23 code we can see this :

CODE

procedure TsSpeedButton.ActionChange(Sender: TObject; CheckDefaults: Boolean);
begin
  if Glyph.Empty {v4.72} and (TCustomAction(Sender).ActionList.Images nil) and (TCustomAction(Sender).ImageIndex > -1) then Glyph.Assign(nil); // v4.44
  inherited ActionChange(Sender, CheckDefaults);
  if Sender is TCustomAction then DoActionChanging(Self, TCustomAction(Sender));
  FCommonData.Invalidate;
end;

And we hasn't a checking of the TCustomAction(Sender).ActionList there too <img src="style_emoticons//blush.gif” style=”vertical-align:middle” emoid=”:blush:” border=”0″ alt=”blush.gif” />
Seems, you hadn't error in the v5.23 because Glyph property was not empty?

[Author]

Posts