ਨਵਾਂ

ਵਰਚੁਅਲ ਟ੍ਰੀ ਵਿ View: ਡੇਲਫੀ ਤੀਜੀ ਪਾਰਟੀ ਓਪਨ ਸੋਰਸ ਕੰਪੋਨੈਂਟ

ਵਰਚੁਅਲ ਟ੍ਰੀ ਵਿ View: ਡੇਲਫੀ ਤੀਜੀ ਪਾਰਟੀ ਓਪਨ ਸੋਰਸ ਕੰਪੋਨੈਂਟ



We are searching data for your request:

Forums and discussions:
Manuals and reference books:
Data from registers:
Wait the end of the search in all databases.
Upon completion, a link will appear to access the found materials.

01of 03

ਵਰਚੁਅਲ ਟ੍ਰੀ ਵਿiew ਬਾਰੇ

ਵਰਚੁਅਲ ਟ੍ਰੀ ਝਲਕ

ਹਿੱਸੇ ਦਾ ਉਦੇਸ਼ ਵਰਗਾ ਕੋਈ ਰੁੱਖ ਝਲਕ ਚੀਜ਼ਾਂ ਦੀ ਇੱਕ ਲੜੀਵਾਰ ਸੂਚੀ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਨਾ ਹੈ. ਸਭ ਤੋਂ ਆਮ ਜੋ ਤੁਸੀਂ ਵਰਤਦੇ ਹੋ ਅਤੇ ਹਰ ਰੋਜ਼ ਦੇਖਦੇ ਹੋ ਉਹ ਹੈ ਜੋ ਵਿੰਡੋਜ਼ ਐਕਸਪਲੋਰਰ ਵਿੱਚ ਵਰਤਿਆ ਜਾਂਦਾ ਹੈ ਜੋ ਤੁਹਾਡੇ ਫਾਈਲ ਸਿਸਟਮ ਤੇ ਫੋਲਡਰ ਪ੍ਰਦਰਸ਼ਤ ਕਰਨ ਲਈ (ਅਤੇ ਹੋਰ).

ਡੈਲਫੀ ਟੀ ਟ੍ਰੀਵਿiew ਕੰਟਰੋਲ ਦੇ ਨਾਲ ਆਇਆ ਹੈ, ਟੂਲ ਪੈਲੈਟ ਦੇ "ਵਿਨ 32" ਭਾਗ ਤੇ ਸਥਿਤ ਹੈ. ComCtrls ਯੂਨਿਟ ਵਿੱਚ ਪ੍ਰਭਾਸ਼ਿਤ, TTreeView ਤੁਹਾਨੂੰ ਕਿਸੇ ਵੀ ਕਿਸਮ ਦੀਆਂ ਆਬਜੈਕਟ ਦੇ ਕਿਸੇ ਵੀ ਮਾਂ-ਪਿਓ-ਬੱਚੇ ਦੇ ਰਿਸ਼ਤੇ ਨੂੰ ਪੇਸ਼ ਕਰਨ ਦੀ ਆਗਿਆ ਦੇਣ ਦਾ ਇੱਕ ਵਧੀਆ ਕੰਮ ਕਰਦਾ ਹੈ.

ਟੀਟੀਰੀਵਿiew ਵਿੱਚ ਹਰੇਕ ਨੋਡ ਵਿੱਚ ਇੱਕ ਲੇਬਲ ਅਤੇ ਇੱਕ ਵਿਕਲਪਿਕ ਬਿੱਟਮੈਪਡ ਚਿੱਤਰ ਹੁੰਦਾ ਹੈ- ਅਤੇ ਟੀਟ੍ਰੀਨੋਡ ਆਬਜੈਕਟ ਇੱਕ ਟੀਟੀਰੀਵਿiew ਕੰਟਰੋਲ ਵਿੱਚ ਇੱਕ ਵਿਅਕਤੀਗਤ ਨੋਡ ਦਾ ਵਰਣਨ ਕਰਦਾ ਹੈ.

ਹਾਲਾਂਕਿ ਜ਼ਿਆਦਾਤਰ ਕਾਰਜਾਂ ਲਈ ਕਾਫ਼ੀ ਸ਼ਕਤੀਸ਼ਾਲੀ ਹੈ ਜੇ ਤੁਹਾਡੀ ਐਪਲੀਕੇਸ਼ਨ ਲੜੀਵਾਰ ਡੇਟਾ, ਜਿਵੇਂ ਕਿ ਫੋਲਡਰ ਅਤੇ ਫਾਈਲਾਂ, ਐਕਸਐਮਐਲ structureਾਂਚਾ, ਕਿਸੇ ਵੀ ਚੀਜ਼ ਨੂੰ ਪ੍ਰਦਰਸ਼ਿਤ ਕਰਨ 'ਤੇ ਅਧਾਰਤ ਹੈ, ਤਾਂ ਤੁਹਾਨੂੰ ਜਲਦੀ ਹੀ ਇਹ ਅਹਿਸਾਸ ਹੋ ਜਾਵੇਗਾ ਕਿ ਤੁਹਾਨੂੰ ਹਿੱਸੇ ਵਰਗੇ ਦਰੱਖਤ ਦ੍ਰਿਸ਼ ਤੋਂ ਵਧੇਰੇ ਸ਼ਕਤੀ ਦੀ ਜ਼ਰੂਰਤ ਹੈ.

ਇਹ ਉਹ ਥਾਂ ਹੈ ਜਿੱਥੇ ਤੀਜੀ ਧਿਰ ਦੇ ਹਿੱਸੇ ਵਾਲੇ ਸੰਸਾਰ ਦਾ ਇਕ ਰਤਨ ਬਚਾਅ ਲਈ ਆਉਂਦਾ ਹੈ: ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew ਭਾਗ.

ਵਰਚੁਅਲ ਟ੍ਰੀ ਵਿiew

ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew, ਸ਼ੁਰੂ ਵਿੱਚ ਮਾਈਕ ਲੀਸ਼ਕੇ ਦੁਆਰਾ ਵਿਕਸਤ ਕੀਤਾ ਗਿਆ ਸੀ ਅਤੇ ਹੁਣ ਗੂਗਲ ਕੋਡ ਤੇ ਇੱਕ ਓਪਨ ਸੋਰਸ ਪ੍ਰੋਜੈਕਟ ਦੇ ਤੌਰ ਤੇ ਬਣਾਈ ਰੱਖਿਆ ਜਾਣਾ ਲਾਜ਼ਮੀ ਤੌਰ 'ਤੇ ਵਰਤੋਂ ਕਰਨ ਵਾਲਾ ਨਿਯੰਤਰਣ ਹੈ ਜੇ ਤੁਸੀਂ "ਨੋਡਜ਼" ਕਹਿ ਸਕਦੇ ਹੋ ਉਸ ਨਾਲ ਕੰਮ ਕਰਨ ਲਈ ਤਿਆਰ ਹੋ.

ਵਿਕਾਸ ਵਿੱਚ 13 ਸਾਲਾਂ ਤੋਂ ਵੱਧ ਖਰਚ ਹੋਣ ਦੇ ਨਾਲ, ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew ਡੇਲਫੀ ਮਾਰਕੀਟ ਲਈ ਸਭ ਤੋਂ ਵੱਧ ਪਾਲਿਸ਼, ਲਚਕਦਾਰ ਅਤੇ ਉੱਨਤ ਸਰੋਤ ਭਾਗਾਂ ਵਿੱਚੋਂ ਇੱਕ ਹੈ.

ਡੈਲਫੀ ਵਰਜਨ ਨੂੰ ਕਦੇ ਯਾਦ ਨਾ ਕਰੋ ਜਿਸ ਦੀ ਤੁਸੀਂ ਡੈਲਫੀ 7 ਤੋਂ ਵਰਤ ਰਹੇ ਹੋ ਨਵੀਨਤਮ ਸੰਸਕਰਣ (ਇਸ ਸਮੇਂ ਐਕਸਈ 3) ਦੇ ਲਈ ਤੁਸੀਂ ਇਸਦੀ ਵਰਤੋਂ ਕਰ ਸਕੋਗੇ ਅਤੇ ਇਸਦੀ ਸ਼ਕਤੀ ਨੂੰ ਵਰਤ ਸਕਦੇ ਹੋ. TVirtualStringTree ਅਤੇ TVirtualDrawTree (ਨਿਯੰਤਰਣ ਦੇ ਅਸਲ ਨਾਮ) ਤੁਹਾਡੀਆਂ ਐਪਲੀਕੇਸ਼ਨਾਂ ਵਿੱਚ.

ਇੱਥੇ ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew ਨਿਯੰਤਰਣ ਦੀਆਂ ਕੁਝ ਵਿਸ਼ੇਸ਼ਤਾਵਾਂ "ਕਿਉਂ ਵਰਤਣੀਆਂ ਹਨ".

  • ਬਹੁਤ ਛੋਟਾ ਮੈਮੋਰੀ ਫੁੱਟ ਪ੍ਰਿੰਟ.
  • ਬਹੁਤ ਤੇਜ਼.
  • ਵਰਚੁਅਲ-ਭਾਵ ਇਹ ਉਸ ਡੇਟਾ ਬਾਰੇ ਨਹੀਂ ਜਾਣਦਾ ਜਿਸਦਾ ਪ੍ਰਬੰਧਨ ਕਰਦਾ ਹੈ-ਸਿਰਫ ਆਕਾਰ. ਸਭ ਕੁਝ ਘਟਨਾਵਾਂ ਦੁਆਰਾ ਕੀਤਾ ਜਾਂਦਾ ਹੈ.
  • ਮਲਟੀ-ਕਾਲਮ ਵਿਚਾਰਾਂ ਦਾ ਸਮਰਥਨ ਕਰਦਾ ਹੈ
  • ਬਿੱਟਮੈਪਸ ਅਤੇ ਫੋਂਟ ਸਟਾਈਲ ਦੇ ਨਾਲ ਨੋਡ ਡਿਸਪਲੇਅ ਦੀ ਅਸਾਨ ਅਨੁਕੂਲਤਾ.
  • ਡਰੈਗ ਡ੍ਰੌਪ ਅਤੇ ਕਲਿੱਪਬੋਰਡ ਸਹਾਇਤਾ
  • ਰੁੱਖ ਦੇ ਹਰੇਕ ਨੋਡ ਦੀ ਆਪਣੀ ਚੈੱਕ ਕਿਸਮ ਹੋ ਸਕਦੀ ਹੈ (ਇੱਥੋਂ ਤੱਕ ਕਿ ਮਿਕਸਡ ਟ੍ਰਾਈ ਸਟੇਟ ਅੰਸ਼ਕ ਚੈਕਿੰਗ ਵੀ).
  • ਸੂਖਮ ਰੁੱਖ ਸਮੱਗਰੀ ਸੀਰੀਅਲ.
  • ਐਪਲੀਕੇਸ਼ਨ ਪਰਿਭਾਸ਼ਿਤ ਸੰਪਾਦਕਾਂ ਦੀ ਵਰਤੋਂ ਕਰਦਿਆਂ ਟ੍ਰੀ ਡੇਟਾ ਨੂੰ ਸੋਧੋ.

ਇਸ ਲੇਖ ਦੇ ਨਾਲ ਮੈਂ TVirtualStringTree ਨਿਯੰਤਰਣ ਦੀ ਵਰਤੋਂ ਕਰਦਿਆਂ ਲੇਖਾਂ ਨੂੰ ਕਿਵੇਂ ਸਟਾਈਲ ਕਰਨਾ ਹੈ ਬਾਰੇ ਇਕ ਲੜੀ ਸ਼ੁਰੂ ਕਰ ਰਿਹਾ ਹਾਂ.

ਸ਼ੁਰੂਆਤ ਲਈ, ਆਓ ਦੇਖੀਏ ਕਿ ਡੇਲਫੀ ਦੇ ਆਈਡੀਈ ਵਿੱਚ ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew ਨੂੰ ਕਿਵੇਂ ਸਥਾਪਤ ਕਰਨਾ ਹੈ.

02of 03

ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew ਕਿਵੇਂ ਸਥਾਪਤ ਕਰੀਏ

ਵਰਚੁਅਲ ਟ੍ਰੀ ਵਿiew

ਪਹਿਲਾਂ, ਮੁੱਖ ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew ਪੈਕੇਜ ਨੂੰ ਡਾਉਨਲੋਡ ਕਰੋ ("ਡਾਉਨਲੋਡਸ" ਦੇ ਅਧੀਨ).

ਤੁਸੀਂ ਇੱਕ ਜ਼ਿਪ ਫਾਈਲ ਡਾਉਨਲੋਡ ਕਰੋਗੇ ਜਿਸ ਵਿੱਚ ਸ੍ਰੋਤ ਕੋਡ, ਡੇਲਫੀ ਵਿੱਚ ਕੰਪੋਨੈਂਟ ਸਥਾਪਤ ਕਰਨ ਲਈ ਪੈਕੇਜ, ਕੁਝ ਡੈਮੋ ਅਤੇ ਕੁਝ ਹੋਰ ਚੀਜ਼ਾਂ ਹਨ.

ਪੁਰਾਲੇਖ ਦੀ ਸਮਗਰੀ ਨੂੰ ਕੁਝ ਫੋਲਡਰ ਵਿੱਚ ਅਣ-ਜ਼ਿਪ ਕਰੋ ਜਿੱਥੇ ਤੁਹਾਡੇ ਕੋਲ ਤੀਜੀ ਧਿਰ ਦੇ ਹੋਰ ਹਿੱਸੇ ਹਨ. ਮੈਂ "ਸੀ: ਯੂਜ਼ਰਸ ਪਬਲਿਕ ਡੌਕੂਮੈਂਟਸ ਡੇਲਫੀ rd ਆਰ " ਦੀ ਵਰਤੋਂ ਕਰ ਰਿਹਾ ਹਾਂ ਅਤੇ ਮੇਰੇ ਲਈ ਜਗ੍ਹਾ "ਸੀ: ਯੂਜ਼ਰਸ ਪਬਲਿਕ ਡੌਕੂਮੈਂਟ ਡੇਲਫੀ rd ਆਰਡ irt ਵਰਚੁਅਲ ਟ੍ਰੀਵਿviewਵਿV .1..1.०" ਹੈ

ਇੱਥੇ ਹੈ ਕਿ ਡੇਲਫੀ ਐਕਸਈ 3 / ਆਰਏਡੀ ਸਟੂਡੀਓ ਐਕਸ ਈ 3 ਵਿੱਚ ਵਰਚੁਅਲ ਟ੍ਰੀਵਿ to ਨੂੰ ਕਿਵੇਂ ਸਥਾਪਤ ਕਰਨਾ ਹੈ

  1. ਪ੍ਰੋਜੈਕਟ ਸਮੂਹ ਨੂੰ ਖੋਲ੍ਹੋ "ਪੈਕੇਜ ਰੈਡ ਸਟੂਡੀਓ XE2 ਰੈਡ ਸਟੂਡੀਓ XE3.groupproj".
  2. "ਵਰਚੁਅਲਟ੍ਰੀਜ਼ ਡੀ 16.ਬੀਪੀਐਲ" ਤੇ ਸੱਜਾ ਕਲਿੱਕ ਕਰੋ ਅਤੇ "ਇੰਸਟੌਲ ਕਰੋ" ਤੇ ਕਲਿਕ ਕਰੋ.
  3. "ਟੂਲਜ਼> ਵਿਕਲਪ> ਵਾਤਾਵਰਣ ਵਿਕਲਪ> ਡੇਲਫੀ ਵਿਕਲਪ> ਲਾਇਬ੍ਰੇਰੀ> ਲਾਇਬ੍ਰੇਰੀ ਮਾਰਗ> ..." ਤੇ ਜਾਓ. ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew ਦੇ "ਸਰੋਤ" ਫੋਲਡਰ ਵਿੱਚ ਬ੍ਰਾਉਜ਼ ਕਰੋ, "ਓਕੇ", "ਐਡ", "ਓਕੇ", "ਓਕੇ" ਦਬਾਓ.
  4. ਪ੍ਰੋਜੈਕਟ ਨੂੰ ਸੇਵ ਕਰੋ. ਫਾਈਲ - ਸਭ ਨੂੰ ਬੰਦ ਕਰੋ.

ਇੱਕ ਵਾਰ ਸਥਾਪਤ ਹੋ ਜਾਣ ਤੋਂ ਬਾਅਦ, ਤੁਸੀਂ ਟੂਲ ਪੈਲੇਟ ਦੇ "ਵਰਚੁਅਲ ਨਿਯੰਤਰਣ" ਭਾਗ ਵਿੱਚ ਤਿੰਨ ਹਿੱਸੇ ਪਾਓਗੇ:

  • TVirtualStringTree - ਮੁੱਖ ਨਿਯੰਤਰਣ ਜਿਸ ਦੀ ਤੁਸੀਂ ਵਰਤੋਂ ਕਰੋਗੇ - ਆਪਣੇ ਆਪ ਨੋਡ ਕੈਪਸ਼ਨਾਂ ਦਾ ਪ੍ਰਬੰਧਨ ਕਰਦਾ ਹੈ.
  • TVirtualDrawTree - ਐਪਲੀਕੇਸ਼ਨ ਨੂੰ ਰੁੱਖ ਦੀ ਖਿੜਕੀ ਵਿੱਚ ਆਪਣੀ ਖੁਦ ਦੀਆਂ ਚੀਜ਼ਾਂ ਖਿੱਚਣ ਦੀ ਆਗਿਆ ਦਿੰਦਾ ਹੈ.
  • TVTHeaderPopupMenu - ਕਾਲਮਾਂ ਦੀ ਦਿੱਖ ਬਦਲਣ ਲਈ ਵਰਤੇ ਜਾਣ ਵਾਲੇ ਸਿਰਲੇਖ ਪੌਪ-ਅਪ ਨੂੰ ਲਾਗੂ ਕਰਨ ਦਾ ਇੱਕ visੁਕਵਾਂ ਤਰੀਕਾ ਪ੍ਰਦਾਨ ਕਰਦਾ ਹੈ.
03of 03

ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew "ਹੈਲੋ ਵਰਲਡ" ਉਦਾਹਰਣ

ਵਰਚੁਅਲ ਟ੍ਰੀ ਵਿiew

ਇੱਕ ਵਾਰ ਡੇਲਫੀ / ਰੈਡ ਸਟੂਡੀਓ ਆਈਡੀਈ ਵਿੱਚ ਵਰਚੁਅਲ ਟ੍ਰੀਵਿiew ਪੈਕੇਜ ਸਥਾਪਤ ਹੋਣ ਤੋਂ ਬਾਅਦ, ਆਓ ਡਾਉਨਲੋਡ ਕੀਤੇ ਪੈਕੇਜ ਤੋਂ ਨਮੂਨਾ ਪ੍ਰੋਜੈਕਟ ਨੂੰ ਚਲਾਉਣ ਲਈ ਇਹ ਵੇਖਣ ਲਈ ਕਿ ਕੀ ਸਭ ਕੁਝ ਕੰਮ ਕਰਦਾ ਹੈ ਜਾਂ ਨਹੀਂ.

" ਡੈਮੋਸ ਮਿਨੀਮਲ " ਦੇ ਅਧੀਨ ਸਥਿਤ ਪ੍ਰੋਜੈਕਟ ਨੂੰ ਲੋਡ ਕਰੋ, ਪ੍ਰੋਜੈਕਟ ਦਾ ਨਾਮ "ਮਿਨੀਮਲ.ਡੀਆਰਪੀ" ਹੈ.

ਚਲਾਓ.

ਵੇਖੋ ਕਿ ਚੁਣੇ ਹੋਏ ਇੱਕ ਵਿੱਚ ਬੱਚਿਆਂ ਦੇ ਨੋਡਾਂ ਵਜੋਂ ਸੈਂਕੜੇ (ਇੱਥੋਂ ਤੱਕ ਕਿ ਹਜ਼ਾਰਾਂ) ਨੋਡਾਂ ਨੂੰ ਜੋੜਨਾ ਕਿੰਨਾ ਤੇਜ਼ ਹੈ. ਅੰਤ ਵਿੱਚ, ਇਸ "ਹੈਲੋ ਵਰਲਡ" ਉਦਾਹਰਣ ਦਾ (ਮਹੱਤਵਪੂਰਣ ਸਥਾਪਨਾ) ਸਰੋਤ ਕੋਡ ਇੱਥੇ ਹੈ:

ਲਾਗੂ ਕਰਨ
ਕਿਸਮ
PMyRec = ^ TMyRec;
TMyRec = ਰਿਕਾਰਡ
ਕੈਪਸ਼ਨ: ਵਾਈਡਸਟ੍ਰਿੰਗ;
ਅੰਤ;
ਵਿਧੀ ਟਿਮੈਨਫਾਰਮ.ਫਾਰਮਕ੍ਰੀਏਟ (ਭੇਜਣ ਵਾਲਾ: ਟੌਬਜੈਕਟ);
ਸ਼ੁਰੂ
VST.NodeDataSize: = SizeOf (TMyRec);
VST.RootNodeCount: = 20;
ਅੰਤ;
ਵਿਧੀ ਟੀਐਮੈਨਫਾਰਮ.ਕਲੀਅਰਬੱਟਨ ਕਲਿਕ (ਭੇਜਣ ਵਾਲਾ: ਟੌਬਜੈਕਟ);
var
ਅਰੰਭ ਕਰੋ: ਮੁੱਖ;
ਸ਼ੁਰੂ
ਸਕ੍ਰੀਨ.ਕਰਸਰ: = crHourGlass;
ਕੋਸ਼ਿਸ਼ ਕਰੋ
ਅਰੰਭ: = ਗੇਟਟਿਕਟ;
ਵੀਐਸਟੀ.ਕਲੇਅਰ;
Label1.Caption: = format ('ਆਖਰੀ ਓਪਰੇਸ਼ਨ ਅਵਧੀ:% d ms', getTickCount - ਸ਼ੁਰੂਆਤ);
ਅੰਤ ਵਿੱਚ
ਸਕ੍ਰੀਨ.ਕਰਸਰ: = crDefault;
ਅੰਤ;
ਅੰਤ;
ਵਿਧੀ ਟੀਐਮੈਨਫੌਰਮ.ਐਡਬੱਟਨ ਕਲਿਕ (ਭੇਜਣ ਵਾਲਾ: ਟੌਬਜੈਕਟ);
var
ਗਿਣਤੀ: ਮੁੱਖ;
ਅਰੰਭ ਕਰੋ: ਮੁੱਖ;
ਸ਼ੁਰੂ
ਸਕ੍ਰੀਨ.ਕਰਸਰ: = crHourGlass;
ਵੀਐਸਟੀ ਡੋਟਰੀ ਨਾਲ
ਅਰੰਭ: = ਗੇਟਟਿਕਟ;
ਕੇਸ (ਭੇਜਣ ਵਾਲੇ ਨੂੰ ਟੀ ਬਟਨ ਵਜੋਂ). ਟੈਗ
0: // ਰੂਟਬੇਗਿਨ ਵਿਚ ਸ਼ਾਮਲ ਕਰੋ
ਗਿਣਤੀ: = StrToInt (ਸੋਧ 1. ਟੈਕਸਟ);
ਰੂਟ ਨੋਡਕਾਉਂਟ: = ਰੂਟ ਨੋਡਕਾਉਂਟ + ਕਾਉਂਟ;
ਅੰਤ;
1: // ਚਾਈਲਡ ਅਸਾਈਨਡ (ਫੋਕਸਡ ਨੋਡ) ਫੇਰ ਬਗੀਨ ਵਜੋਂ ਸ਼ਾਮਲ ਕਰੋ
ਗਿਣਤੀ: = StrToInt (ਸੋਧ 1. ਟੈਕਸਟ);
ਚਾਈਲਡਕਾਉਂਟਫੋਕਸਡਨੋਡ: = ਚਾਈਲਡਕઉન્ટਫੋਕਸਡ ਨੋਡ + ਕਾੱਨਟ;
ExpandedFocusedNode: = ਸਹੀ;
ਅਪ੍ਰਮਾਣਤ ਟੋਟੋਬੋਟਮ (ਫੋਕਸਡ ਨੋਡ);
ਅੰਤ;
ਅੰਤ;
Label1.Caption: = format ('ਆਖਰੀ ਓਪਰੇਸ਼ਨ ਅਵਧੀ:% d ms', getTickCount - ਸ਼ੁਰੂਆਤ);
ਅੰਤ ਵਿੱਚ
ਸਕ੍ਰੀਨ.ਕਰਸਰ: = crDefault;
ਅੰਤ;
ਅੰਤ;
ਵਿਧੀ ਟਿਮੈਨਫੌਰਮ.ਵੀਐਸਟੀਫ੍ਰੀਨੋਡ (ਭੇਜਣ ਵਾਲਾ: ਟੀਬੇਸ ਵਰਚੁਅਲਟ੍ਰੀ; ਨੋਡ: ਪੀ ਵਰਚੁਅਲਨੋਡ);
var
ਡੇਟਾ: ਪੀਐਮਾਈਆਰਕ;
ਸ਼ੁਰੂ
ਡੇਟਾ: = ਭੇਜਣ ਵਾਲਾ.ਗਟ ਨੋਡਡਾਟਾ (ਨੋਡ);
ਅੰਤਮ ਰੂਪ (ਡੇਟਾ ^);
ਅੰਤ;
ਵਿਧੀ ਟਿਮੈਨਫੌਰਮ.ਵੀਐਸਟੀ ਗੇਟਟੈਕਸਟ (ਭੇਜਣ ਵਾਲਾ: ਟੀਬੇਸ ਵਰਚੁਅਲ ਟ੍ਰੀ; ਨੋਡ: ਪੀ ਵਰਚੁਅਲ ਨੋਡ; ਕਾਲਮ: ਟੀਕੋਲਮ ਇੰਡੈਕਸ; ਟੈਕਸਟ ਟਾਈਪ: ਟੀ ਵੀ ਐਸ ਟੀ ਟੈਕਸਟ ਟਾਈਪ; ਵਾਰ ਸੈੱਲ ਟੈਕਸਟ: ਸਟਰਿੰਗ);
var
ਡੇਟਾ: ਪੀਐਮਾਈਆਰਕ;
ਸ਼ੁਰੂ
ਡੇਟਾ: = ਭੇਜਣ ਵਾਲਾ.ਗਟ ਨੋਡਡਾਟਾ (ਨੋਡ);
ਜੇ ਨਿਰਧਾਰਤ (ਡੇਟਾ) ਤਾਂ
ਸੈੱਲ ਟੈਕਸਟ: = ਡੇਟਾ.ਕੈਪਸ਼ਨ;
ਅੰਤ;
ਵਿਧੀ ਟਿਮੈਨਫੋਰਮ.ਵੀਐਸਟੀਆਈਨੀਟ ਨੋਡ (ਭੇਜਣ ਵਾਲਾ: ਟੀਬੇਸ ਵਰਚੁਅਲ ਟ੍ਰੀ; ਪੇਰੈਂਟਨੋਡ, ਨੋਡ: ਪੀ ਵਰਚੁਅਲ ਨੋਡ; ਵਾਰ ਇਨੀਰਿਅਲਸਟੇਟਸ: ਟੀਵੀਅਰਚੁਅਲਨੋਡ ਆਈਨੀਟਸਟੇਟਸ);
var
ਡੇਟਾ: ਪੀਐਮਾਈਆਰਕ;
ਅਰੰਭ ਕਰਨ ਵਾਲੇ ਭੇਜਣ ਵਾਲੇ ਦੇ ਨਾਲ
ਡਾਟਾ: = ਗੇਟਨੋਡੇਡਾਟਾ (ਨੋਡ);
ਡੈਟਾ.ਕੈਪਸ਼ਨ: = ਫਾਰਮੈਟ ('ਲੈਵਲ% d, ਇੰਡੈਕਸ% d', ਗੇਟਨੋਡਲੀਵਲ (ਨੋਡ), ਨੋਡ.ਇਨਡੇਕਸ);
ਅੰਤ;
ਅੰਤ;