Diese Seite mit anderen teilen ...

Informationen zum Thema:
Forum:
WinDev Forum
Beiträge im Thema:
4
Erster Beitrag:
vor 2 Jahren, 6 Monaten
Letzter Beitrag:
vor 2 Jahren, 6 Monaten
Beteiligte Autoren:
Michael Drechsel, GuenterP, Piet van Zanten

[WD20] Table - Save the column configuration

Startbeitrag von Michael Drechsel am 15.12.2015 14:56

Hi,

for some reasons I can´t use the build-in function to save my table column configuration.
Is there an easy way to put this in an *.ini file ?

Antworten:

Hi Michael,

Perhaps you can use InitParameter, LoadParameter, SaveParameter.

Regards,
Piet

von Piet van Zanten - am 16.12.2015 15:00
Hi Piet,

thats clear.

But I am searching for "TablesavemyConfiguration" and "Tablerestoremyconfiguration" or something similar.

von Michael Drechsel - am 16.12.2015 15:01
Hi Michael, I never heard of such a request, but it's a valid idea! I think, it should be not too hard to develop both functions based on my ResetColumnConfiguration function. This function restores the original configuration, based on InitialWidth, InitialVisible and recalculates the width of each column based on the current width of the Table control (-18 pixels for the width of the vertical scrollbar). Note: this function works only, if the anchoring of all columns adds up to 100% !


PROCEDURE ResetColumnConfiguration()

TC,TX, TW, TD are int
PopName is string = PopupField()
TN is string

TC = TableCount(PopName,toColumn)

FOR TX = 1 TO TC
TN = TableEnumColumn(PopName,TX)
TableMoveColumn(PopName,TN,TX)
IF {PopName+"."+TN,indControl}..InitialVisible = False THEN
{PopName+"."+TN,indControl}..Visible = False
ELSE
{PopName+"."+TN,indControl}..Visible = True
END
END

FOR TX = 1 TO TC
TN = TableEnumColumn(PopName,TX)
{PopName+"."+TN,indControl}..Width = {PopName+"."+TN,indControl}..InitialWidth
IF {PopName+"."+TN,indControl}..Visible = True THEN
TW += {PopName+"."+TN,indControl}..Width
END
END

TD = {PopName,indControl}..Width - TW - 18 // 18 ~= Width of vertical scrollbar of Table
FOR TX = 1 TO TC
TN = TableEnumColumn(PopName,TX)
{PopName+"."+TN,indControl}..Width += TD * {PopName+"."+TN,indControl}..AnchorRateWidth / 1000
END

RETURN



von GuenterP - am 16.12.2015 15:24
Zur Information:
MySnip.de hat keinen Einfluss auf die Inhalte der Beiträge. Bitte kontaktieren Sie den Administrator des Forums bei Problemen oder Löschforderungen über die Kontaktseite.
Falls die Kontaktaufnahme mit dem Administrator des Forums fehlschlägt, kontaktieren Sie uns bitte über die in unserem Impressum angegebenen Daten.