Quelle Frame11.pas
Sprache: Delphi
//----------------------------------------------------------------- //ToDo // //1. ..... // //------------------------------------------------------------------- unit Frame11;//---------------------------------------------------------------------------- // //---------------------------------------------------------------------------- interface //---------------------------------------------------------------------------- // //---------------------------------------------------------------------------- uses //---------------------------------------------------------------------------- //locals //---------------------------------------------------------------------------- //---------------------------------------------------------------------------- //globals //---------------------------------------------------------------------------- //---------------------------------------------------------------------------- // //---------------------------------------------------------------------------- type class (TFrame)constructor Create(Owner:TComponent);override;destructor Destroy;override;procedure Loader(Froot:JString;ImgL:TImageList);procedure SetHints();procedure PrintIt;procedure FindText(TS:TTreeView;Tx:JString);procedure FindPosition(var TS:TTreeView;Pos:TPoint);procedure positbyText(Find:JString);procedure positbyNode(SN:JString;Sender:TObject);procedure positbyPoint(P:TPoint;Fnr:integer );procedure positbyIndex(Nr:integer );function CreateSem(CSem:PAnsiChar):PLongTexts;function CreateNav(CNav:PAnsiChar):PLongTexts;procedure TreeClick(Sender:TObject);procedure ScanSources(var T:TTreeView);procedure ShowErrorMessages();procedure PrintInspector(var RE:TRichEdit);private public boolean ;integer ;integer ;end ;//---------------------------------------------------------------------------- // //---------------------------------------------------------------------------- implementation uses //---------------------------------------------------------------------------- //specific //---------------------------------------------------------------------------- //---------------------------------------------------------------------------- // //---------------------------------------------------------------------------- $R *.dfm}//------------------------------------------------------------------ } //- - } //- construct - } //- - } //------------------------------------------------------------------ } constructor TFrame1.Create(Owner:TComponent);begin inherited Create(Owner);'' ;nil ;nil ;end ;//------------------------------------------------------------------ } //- - } //- construct - } //- - } //------------------------------------------------------------------ } destructor TFrame1.Destroy;begin inherited Free;end ;//------------------------------------------------------------------ } //- - } //- Loader - } //- - } //------------------------------------------------------------------ } procedure TFrame1.Loader(Froot:JString;ImgL:TImageList);begin nil ;nil ;if not Empty(MDI.CNav,opt.R.Navigator) then begin end else begin //lex only? if Navigator<>nil then end ;if not Empty(MDI.CSem,opt.R.Semantik) then begin end else begin if Semantik<>nil then end ;//set read only if MDI.ReturnValue<>0 then end ;//------------------------------------------------------------------ } //- - } //- SetHints - } //- - } //------------------------------------------------------------------ } procedure TFrame1.ShowErrorMessages();var begin if Navigator<>nil then begin nil ;while ti<>nil do begin if Pos('Meldungen' ,ti.Text)>0 then begin end ;end ;if mn<>nil then begin //Navigator.TopItem.Collapse(true); if (mn.HasChildren) then end ;end ;end ;//---------------------------------------------------------------------------- //- display Inspector fot print - //- - //---------------------------------------------------------------------------- procedure TFrame1.PrintInspector(var RE:TRichEdit);var integer ;String ;begin with Inspector do begin for i:=0 to Items.Count-1 do begin '=' ;for j:=0 to S.Count-1 do if j>0 then rec:=rec+', ' +S[j]else Rec:=Rec+S[j];end ;end ;end ;//------------------------------------------------------------------ } //- - } //- SetHints - } //- - } //------------------------------------------------------------------ } procedure TFrame1.SetHints();begin if Navigator<>nil then if Navigator.TopItem<>nil then 'Navigation' +crlf+Navigator.TopItem.Text);if Semantik<>nil then if Semantik.TopItem<>nil then 'Semantik' +crlf+Semantik.TopItem.Text);if Explorer<>nil then if Explorer.TopItem<>nil then 'Explorer' +crlf+ExtractFileDir(RootFile));end ;//------------------------------------------------------------------ } //- - } //- Printer - } //- - } //------------------------------------------------------------------ } procedure TFrame1.PrintIt();begin if InSight(opt.R.Navigator) then 'Bitte auf das zu druckende Element fokussieren.' )else if InSight(opt.R.Semantik) then 'Bitte auf das zu druckende Element fokussieren.' )else if InSight(opt.R.Explorer) then 'Bitte auf das zu druckende Element fokussieren.' )end ;//------------------------------------------------------------------ } //- - } //- create PL treee - } //- - } //------------------------------------------------------------------ } function TFrame1.CreateSem(CSem:PAnsiChar):PLongTexts;var begin if not Empty(CSem,opt.R.Semantik) then else nil ,makexmlnode('leer' ,1,1,1));if Semantik.TopItem<>nil then if Semantik.TopItem.GetNext<>nil then else end ;//------------------------------------------------------------------ } //- - } //- create Nav tree - } //- - } //------------------------------------------------------------------ } function TFrame1.CreateNav(CNav:PAnsiChar):PLongTexts;var begin if not Empty(CNav,opt.R.Navigator) then begin end else nil ,makexmlnode('leer' ,1,1,1));if Navigator.TopItem<>nil then end ;//------------------------------------------------------------------ } //- - } //- scan sources - } //- - } //------------------------------------------------------------------ } procedure TFrame1.ScanSources(var T:TTreeView);var integer ;begin for i:=0 to Length(MDI.Source)-1 do if MDI.Source[i].Name<>'' then begin if T.TopItem=nil then begin end else begin end end ;end ;//------------------------------------------------------------------ } //- - } //- posit posit by text - } //- - } //------------------------------------------------------------------ } procedure TFrame1.positbyText(Find:JString);begin if Navigator.Items.Count>0 then begin if InSight(opt.R.Navigator) then if InSight(opt.R.Semantik) then if InSight(opt.R.Explorer) then end ;end ;//------------------------------------------------------------------ } //- - } //- posit posit by lnr, col - } //- - } //------------------------------------------------------------------ } procedure TFrame1.positbyNode(SN:JString;Sender:TObject);var begin if (SN<>'' )and (Navigator.Items.Count>0) then begin if (Sender<>Navigator)and InSight(opt.R.Navigator) then if (Sender<>Semantik)and InSight(opt.R.Semantik) then if (Sender<>Explorer)and InSight(opt.R.Explorer) then end end ;//------------------------------------------------------------------ } //- - } //- posit posit by Point in file - } //- - } //------------------------------------------------------------------ } procedure TFrame1.positbyPoint(P:TPoint;Fnr:integer );begin if (Navigator.Items.Count>0) then begin if InSight(opt.R.Navigator) then else if InSight(opt.R.Semantik) then else if InSight(opt.R.Explorer) then end ;end ;//------------------------------------------------------------------ } //- - } //- posit posit by Point in file - } //- - } //------------------------------------------------------------------ } procedure TFrame1.positbyIndex(Nr:integer );begin if InSight(opt.R.Navigator) then begin if (Navigator.Items.Count>Nr) then end else if InSight(opt.R.Semantik) then begin if (Semantik.Items.Count>Nr) then end else end ;//------------------------------------------------------------------ } //- - } //- fin by lnr, col - } //- - } //------------------------------------------------------------------ } procedure TFrame1.FindPosition(var TS:TTreeView;Pos:TPoint);var integer ;integer ;begin if TS=Navigator then else if Tree<>nil then begin if Tree.Items<>nil then begin while (i<Length(Tree.Items)) do begin if (F=Fil)and (abs(Pos.Y-li)<dsm)and (Pos.Y<>0) then begin end ;end end ;if tm<>-1 then begin if TS.Selected<>nil then end end ;end ;//------------------------------------------------------------------ } //- - } //- find by text - } //- - } //------------------------------------------------------------------ } procedure TFrame1.FindText(TS:TTreeView;Tx:JString);var integer ;integer ;boolean ;begin if TS=Navigator then else if (Tree<>nil )and (Tx>'' )and (Length(Tree^.Items)>1) then begin if LastText=Tx then begin //Find Text beyond last Position end ;while (i<Length(Tree^.Items))and (tm<0) do begin if Pos(Tx,Functor(tt.Text))>0 then begin end ;if i<Length(Tree^.Items) then begin end ;end ;if (tm>=0)and foundlast then begin //Wrap around while (i<Length(Tree^.Items)) do begin if Pos(Tx,Functor(tt.Text))>0 then begin end ;end ;end ;if tm<>-1 then begin end end ;end ;//------------------------------------------------------------------ } //- - } //- click on PL - } //- - } //------------------------------------------------------------------ } procedure TFrame1.TreeClick(Sender:TObject);begin if Sender=Navigator then else end ;//------------------------------------------------------------------ } //- - } //- Ende dieser Quelle - } //- - } //------------------------------------------------------------------ } end .quality 89%
¤ Dauer der Verarbeitung: 0.17 Sekunden
(vorverarbeitet)
¤ *© Formatika GbR, Deutschland
2026-03-28
