Page 26 of 26

Re: Utility Plugin - for simple delphi components

PostPosted: Mon Aug 18, 2014 8:19 am
by HPW
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

Re: Utility Plugin - for simple delphi components

PostPosted: Wed Oct 07, 2015 1:29 pm
by HPW
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

Re: Utility Plugin - for simple delphi components

PostPosted: Sun Dec 27, 2015 3:08 pm
by mishem
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.

Re: Utility Plugin - for simple delphi components

PostPosted: Mon Dec 28, 2015 12:18 am
by HPW
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

Re: Utility Plugin - for simple delphi components

PostPosted: Mon Dec 28, 2015 6:53 am
by mishem

Re: Utility Plugin - for simple delphi components

PostPosted: Mon Dec 28, 2015 10:46 am
by HPW
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

Re: Utility Plugin - for simple delphi components

PostPosted: Mon Dec 28, 2015 1:26 pm
by mishem
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

Re: Utility Plugin - for simple delphi components

PostPosted: Mon Jan 11, 2016 2:15 am
by mishem
Hello.
I can not understand what makes a variable [hpwTabControlScaled]?

Re: Utility Plugin - for simple delphi components

PostPosted: Mon Jan 11, 2016 6:33 am
by HPW
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

Re: Utility Plugin - for simple delphi components

PostPosted: Mon Jan 11, 2016 1:53 pm
by HPW
Hello,

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

Regards

Re: Utility Plugin - for simple delphi components

PostPosted: Mon Jan 11, 2016 5:10 pm
by mishem
And these?

hpwDateTimePickScaled
hpwPanelScaled
hpwGroupBoxScaled
hpwRadioGroupScaled
hpwStatusBarScaled
hpwImgComboScaled
hpwImgListBoxScaled

Re: Utility Plugin - for simple delphi components

PostPosted: Tue Jan 12, 2016 10:24 am
by HPW
Hello,

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

Regards