Source language: Translate to:

Utility Plugin - for simple delphi components

Questions about NeoBook PlugIns

Moderator: Neosoft Support

Re: Utility Plugin - for simple delphi components

Postby HPW » Mon Aug 18, 2014 8:19 am

Hello,

The used Standard tabcontrol from delphi does not have a Color/Background property, so it is not possible.
Color comes from Windows theme.
You may use a colorfull Icon.

Regards
Hans-Peter
User avatar
HPW
 
Posts: 2510
Joined: Fri Apr 01, 2005 11:24 pm
Location: Germany

Re: Utility Plugin - for simple delphi components

Postby HPW » Wed Oct 07, 2015 1:29 pm

Just released hpwUtility 2.44:

http://www.hpwsoft.de/anmeldung/html1/n ... book4.html

Action: hpwGetFileDate - Get the date and time of a file.
Action: hpwSetFileDate - Set the date and time of a file.

See demo-pub page 10

Regards
Hans-Peter
User avatar
HPW
 
Posts: 2510
Joined: Fri Apr 01, 2005 11:24 pm
Location: Germany

Re: Utility Plugin - for simple delphi components

Postby mishem » Sun Dec 27, 2015 3:08 pm

Hello,
Erstellen Sie eine Registerkarte von einem Bild.
Bilder unter dem Namen 1.png, 2.png usw.

Code: Select all
Loop "1" "17" "[i]"
    SetVar "[Tabs]" "[Tabs]|"
    SetVar "[FileList]" "[FileList][PubDir][i].png|"
EndLoop

hpwUtilitySetVar "[hpwTabControlImageList]" "[FileList]"
hpwTabControlCreate "Rectangle1" "[Tabs]" "tpTop" "tsTabs" "61" "34" "" ""


OK.

Klicken Sie nun auf der Registerkarte, wenn ich, um das Bild zu ändern.
Mehr Bilder unter Namen 1_1.png, 2_2.png usw.

Code: Select all
SetVar "[FileList]" ""
SetVar "[Tabs]" ""
Loop "1" "17" "[i]"
    SetVar "[Tabs]" "[Tabs]|"
    If "[i]" "<>" "[Rectangle1_TabIndex]"
        SetVar "[FileList]" "[FileList][PubDir][i].png|"
    Else
        SetVar "[FileList]" "[FileList][PubDir][i]_[i].png|"
    EndIf
EndLoop
hpwTabControlSetTabList "Rectangle1" "[Tabs]" "[Tabs]" "[FileList]" "[Rectangle1_TabIndex]"


Wenn Sie auf die erste Registerkarte, die alle auf OK klicken. Das Bild ändert.
Wenn Sie auf einem anderen Reiter klicken, wird die Fehlermeldung:

Ungültige Grafikgröße

Was könnte das Problem sein?

Mit freundlichen Grüßen.
mishem
 
Posts: 574
Joined: Mon Oct 08, 2012 1:51 pm

Re: Utility Plugin - for simple delphi components

Postby HPW » Mon Dec 28, 2015 12:18 am

Hello,

your translated error Report is very iritating and unclear to me.
Your loops creates tab names with a empty names?
Your lists end with a pipe seperator?
What size have your graphics? Are the all the same size in Pixel-number?
Have a close look at the sampe pub how the tab is setup!

Regards
Hans-Peter
User avatar
HPW
 
Posts: 2510
Joined: Fri Apr 01, 2005 11:24 pm
Location: Germany

Re: Utility Plugin - for simple delphi components

Postby mishem » Mon Dec 28, 2015 6:53 am

mishem
 
Posts: 574
Joined: Mon Oct 08, 2012 1:51 pm

Re: Utility Plugin - for simple delphi components

Postby HPW » Mon Dec 28, 2015 10:46 am

Hello,

I think i know your Problem. The TabCreate and TabSet command create both the Delphi Imagelist needed for the tab control.
Therefor the first Image is pereloaded from the textlist to measure it's size to setup the width/height property of the imagelist.

So the questions is why your Images have not exactly the same size in Pixel?

When your code from button 2 performs:

Code: Select all
    If "[i]" "<>" "[Rectangle1_TabIndex]"
        SetVar "[FileList]" "[FileList][PubDir][i].png|"
    Else
        SetVar "[FileList]" "[FileList][PubDir][i]_[i].png|"
    EndIf


So your error is thrown when your if reach the "[Rectangle1_TabIndex]" and the Image is from different height and thow the error.

Regards
Hans-Peter
User avatar
HPW
 
Posts: 2510
Joined: Fri Apr 01, 2005 11:24 pm
Location: Germany

Re: Utility Plugin - for simple delphi components

Postby mishem » Mon Dec 28, 2015 1:26 pm

Hello,

So the questions is why your Images have not exactly the same size in Pixel?

I did not think it was important.

I change the size, everything works.
Once again, thank you.

Regards
mishem
 
Posts: 574
Joined: Mon Oct 08, 2012 1:51 pm

Re: Utility Plugin - for simple delphi components

Postby mishem » Mon Jan 11, 2016 2:15 am

Hello.
I can not understand what makes a variable [hpwTabControlScaled]?
mishem
 
Posts: 574
Joined: Mon Oct 08, 2012 1:51 pm

Re: Utility Plugin - for simple delphi components

Postby HPW » Mon Jan 11, 2016 6:33 am

Hello,

I had to check finally in the evening in plugin code.

[hpwTabControlScaled] was left in the Test-pub from an experimental code.
I think it is not really used in the code any more. You can forget it.

Regards
Hans-Peter
User avatar
HPW
 
Posts: 2510
Joined: Fri Apr 01, 2005 11:24 pm
Location: Germany

Re: Utility Plugin - for simple delphi components

Postby HPW » Mon Jan 11, 2016 1:53 pm

Hello,

After a look into the source I can confirm that it is not used.
Delete it from the pub.

Regards
Hans-Peter
User avatar
HPW
 
Posts: 2510
Joined: Fri Apr 01, 2005 11:24 pm
Location: Germany

Re: Utility Plugin - for simple delphi components

Postby mishem » Mon Jan 11, 2016 5:10 pm

And these?

hpwDateTimePickScaled
hpwPanelScaled
hpwGroupBoxScaled
hpwRadioGroupScaled
hpwStatusBarScaled
hpwImgComboScaled
hpwImgListBoxScaled
mishem
 
Posts: 574
Joined: Mon Oct 08, 2012 1:51 pm

Re: Utility Plugin - for simple delphi components

Postby HPW » Tue Jan 12, 2016 10:24 am

Hello,

The same, all from the experimental version.
You can delete them all.

Regards
Hans-Peter
User avatar
HPW
 
Posts: 2510
Joined: Fri Apr 01, 2005 11:24 pm
Location: Germany

Previous

Return to PlugIn Discussions

Who is online

Users browsing this forum: No registered users and 6 guests

cron