OPM Viewer - Clone Controls demo

[lainz]

OPM Viewer is the Lazarus version of the OPM Packages website (https://packages.lazarus-ide.org/).

Is done with BGRAControls and the unit clone controls contributed by howardpc.

License: Modified LGPL

Download sources:
https://github.com/lazarusccr/LazarusPackagesViewer

ToDo (bugs):
- ScrollBox Limit (overflow of smallint limit of positions)
- If you select DataControls a division by zero is shown ???
- Try to display multiline text for descriptions (Need to Fix AutoSize of TBCLabel, and using word break option)

Please help me fixing the bugs

[balazsszekely]

Looks great! Thank you @lainz.

[Josh]

Hi

What version of BGRABITMAP and BGRACONTROLS is supported.

Just tried with 6.6.1 and form reports unknown property anchors.?

[howardpc]

@josh
Close Lazarus.
Open the file umain.lfm in a simple text editor.
Scroll down until you find the section beginning:

Code: Pascal  [Select][+][-]

1. object bccCategory: TBCComboBox

Somewhere a few lines below will be a line beginning

Code: Pascal  [Select][+][-]

1.   Anchors = [ ...

Delete that line completely and save the file.
Then try reopening the project in Lazarus.

[lainz]

Hi, or use dev branch of BGRAControls, there are just only 2 new commits, for that I did not make a new release.

[Josh]

Hi

Yep that solved it, removing the anchors from lfm.

Looks interesting, note the form position i think would be better pocenterscreen, not centerdesktop, as on multimonitor it is cut bewteen them.

The error when datacontrols selected, I think has something to do with autosizing causing many setbounds, if i comment out line in laztracer.pas line 50
//  if (length(Msg) div (length(Msg) div 10000))=0 then ; 

then it runs fine, it looks a strange line though.

Done some further test.
If I remove the autosizing and anchoring from the package panel, and it containg components, it works without having to commen out the laztracer.pas file.
But it then does not display well formatted.

I could be totally wrong though.

[winni]

Hi!

If you end up at this line

Code: Pascal  [Select][+][-]

1. if (length(Msg) div (length(Msg) div 10000))=0 then ;  

it is often the result of an infinit loop while the auto-sizing.

So it seems that you are right with "a lot of setbounds".

Winni

[lainz]

Nice to know I still can break the LCL  Like in the old days...

Anyways, I think I should use another way of placing the items, but I like ChildSizing because is easier...