[SzakiLaci]

The DLL-wrapper solution starts to form a shape. (See attached pic.)

Although there is still a long-long way to go, until all components work the same way as in Delphi.

Of course it will work only under Windows.

http://www.alphaskins.com/forum/uploads/monthly_07_2015/post-2409-037037900%201437909433_thumb.png

Surprisingly today I've realized, that in the new 10.x version there are many new lines like this:

{$IFNDEF FPC}

Does that mean Serge, that you're really working on freepascal implementation?

[SzakiLaci]

'Support' wrote:

I have tried it too, but with same result as in TsDBCtrlGrid. Can you show me how you doing that in the test-app?

Sorry, no time. Don't worry about that any more. Will use standard TDBCtrlGrid.

[SzakiLaci]

Tested to switch back the TsCtrlGrid component to Delphi's default TCtrlGrid >>

and it's WORKING how it should!!!

So that means AlphaSkin is causing this mess.

[SzakiLaci]

'Support' wrote:

I will check it soon, after the nearest relase.

Maybe we will be able to use the Visible property also.

Sounds great! Thanks in forward… 🙂

An other guy reported me, it's working under TurboDelphi too. So the problem seems to be at Delphi 7 base code. Maybe you can override it.

In between I've tried an other solution:

– setting TsDBLabel-s Autosize property to true, and catch the DataField's OnGetText to allow any Text printed only if necessary… but that's a failure too.

Code:

procedure TFrm_NetRendelesek.DSrendSZTORNOZVAGetText(Sender: TField;
var Text: String; DisplayText: Boolean);
begin
DisplayText := (DSrend.Active and not DSrendSZTORNOZVA.IsNull);
Text := ifThen(DisplayText, 'S Z T O R N Ó Z V A ! '+ftdp(DSrendSZTORNOZVA.AsDateTime) );
end;

So you are my last hope :blush:

[SzakiLaci]

Strange …

Yesterday I've tried under Delphi XE3 the OnPaintPanel version, and it's WORKING !

Well, I mean coloring TEdit componensts. Setting Visible row by row drops error.

[SzakiLaci]

Still no solution 🙁

I think I'm approaching this problem “from the wrong component”.

If I would like to color each component differently row by row >> maybe I should somehow override each component's OnPaint event, and change color and visibility there.

Already tried to put the code to every TsDBEdit's OnChange event, but no luck with that either.

How do I override a TsEdit or TsLabel ? … than change the color first, than decide if inherited should be called or not.

[SzakiLaci]

I've just found that:

http://www.delphigroups.info/2/29/385120.html

… will investigate more.

[SzakiLaci]

Thank you VERY much for your quick answer!

'Support' wrote:

I will add new “SelectionSkin” property for this purpose in the next version of the package.

Many Thanks 🙂 sounds great! Until then I'll just set '' (none) for skin, so it will stay unskinned >> that way the selection will be colored properly.

'Support' wrote:

This problem I can't solve quickly, unfortunately.. researching required. Maybe solution is available in the Net already?

That's bad… without this I have to drop 3 weeks of work if I have to change the DBCtrlGrid to some other alternative. (Is there any?)

I've searched the web based for 3 days on normal TCtrlGrid >> others had same problems too >> found no real “this is working and tested” type of solution.

[SzakiLaci]

'Support' wrote:

You can try the attached demo sources with AC v10.05

Glyphs may be grayed and ColorTone may be changed there, but looking of buttons is standard and not changed.

Thank you very much 🙂

Sadly I'm still using 8.42 version, and moving to a (newer) beta isn't an option for me.

So this will be suspended for a little while… will get back to it, when I have time to change to 10.x stable.

Cheers

PS: will send some donation soon

[SzakiLaci]

'Support' wrote:

I will improve a behavior of the Grayed property in the nearest release.

This property will work with HUEOffset and CustomColor properties.

Look the attached demo maybe that's what you want?

Wow. Great idea to color the GRAYED 🙂

Sadly I can not test it UNskinned. Is is working that way too?

[SzakiLaci]

Is it possible to color with Hue a bitButton's image too?

(Not just the background, but the picture too.)

I would like to red-flash a button to get attention to it.

[SzakiLaci]

News:

The programmer dropped back the project with:

– it is impossible because too many and difficult windows-handle calls / messages not available under Lazarus. 🙁

My other (more professional) programmer finally had time to look at it and confirmed the same result. 🙁

But he has a (genius) workaround-idea:

– compiling AC as a dll under Delphi > and writing a caller-class for it under Lazarus 😛

He's working on it since 2 weeks…

[SzakiLaci]

'HeDiBo' wrote:

The problem stems from this code: …

Thanks BD 😉

Sorry for the late respond. Forwarded your solution to the guy I've hired to work on it.

Cheers

[SzakiLaci]

'Support' wrote:

Sent by PM

Are there any 10.0 version skins, so I can try your Laz-komponent?

It seems I need a “MasterBitmap” .

Thanks !

_____________

OFF:

Funny to see “the beginnings of AC” 😀 When I've joined it was already far more advanced…

Yet, I could achieve following things:

1. extracted .RES file with icons > added

2. upgraded my Lazarus to the new 1.4RC1 … which already supports .RES files too

3. successfully installed the package.

4. Example project compiles successful (no skins yet) > but when I try to move the window > error:

Code:

Project project1 raised exception class 'External: SIGSEGV'.
In file 'sSkinProvider.pas' at line 7550:
if (TWMWindowPosChanged(Message).WindowPos.Flags and SWP_HIDEWINDOW = SWP_HIDEWINDOW) {$IFDEF D2011} and not Application.Terminated{$ENDIF} then

… So obviously there many many things to do. :a1:

5. tried to import the FULL (runtime) package (2014.10 version) with automatic “Delphi>to>Laz>comp” tool.

it was successful (at the End)

BUT it does not compile. Many Many errors. (fixed so far ca 12 units … but I've stacked with one.

[SzakiLaci]

'Support' wrote:

… If you want I can send you this package, …

Hi,

Nothing received yet… will you upload it somewhere, or did you try to send it through email?

Thanks

[SzakiLaci]

'Support' wrote:

Hello!

I have made a big attempt for support of Lazarus, but some things exists where I'm stopped.

If you want I can send you this package, maybe you can see a solution because you more experienced in using of FPC.

YES please ! 🙂

You know my email address … 😀

So basically:

1.) Do You allow me to send the code to the programmer I would hire ?

2.) Can I + this 1 programmer use the Lazarus version for our programs ?

(we do NOT resell the finished source code, but will share with YOU)

Cheers

[SzakiLaci]

'Support' wrote:

Hello Laci, you are migrated to Lazarus too? 😐

Dear Serge 😉

No, sadly I can not migrate my program to Lazarus yet, because of You 😛

I would re-buy your product and would continuously donate, if you would make AC work on it.

Do not need ALL components, just a few.

As mentioned before in an other topic > the free GR32 component pack has perfect procedures for image-handling, filters, etc.

So it's not necessary “to reinvent the wheel”, just use those ready-made function of GR32 🙂

It would be no shame to say: “for using AC under LAZ > install GR32 first” … and you're done 😉

My recommendation is:

– Why don't you just “offer” the free version to Lazarus community >> by asking them to help you migrate it to Lazarus ?

After they made it work for everyone >> you can develop the other (commercial) components based on those few easily !

Lazarus has now IBX too, so DB components could work the same way.

(Tried it, and it working perfectly the same way, as under D7 )

Sooo… how much money would you need to start / finish ? You can send out a newsletter to everyone to ask… :blush:

[SzakiLaci]

[SOLVED ! :D]

Solution:

1. Unistall every AlphaControls packages

2. Install Graphics32 “first”

3. Install AC back !

(always BUILD! every package, not just Compile)

Tried everything under VirtualBox > so I was able to “play” with everything without making any harm.

[SzakiLaci]

'Support' wrote:

Hi!

Maybe you can show a demo with the problem?

I can help better in this case…

Sadly can not “cut out” part of the source code from the whole program and make a working Demo from it. It would take as much time as rewriting the whole module to an other component. (GR32 TImage32 )

Sending just a screenshoot won't help you to find the bug at the component.

Thanks for trying to help… :wub:

[SzakiLaci]

I was happy too soon when I thought I finished 🙁

TsImage is showing NO 32 bit BMP pictures under win7 64 bit, if loaded directly into it. (Under XP everything seems to be fine.)

Have to test more … Agggghhhh 🙁 Hate to through away 3 month of work and start from the beginning because a component isn't working as it should 🙁 🙁 🙁

(Compiled with Delphi7)

[Author]

Posts