Poslední příspěvky

Stran: 1 [2] 3 4 ... 10
11
Obecné / Re:Náhrada TJvPageList a TJvStandardPage
« Poslední příspěvek od Delfin kdy 20-01-2019, 17:56:49 »
Len teraz neviem ako to myslíš.

Textovy popis bych smazal a pouzil ho v hintu vetvi VTV. Kdybys mel totiz napr. 5 urovni stromu, ukrojil bys tim textovym popisem velky kus "uzitne" plochy VTV.
12
Obecné / Re:Náhrada TJvPageList a TJvStandardPage
« Poslední příspěvek od Stanislav Hruška kdy 20-01-2019, 17:48:49 »
Len teraz neviem ako to myslíš. Áno, je to zdvojený údaj. Ale niekde mám vedľa seba dva stromy. Viď prílohu.
Ako na to?. Ten troj riadkový popis sa mi tiež nepáči. Je to len preto, aby som popis zarovnal s vetvami.


13
Obecné / Re:Náhrada TJvPageList a TJvStandardPage
« Poslední příspěvek od Delfin kdy 20-01-2019, 16:57:41 »
Ti z vas co tipovali, ze ten dementni delfin zase neco napise, se dockali :) Tentokrat tip ohledne UX:

14
Obecné / Re:Zmena parent komponentu medzi subFormular
« Poslední příspěvek od Stanislav Hruška kdy 20-01-2019, 14:23:18 »
Viete čo? Kašlite na to.
Uvážil som si, že lepšie bude vytvoriť jednotky kam presuniem väčsinu kódu. Ktovie aké netušené komplikácie by som musel riešiť pri podformulároch.
15
Obecné / Zmena parent komponentu medzi subFormular
« Poslední příspěvek od Stanislav Hruška kdy 20-01-2019, 12:16:12 »
Rozmýšľam nad vytvorením podformulárov pre hlavný formulár. Dokopy 12.
Ale teraz mám použitú techniku zmeny parent dotknutého komponentu, aby som ich nevytváral opakovane. Obsah aj kód.
Neviem, či táto technika bude fungovať ak si vytvorím podformuláre. Podľa mňa by to malo fungovať, ale skúsenosť s tým nemám.
Na vytváranie podformulárov používam techniku, ktorú má uverejnenú Radek Červinka a svojej strane https://delphi.cz/ - neviem to nájsť. Je to na spôsob:
Kód: [Vybrat]
class function CreateAsSubform(const ABasicPanel: TjstAdvPanel; const ATypeOwner, AIsFirst, ALayout: Byte): TfrmsubAddress;
16
Obecné / Re:Náhrada TJvPageList a TJvStandardPage
« Poslední příspěvek od Stanislav Hruška kdy 20-01-2019, 11:13:01 »
Prikladám ukážku. Pri zmene uzla sa mi zobrazí iný StandardPage
17
Obecné / Re:Náhrada TJvPageList a TJvStandardPage
« Poslední příspěvek od Stanislav Hruška kdy 20-01-2019, 10:52:54 »

Upresním:
Mám TJvPageControl (TMSAdvOfficePager). Naňom TJvPageList (TdvOfficePage). A na každej stránke niekoľko TJvStandardPage. Sú zarovnané vpravo. Tie si zobrazujem pomocou indexu. A niečo také by som rád aj pre TMSAdvOfficePager.
Je to starší projekt, tak len kopírujem :)
Kód: [Vybrat]
procedure TBasicVST.SetGUI;
begin
  if (cPoBeSObj.OriginalObject = cPoBeSObj.ActualObject) and not (VST.tag = 7) then
    Exit;
  PageList.ActivePage := StandardPage;  // Tu si zobrazím potrebnú stránku
  AdaptActions;
end;
18
Obecné / Re:Náhrada TJvPageList a TJvStandardPage
« Poslední příspěvek od vandrovnik kdy 20-01-2019, 10:35:06 »
Nevím, jestli rozumím - potřebuješ, aby se zobrazila nějaká stránka? Na to by mělo fungovat Stranky.ActivePage:=pgPokus; (možná to jde i přes index, ale mně vyhovuje tohle, nemusím pak spoléhat na indexy).
19
Obecné / Re:Náhrada TJvPageList a TJvStandardPage
« Poslední příspěvek od Stanislav Hruška kdy 20-01-2019, 10:31:23 »
Citace
Používám od TMS TAdvOfficePager napojený na TAdvOfficePagerOfficeStyler (ten mám na datamodulu).
To mám aj ja. Ale to len obsluhuje vzhľad!
Ja potrebuejm funkčnosť. Ide o to, že keď v TJvPageList nastavím index pre TJvStandardPage, tak sa mi strana automaticky zobrazí. Snáď nekecám o tých indexoch. Ide mi o to automatické zobrazenie.
Viem, že si tam môžem nahádzať panely a riadiť viditeľnosť. Ale keby bolo niečo hotové, tak by ma to potešilo.
20
Obecné / Re:Náhrada TJvPageList a TJvStandardPage
« Poslední příspěvek od vandrovnik kdy 20-01-2019, 10:22:41 »
Používám od TMS TAdvOfficePager napojený na TAdvOfficePagerOfficeStyler (ten mám na datamodulu).

S každou novou verzí Delphi si vždycky říkám, že se musím zbavit všech závislostí na JCL a JVCL, protože jsem snad nikdy nezažil, aby jejich instalace byla bezproblémová.
Stran: 1 [2] 3 4 ... 10