unit Modeler;
//-----------------------------------------------------------------
//
//1. Bracketing ausgeschaltet
//...
//
//-----------------------------------------------------------------
interface
//-----------------------------------------------------------------
//
//-----------------------------------------------------------------
uses
//-----------------------------------------------------------------
//local
//-----------------------------------------------------------------
GenDefs,OwnUtils,Frame11,Frame22,Frame33,Graphs,StatusThread,Command,
OptionClass,SearchReplace,AboutBox,Sample,ThreadExecute,Lizenz,
Utilities,Splash,Language,Natural,ColorDialog,MDIClass,Editor,FullScreen,
//-----------------------------------------------------------------
//global
//-----------------------------------------------------------------
Forms,Menus,Dialogs,Extctrls,Controls,ComCtrls,StdCtrls,Classes,
Types,Messages,Graphics,ImgList,ToolWin;
//-------------------------------------------------------
//Types
//-------------------------------------------------------
type
TModelFrame=
class(TForm)
MainMenu1:TMainMenu;
File1:TMenuItem;
Exit1:TMenuItem;
FontDialog:TFontDialog;
View1:TMenuItem;
Font2:TMenuItem;
Oeffne:TMenuItem;
Hilfe1:TMenuItem;
Hilfe2:TMenuItem;
ber1:TMenuItem;
Frame11:TFrame1;
Frame21:TFrame2;
Frame31:TFrame3;
SplitterVertical:TSplitter;
Farben:TMenuItem;
Speichere:TMenuItem;
Speichernunter:TMenuItem;
Syntaxhervorhebung1:TMenuItem;
Zeilennummern1:TMenuItem;
N2:TMenuItem;
N3:TMenuItem;
N4:TMenuItem;
N5:TMenuItem;
NeueVersion1:TMenuItem;
Druckvorschau:TMenuItem;
Edit1:TMenuItem;
Kopieren:TMenuItem;
Suchen1:TMenuItem;
Ausschneiden1:TMenuItem;
Einfuegen1:TMenuItem;
N6:TMenuItem;
Ersetzen1:TMenuItem;
N7:TMenuItem;
Allesauswhlen1:TMenuItem;
IconImageList:TImageList;
Default1:TMenuItem;
Navigation1:TMenuItem;
Vor1:TMenuItem;
Zur1:TMenuItem;
Home1:TMenuItem;
ToolBar1:TToolBar;
Oeffnen:TToolButton;
Template:TToolButton;
Speichern:TToolButton;
Zur:TToolButton;
Vor:TToolButton;
Home:TToolButton;
Split:TToolButton;
Previewbutton:TToolButton;
SaveDialog:TSaveDialog;
Optionen1:TMenuItem;
Simulation:TMenuItem;
Auf:TToolButton;
Ab:TToolButton;
Inspector1:TMenuItem;
Split1:TMenuItem;
N12:TMenuItem;
Neu1:TMenuItem;
N13:TMenuItem;
Blocknummern:TMenuItem;
SplitterHorizontal:TSplitter;
Auf1:TMenuItem;
Ab1:TMenuItem;
Ersetzenwiederholt1:TMenuItem;
Simulation1:TToolButton;
Exportieren1:TMenuItem;
Undo:TMenuItem;
N1:TMenuItem;
Aktivierung1:TMenuItem;
Execute1:TMenuItem;
Execute:TToolButton;
Hochformat:TToolButton;
Querformat:TToolButton;
PrintButton:TToolButton;
PDFButton:TToolButton;
Drucken1:TMenuItem;
Importieren1:TMenuItem;
N9:TMenuItem;
Leerzeichen1:TMenuItem;
ToolBar2:TToolBar;
Panel1:TPanel;
SwitchIDEPrint:TToolButton;
Sprache1:TMenuItem;
N8:TMenuItem;
Vollbild1:TMenuItem;
Suchen:TToolButton;
Ersetzen:TToolButton;
Zeilennummern:TToolButton;
SyntaxHighLite:TToolButton;
ToolButton1:TToolButton;
ToolButton2:TToolButton;
ToolButton3:TToolButton;
ToolButton4:TToolButton;
ApplicationIcons:TImageList;
ToolButton5:TToolButton;
ToolButton7:TToolButton;
ToolButton8:TToolButton;
ToolButton9:TToolButton;
PopupMenu1:TPopupMenu;
rckgngig2:TMenuItem;
ausschneiden2:TMenuItem;
kopieren22:TMenuItem;
einfgen2:TMenuItem;
N11:TMenuItem;
allesauswhlen2:TMenuItem;
N14:TMenuItem;
PopupMenu2:TPopupMenu;
allesauswhlen3:TMenuItem;
kopieren3:TMenuItem;
Kopieren2:TToolButton;
Ausschneiden:TToolButton;
Einfuegen:TToolButton;
ToolButton15:TToolButton;
UndoButton:TToolButton;
ToolButton10:TToolButton;
ToolButton12:TToolButton;
ToolButton13:TToolButton;
Lizenzerwerben1:TMenuItem;
ToolButton11:TToolButton;
Dateityp1:TMenuItem;
Oeffne2:TToolButton;
ToolButton14:TToolButton;
Feedback1:TMenuItem;
Indenting:TToolButton;
Indenting2:TMenuItem;
N15:TMenuItem;
ContextIT1:TMenuItem;
N16:TMenuItem;
N17:TMenuItem;
N10:TMenuItem;
N18:TMenuItem;
PopupMenu3:TPopupMenu;
drucken2:TMenuItem;
N19:TMenuItem;
drucken3:TMenuItem;
PopupMenu4:TPopupMenu;
drucken11:TMenuItem;
N20:TMenuItem;
verallgemeinern:TMenuItem;
insDetail1:TMenuItem;
drucken4:TMenuItem;
PopupMenu5:TPopupMenu;
drucken5:TMenuItem;
Zoomin:TToolButton;
Zoomout:TToolButton;
ZoomNormal: TToolButton;
procedure SemantikChange(Sender:TObject;Node:TTreeNode);
procedure NavigatorChange(Sender:TObject;Node:TTreeNode);
procedure GraphClick(Sender:TObject);
procedure GraphDblClick(Sender:TObject);
procedure FormMouseWheel(Sender:TObject;Shift:TShiftState;
WheelDelta:
Integer;MousePos:TPoint;
var Handled:
Boolean);
procedure Simulation1Click(Sender:TObject);
procedure InspectorClick(Sender:TObject);
Procedure UpDateInspector(LTP:PLongTexts;TT:TTreeNode);
procedure AbClick(Sender:TObject);
procedure AufClick(Sender:TObject);
procedure SetFrameOptions;
procedure SetWindowColors;
procedure SetWindowFonts;
Procedure RepairHistory();
procedure DisplayHistory();
function findinHistory(F:JString):
Integer;
Procedure SavetoHistory(F:JString);
procedure LoadfromHistory(Fn:JString);
procedure sortHistory();
procedure Setnavigation();
procedure SaveView();
procedure NavGetImageIndex(Sender:TObject;Node:TTreeNode);
procedure NavGetSelectedIndex(Sender:TObject;Node:TTreeNode);
procedure Font2Click(Sender:TObject);
function MakeFilters(filnam:JString):
Integer;
procedure OeffnenClick(Sender:TObject);
procedure Hilfe2Click(Sender:TObject);
procedure AboutClick(Sender:TObject);
procedure SplitterVerticalMoved(Sender:TObject);
procedure ProcessFile(Fn,Ft:JString);
procedure TreeClick(Sender:TObject);
procedure TreeSelChange(Sender:TObject;
var Key:
Word;Shift:TShiftState);
procedure FarbenClick(Sender:TObject);
procedure Zeilennummern1Click(Sender:TObject);
procedure SpeichernunterClick(Sender:TObject);
procedure Syntaxhighlight1Click(Sender:TObject);
procedure Backwards(Sender:TObject);
procedure Walk(Prev,this:TFramestate;F:Frames);
procedure Forwards(Sender:TObject);
procedure Homewards(Sender:TObject);
function Viewof(F:Frames):FrameView;
procedure DistributeFrames;
procedure GetFramePointers;
procedure SplitFrames(Sender:TObject);
procedure DrawBothImages;
procedure ExportCSV(Outname:JString);
procedure ExportXML(Outname:JString);
procedure ExportText(Outname:JString);
procedure ExportProgram(Outname:JString);
procedure ExportImage(Outname:JString);
procedure Importieren1Click(Sender:TObject);
procedure TreeDblClick(Sender:TObject);
procedure MaxFrame1(Sender:TObject);
procedure MaxFrame2(Sender:TObject);
procedure MaxFrame3(Sender:TObject);
procedure Druckereinstellung1Click(Sender:TObject);
procedure TemplateClick(Sender:TObject);
procedure NeueVersion1Click(Sender:TObject);
procedure KopierenClick(Sender:TObject);
procedure Allesauswhlen1Click(Sender:TObject);
procedure Ausschneiden1Click(Sender:TObject);
procedure Einfuegen1Click(Sender:TObject);
procedure SuchFunktion(Sender:TObject);
procedure Ersetzen1Click(Sender:TObject);
procedure ExplorerClick(Sender:TObject);
procedure PageControlChange(Sender:TObject);
procedure SetShortcuts;
procedure ShowFileTypes;
procedure getCommandLineParameters();
procedure Optionen1Click(Sender:TObject);
procedure PageControlDragDrop(Sender,Source:TObject;X,Y:
Integer);
procedure PageControlDragOver(Sender,Source:TObject;X,Y:
Integer;
State:TDragState;
var Accept:
Boolean);
procedure SetFrameIndex(TS:TTabSheet);
procedure SetAsParent(
var Sheet:TTabSheet;F:Frames);
function getallFiles(Files:AnsiString):
Integer;
procedure Frame11SemantikEnter(Sender:TObject);
Procedure DllWatcher(St:
Boolean);
procedure BlocknummernClick(Sender:TObject);
procedure FormShow(Sender:TObject);
procedure FormCreate(Sender:TObject);
procedure FormClose(Sender:TObject;
var Action:TCloseAction);
procedure SplitterHorizontalMoved(Sender:TObject);
procedure FeedBackDialogack1Click(Sender:TObject);
procedure Ersetzenwiederholt1Click(Sender:TObject);
procedure Frame11InspectorClick(Sender:TObject);
procedure Frame11InspectorKeyUp(Sender:TObject;
var Key:
Word;
Shift:TShiftState);
procedure Exportieren1Click(Sender:TObject);
procedure FormResize(Sender:TObject);
procedure SpeichernClick(Sender:TObject);
procedure GraphMouseMove(Sender:TObject;Shift:TShiftState;X,Y:
Integer);
function GraphCoordinates(G:TGraph;
var S:TTabSheet;
var F:TFrame;
P:TPoint):TPoint;
procedure FileTypeClick(Sender:TObject);
procedure MarkFileTypes(FTyp:JString);
procedure Honeypot();
inline;
procedure Realcheck();
inline;
procedure undoClick(Sender:TObject);
procedure Aktivierung1Click(Sender:TObject);
procedure ExecuteClick(Sender:TObject);
procedure ExecuteEnd(Sender:TObject);
procedure LizenzzeigenClick(Sender:TObject);
procedure Frame21SourceChange(Sender:TObject);
procedure ProvideExecutable();
procedure DruckvorschauClick(Sender:TObject);
procedure HochformatClick(Sender:TObject);
procedure QuerformatClick(Sender:TObject);
procedure PDFButtonClick(Sender:TObject);
procedure PrintButtonClick(Sender:TObject);
procedure ZoomChange(Sender:TObject);
procedure Frame31PageNavigatorClick(Sender:TObject);
procedure Leerzeichen1Click(Sender:TObject);
procedure ShowPreview();
procedure ShowIDE();
procedure resetMDI();
procedure setFrameStatus(Sender:TObject);
Procedure SwitchtoEnglish();
procedure Sprache1Click(Sender:TObject);
procedure Vollbild1Click(Sender:TObject);
procedure Exit1Click(Sender:TObject);
procedure setFrame11Ratio();
procedure setFrame3Ratio();
procedure FormattedFile(Fn:JString);
procedure Frame21FunktionKeyUp(Sender:TObject;
var Key:
Word;
Shift:TShiftState);
procedure Frame11ExplorerChange(Sender:TObject;Node:TTreeNode);
procedure SourceMouseDown(Sender:TObject;Button:TMouseButton;
Shift:TShiftState;X,Y:
Integer);
procedure SourceDblClick(Sender:TObject);
procedure FullscreenMouseDown(Sender:TObject;Button:TMouseButton;
Shift:TShiftState;X,Y:
Integer);
procedure Frame21FunktionMouseUp(Sender:TObject;Button:TMouseButton;
Shift:TShiftState;X,Y:
Integer);
procedure Frame21SourceSelectionChange(Sender:TObject);
procedure Frame11SplitterInspectorMoved(Sender:TObject);
procedure PageControlMouseMove(Sender:TObject;Shift:TShiftState;
X,Y:
Integer);
procedure Feedback1Click(Sender:TObject);
procedure SetActivePage(F:Frames;V:ViewType);
procedure LanguageProcessor(Fn:JString;LexOnly:
Boolean;cols:
Integer;
forcedll:JString);
destructor Destroy;override;
procedure checkedition();
function guesstime(filelen:
Integer;say:
Boolean):
Boolean;
inline;
procedure Lizenzerwerben1Click(Sender:TObject);
procedure inslist(S:TextString;
var TS:TextStrings);
procedure ComboBox1Change(Sender:TObject);
procedure ComboBox1Click(Sender:TObject);
procedure ComboBox1Notify();
function initSearchReplace(Search,Replace:JString;regex:
Boolean;
Kind:SeaRepFun):
Boolean;
procedure AskforSearchReplace();
procedure GuessEditortime(last:TDateTime;items:
Integer;
var val:
Integer);
procedure SavetoSourcestack();
procedure LoadfromSourcestack();
procedure IndentingClick(Sender:TObject);
procedure ContextIT1Click(Sender:TObject);
procedure SetEditorOptions;
public
//other dialogues
SearchReplaceDialog:TSearchReplace;
AboutDialog:TAboutBox;
SamplesDialog:TSamples;
ColorDialog:TColorForm;
Fullscr:TFullScreen1;
//machine
WinProductId,CPU,IP,IPaddr,EthernetAddr:JString;
//actual file infos
CStatus,ActDLLInfo:PAnsiChar;
//llnav,llsem,llcfa,lldfa:Integer;
Duration:
Integer;
Sep:JString;
//mousecontrol
Mousepressed:
Boolean;
Horizontalratio,Verticalratio:
Integer;
//checking
globtim:
Integer;
//drag&drop
SizeRect:TRect;
MouseButton:TMouseButton;
//threads
MyThread:TMyThread;
LastThread:TStatusThread;
Sourcestate:
Boolean;
Previousselstart:
Integer;
Previousfile:JString;
firsthistory:
boolean;
end;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
var
ModelFrame:TModelFrame;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
implementation
uses
//----------------------------------------------------------------------------
//specific
//----------------------------------------------------------------------------
Windows,SysUtils,ColorGrd,Grids,ValEdit,
Buttons,SyncObjs,Math,Jpeg,Printers,ShellApi,
Clipbrd,StrUtils,DateUtils,WideStrings;
//----------------------------------------------------------------------------
//
//----------------------------------------------------------------------------
{
$R *.dfm}
//------------------------------------------------------------------
//--
//FormCreate --
//--
//------------------------------------------------------------------
procedure TModelFrame.FormCreate(Sender:TObject);
var
Icf:TIcon;
begin
Closing:=false;
Opening:=true;
processing:=false;
SaveDialog:=
nil;
globtim:=0;
//FeedBackDialog:=nil;
Sep:=
'-';
LastMousePos.X:=0;
LastMousePos.Y:=0;
Inspectorkey:=
'';
//DBAccess.password:=MidStr(DBAccess.user,2,3);
//now create Dialogs
AboutDialog:=TAboutBox.Create(self);
SamplesDialog:=TSamples.Create(self);
SearchReplaceDialog:=TSearchReplace.Create(self);
ColorDialog:=TColorForm.Create(self);
Fullscr:=TFullScreen1.Create(self);
Fullscr.Image1.OnMouseDown:=FullscreenMouseDown;
Fullscr.Hide();
//licensing
Lizenz1.checklicense();
getCommandLineParameters();
//find file with license
lang:=Opt.R.Language;
Horizontalratio:=(100*SplitterVertical.left)
div width;
Verticalratio:=(100*SplitterHorizontal.Top)
div height;
Netflag:=false;
//
Caption:=Application.Title+
' '+Version_IDE;
//get Icon
Icf:=TIcon.Create;
if Application.Title=Title_Elbe
then
ApplicationIcons.GetIcon(1,Icf)
else
ApplicationIcons.GetIcon(0,Icf);
self.Icon.Assign(Icf);
AboutDialog.Icon.Assign(Icf);
Opt.Icon.Assign(Icf);
ColorDialog.Icon.Assign(Icf);
//
MDI:=TDocument.Create;
MDI.GC:=TGraph.Create(Opt.R.FontSize,Opt.R.LineThickness,Opt.R.FontColor,
Opt.R.BackgroundColor,Opt.R.FontName,Opt.R.FontStyle,17,
trans(lang,145,
'Kontrollflu�'));
MDI.GD:=TGraph.Create(Opt.R.FontSize,Opt.R.LineThickness,Opt.R.FontColor,
Opt.R.BackgroundColor,Opt.R.FontName,Opt.R.FontStyle,18,
trans(lang,146,
'Datenflu�'));
//
GetFramePointers;
SetFrameOptions;
RepairHistory();
MakeFilters(Opt.R.Infile);
//Resize Splash
Opt.R.Activationstart:=Opt.R.Activated;
Frame21.Source.CreateBackup:=Opt.R.CreateBackup;
Frame21.Source.OnDblClick:=SourceDblClick;
//language
Undo.Hint:=
'r�ckg�ngig machen';
Indenting.Hint:=
'CodeFormatierung';
with Opt
do begin
ValueList.TitleCaptions[0]:=
'Prozessor';
ValueList.TitleCaptions[1]:=
'Erweiterungen';
//get extensions
getValueList();
getfileassociations();
end;
if Opt.R.Language=english
then begin
SwitchtoEnglish();
lang:=english;
end;
//
Frame11.Navigator.OnKeyUp:=TreeSelChange;
Frame11.Semantik.OnKeyUp:=TreeSelChange;
//
Filelist:=
nil;
Previewselected:=false;
Presentationdone:=false;
Indenting2.OnClick:=IndentingClick;
Previousselstart:=0;
Previousfile:=
'';
firsthistory:=true;
end;
//------------------------------------------------------------------
//--
//destroy --
//--
//------------------------------------------------------------------
destructor TModelFrame.Destroy;
var
i:
Integer;
begin
//----------------------------------------------------------------------
//free frames
//----------------------------------------------------------------------
Closing:=true;
//----------------------------------------------------------------------
for i:=0
to length(ADHAndle)-1
do
FreeLibrary(ADHAndle[i]);
end;
//------------------------------------------------------------------
//--
//parameters from command line
//--
//------------------------------------------------------------------
procedure TModelFrame.getCommandLineParameters();
var
PS:JString;
i:
Integer;
begin
//------------------------------------------------
//look for parameters and catenate them
//------------------------------------------------
if ParamStr(1)<>
'' then begin //it must be a filename
PS:=
'';
for i:=1
to ParamCount
do begin
if PS>
'' then
PS:=PS+
' ';
PS:=PS+ParamStr(i);
end;
setl(Opt.R.Infile,PS);
end;
end;
//------------------------------------------------------------------
//--
//ProvideExecutable --
//--
//------------------------------------------------------------------
procedure TModelFrame.ProvideExecutable();
var
isf,isc:
Boolean;
begin
isf:=(LowerCase(ExtractFileExt(Frame21.Source.LoadedFile))=
'.bat')
or
(LowerCase(ExtractFileExt(Frame21.Source.LoadedFile))=
'.cmd');
isc:=(Opt.R.CommandFile>
'');
if isf
then
Execute1.Hint:=trans(lang,38,
'Diese Datei ausf�hren')
else if isc
then
Execute1.Hint:=trans(lang,39,
'das vordefinierte Stapel-Kommando ausf�hren');
Execute.Hint:=Execute1.Hint;
Execute.enabled:=isf
or isc;
Execute1.enabled:=Execute.enabled;
end;
//------------------------------------------------------------------
//--
//SetWindowColors --
//--
//------------------------------------------------------------------
procedure TModelFrame.SetWindowColors;
begin
//fonts and colors
Frame11.Navigator.Color:=Opt.R.BackgroundColor;
Frame11.Semantik.Color:=Opt.R.BackgroundColor;
Frame11.Explorer.Color:=Opt.R.BackgroundColor;
Frame21.Source.Color:=Opt.R.BackgroundColor;
Frame21.measures.Color:=Opt.R.BackgroundColor;
Frame21.Funktion.Color:=Opt.R.BackgroundColor;
Frame11.Inspector.Color:=Opt.R.BackgroundColor;
Frame31.ThumbnailPreview1.Color:=Opt.R.BackgroundColor;
Frame31.PrintPreview1.Color:=Opt.R.BackgroundColor;
end;
//------------------------------------------------------------------
//--
//SetWindowFonts --
//--
//------------------------------------------------------------------
procedure TModelFrame.SetWindowFonts;
var
F:TFont;
begin
F:=TFont.Create;
with F
do begin
Name:=Opt.R.FontName;
Style:=Opt.R.FontStyle;
Size:=Opt.R.FontSize;
Color:=Opt.R.FontColor;
end;
//fonts and colors
Frame11.Navigator.Font.Assign(F);
Frame11.Semantik.Font.Assign(F);
Frame11.Explorer.Font.Assign(F);
Frame11.Inspector.Font.Assign(F);
Frame21.Source.Font.Assign(F);
Frame21.Source.DefAttributes.Assign(F);
if Frame21.CFA<>
nil then
Frame21.CFA.Canvas.Font.Assign(F);
if Frame21.DFA<>
nil then
Frame21.DFA.Canvas.Font.Assign(F);
Frame21.measures.SelectAll;
Frame21.measures.Font.Assign(F);
Frame21.measures.DefAttributes.Assign(F);
Frame21.measures.SelLength:=0;
Frame21.Funktion.SelectAll;
Frame21.Funktion.Font.Assign(F);
Frame21.Funktion.DefAttributes.Assign(F);
Frame21.Funktion.SelLength:=0;
end;
//------------------------------------------------------------------
//--
//SetWinShow File Types --
//--
//------------------------------------------------------------------
procedure TModelFrame.ShowFileTypes;
var
i,j:
Integer;
M:TMenuItem;
Temp:JString;
Ft:
array of JString;
begin
setlength(Ft,length(extensions));
For i:=0
to length(extensions)-1
do
Ft[i]:=extensions[i].dllname;
For i:=0
to length(extensions)-2
do
For j:=i+1
to length(extensions)-1
do
if Ft[i]>Ft[j]
then begin
Temp:=Ft[j];
Ft[j]:=Ft[i];
Ft[i]:=Temp
end;
//create entries from history
For i:=0
to length(extensions)-1
do begin
M:=TMenuItem.Create(Dateityp1);
M.Caption:=Ft[i];
M.ImageIndex:=-1;
M.OnClick:=FileTypeClick;
Dateityp1.Add(M);
end;
//plain
M:=TMenuItem.Create(Dateityp1);
M.Caption:=
'-';
M.ImageIndex:=-1;
M.OnClick:=FileTypeClick;
Dateityp1.Add(M);
//plain
M:=TMenuItem.Create(Dateityp1);
M.Caption:=trans(lang,172,
'Rohtext');
M.ImageIndex:=-1;
M.OnClick:=FileTypeClick;
Dateityp1.Add(M);
end;
//------------------------------------------------------------------
//--
//Mark File Types --
//--
//------------------------------------------------------------------
procedure TModelFrame.MarkFileTypes(FTyp:JString);
var
i,ll:
Integer;
M:TMenuItem;
begin
//create entries from history
ll:=length(extensions)-1;
For i:=1
to ll
do begin
M:=Dateityp1.items[i-1];
M.Checked:=LowerCase(M.Caption)=LowerCase(FTyp);
end;
if pos(
'text',FTyp)>0
then begin
M:=Dateityp1.items[ll+1];
M.Checked:=true
end;
end;
//------------------------------------------------------------------
//Function FileType --
//--
//------------------------------------------------------------------
procedure TModelFrame.FileTypeClick(Sender:TObject);
var
M:TMenuItem;
FileTyp:JString;
begin
M:=(Sender
as TMenuItem);
FileTyp:=M.Caption;
if Frame21.Source.Modified
then
Frame21.Source.Save(true);
ProcessFile(Opt.R.Infile,FileTyp);
end;
//------------------------------------------------------------------
//Function Oeffnen --
//--
//------------------------------------------------------------------
procedure TModelFrame.IndentingClick(Sender:TObject);
begin
if Frame21.Source.Indentingpossible
then
with Frame21.Source
do begin
doindent:=true;
CreateHighlited(LoadedFileNumber);
doindent:=false;
setFrameStatus(Sender)
end;
end;
//------------------------------------------------------------------
//--
//SetEditorOptions --
//--
//------------------------------------------------------------------
procedure TModelFrame.SetEditorOptions;
begin
Frame21.Source.casesensitive:=Opt.R.casesensitive;
Frame21.Source.doWordWrap:=Opt.R.wordwrap;
Frame21.Source.regexpsearch:=Opt.R.regularexp;
Frame21.Source.CreateBackup:=Opt.R.CreateBackup;
Frame21.Source.ShowURL:=Opt.R.ShowURL;
Frame21.Source.Indentchars:=Opt.R.Indentchars;
Frame21.Source.Artificiallines:=Opt.R.Artificiallines;
end;
//------------------------------------------------------------------
//--
//SetFrameOptions --
//--
//------------------------------------------------------------------
procedure TModelFrame.SetFrameOptions;
begin
//set buttons + controls
Frame31.PrintButton:=PrintButton;
Frame31.Hochformat:=Hochformat;
Frame31.Querformat:=Querformat;
if Opt.R.UserName=
'' then
Opt.R.UserName:=
'unbekannter Benutzer';
//Size of Modelframe
Top:=Opt.R.Top;
left:=Opt.R.left;
width:=Opt.R.width;
height:=Opt.R.height;
if Application.Title=Title_Elbe
then begin
Opt.R.InspectorVisible:=false;
Opt.R.Blocknumbers:=false;
Opt.R.InspectorVisible:=false;
Inspector1.Checked:=false;
Inspector1.Visible:=false;
Split.Hide();
Split1.Visible:=false;
N5.Visible:=false;
Blocknummern.Visible:=false;
Importieren1.Visible:=false;
Exportieren1.Visible:=false;
N2.Visible:=false;
Leerzeichen1.Visible:=false;
end;
//Splitter and Print and Inspector
Frame11.width:=Opt.R.Frame1Width;
Horizontalratio:=(100*SplitterVertical.left)
div width;
Verticalratio:=(100*SplitterHorizontal.Top)
div height;
Inspector1.Checked:=Opt.R.InspectorVisible;
//setFrame11Ratio();
//
SetWindowColors;
SetWindowFonts;
//menu and toolbar
Zeilennummern1.Checked:=Opt.R.Linenumbers;
Blocknummern.Checked:=Opt.R.Blocknumbers;
Syntaxhervorhebung1.Checked:=Opt.R.SyntaxHighlight;
Leerzeichen1.Checked:=Opt.R.ShowSpaces;
SetEditorOptions();
//clear drag drop
Frame11.PageControl1.EndDrag(false);
Frame21.PageControl1.EndDrag(false);
Frame31.PageControl1.EndDrag(false);
//set keys and activation menu item
SetShortcuts;
if Opt.R.Activated
then begin
Aktivierung1.Visible:=false;
Lizenzerwerben1.Visible:=false;
N10.Visible:=false;
end;
//-------------------------------------------------
//Limnitations of Standard Edition
//-------------------------------------------------
if not Opt.R.ExportEnabled
then begin
if Exportieren1<>
nil then
Exportieren1.enabled:=false;
if Importieren1<>
nil then
Importieren1.enabled:=false;
end;
Opt.R.Frame1Page1Max:=false;
Opt.R.Frame2Page1Max:=false;
Opt.R.Frame3Page1Max:=false;
//
ShowFileTypes();
end;
//------------------------------------------------------------------
//--
//Change File --
//--
//------------------------------------------------------------------
procedure TModelFrame.UpDateInspector(LTP:PLongTexts;TT:TTreeNode);
var
ListItem:TListItem;
SN:JString;
function wof(X:JString):JString;
var
ii:JString;
begin
ii:=StringReplace(X,
'-',
'',[rfReplaceAll]);
ii:=StringReplace(ii,
'=',
'',[rfReplaceAll]);
wof:=ii
end;
procedure addi(L:JString);
var
zz:JString;
i:
Integer;
begin
with Frame11.Inspector
do begin
zz:=getpar(L,SN);
if L=S_Fil
then begin
i:=StrToInt(zz);
zz:=ExtractFileName(MDI.Source[i].Name);
end;
if (zz>
'')
then begin
ListItem:=items.Add;
ListItem.Caption:=wof(L);
ListItem.SubItems.Add(zz)
end
end;
end;
begin
if not Opening
then begin
if Inspector1.Checked
and(LTP<>
nil)
and(TT<>
nil)
and(TT.Text>
' ')
then begin
with Frame11.Inspector
do begin
ViewStyle:=vsReport;
SN:=Longeur(LTP,TT);
Inspectorkey:=SN;
if SN>
'' then begin
//while items.Count>0 do
items.clear;
addi(S_Lab);
addi(S_Id);
addi(S_Typ);
addi(S_Bas);
addi(S_Fmt);
addi(S_Ref);
addi(S_Pos);
addi(S_Lin);
addi(S_Col);
addi(S_Fil);
end;
Columns[1].width:=Frame11.width-Columns[0].width-10;
end;
Frame11.Inspector.Hint:=
'Inspector '+HintBox(getpar(S_Lab,SN));
end;
end;
end;
//--------------------------------------------------------------
//Page Navigator
//--------------------------------------------------------------
procedure TModelFrame.Frame31PageNavigatorClick(Sender:TObject);
begin
Frame31.PageNavigatorClick(Sender);
end;
//--------------------------------------------------------------
//splitter moved
//--------------------------------------------------------------
procedure TModelFrame.setFrameStatus(Sender:TObject);
const
hexen:
array [0..15]
of char=
'0123456789ABCDEF';
var
St,c,hex,RP,sst:JString;
dur:
real;
P:TPoint;
Li,Co,Ch:
Integer;
Insertmode:
Boolean;
begin
Caption:=Application.Title+
' '+Version_IDE+
' - '+ExtractFileName
(MDI.Source[MDI.fnr].Name);
St:=
'';
if Frame21.Source.LoadedFile<>Opt.R.Infile
then
St:=Frame21.Source.LoadedFile;
dur:=(Duration
div 1000)/1;
if dur>3
then
St:=MDI.Processor+
' ['+FloatToStr(dur)+
'sec] - '
else
St:=MDI.Processor+
' - ';
with Frame21
do begin
Insertmode:=true;
P:=Frame21.Source.getPos();
Li:=P.Y;
Co:=P.X;
sst:=
'';
if IsDebuggerPresent
then
with Source
do
sst:=
' st='+inttostr(SelStart)+
' cp='+inttostr(caretpos.X)+
','+inttostr
(caretpos.Y);
St:=St+
'['+inttostr(Li)+
':'+inttostr(Co)+sst+
']';
if Source.Modified
then
St:=St+
' '+trans(lang,173,
'ge�ndert')
else if Source.ReadOnly
then
St:=St+
' '+trans(lang,174,
'schreibgesch�tzt');
if Insertmode
then
c:=
' '+trans(lang,175,
'Einf�gen')
else
c:=
' '+trans(lang,176,
'Ersetzen');
end;
with Frame21.Source
do
if length(SelText)=1
then begin
hex:=SelText[1];
Ch:=
ord(hex[1]);
hex:=
' X'''+hexen[Ch
div 16]+hexen[Ch
mod 16]+
'''';
St:=St+hex
end;
if IsDebuggerPresent
then begin
RP:=
' P/F1/F2=/'+inttostr(MDI.TProc)+
'/'+inttostr(MDI.TFrame1)+
'/'+inttostr
(MDI.TFrame2);
St:=St+RP+Frame21.TimeRatio;
end;
Speichern.enabled:=Frame21.Source.Modified;
Split.enabled:=PageCount(Frame21.PageControl1)>1;
Simulation1.enabled:=Opt.R.CFA.Sheet.Visible
or Opt.R.DFA.Sheet.Visible;
with Frame11
do
Opt.Statusline(PageControl1,statusbar1,
'');
with Frame21
do
Opt.Statusline(PageControl1,statusbar1,St);
with Frame31
do
Opt.Statusline(PageControl1,statusbar1,
'');
Setnavigation();
end;
//--------------------------------------------------------------
//Inspectir
//--------------------------------------------------------------
procedure TModelFrame.InspectorClick(Sender:TObject);
begin
if Application.Title=Title_Columbo
then begin
Inspector1.Checked:=
not Inspector1.Checked;
Frame11.Inspector.Visible:=Inspector1.Checked;
Frame11.SplitterInspector.Visible:=Inspector1.Checked;
end;
setFrame11Ratio();
UpDateInspector(MDI.NavL,Frame11.Navigator.Selected);
end;
//------------------------------------------------------------------
//--
//get the files of a compilation/analysis --
//--
//------------------------------------------------------------------
function TModelFrame.getallFiles(Files:AnsiString):
Integer;
var
tthis:JString;
i,P,len:
Integer;
begin
P:=0;
if length(Files)>0
then begin
i:=1;
P:=0;
len:=length(Files);
while i<=len
do begin
if Files[i]=chr(Key_Linefeed)
then begin
P:=P+1;
tthis:=
'';
end;
i:=i+1;
end;
if P=0
then
errorn(68,
'Dateien korrupt, '+Files)
else begin
setlength(MDI.Source,P);
i:=1;
P:=0;
tthis:=
'';
while i<=len
do begin
if Files[i]<>chr(Key_Linefeed)
then begin
tthis:=tthis+Files[i]
end
else begin
MDI.Source[P].Name:=tthis;
//bug im Delphi??
MDI.Source[P].Typ:=RTF;
P:=P+1;
tthis:=
'';
end;
i:=i+1;
end;
end;
end;
getallFiles:=P
end;
//--------------------------------------------------------------
//Inspectir
//--------------------------------------------------------------
procedure TModelFrame.resetMDI();
begin
with MDI
do begin
CNav:=
nil;
KeyVerbs:=
'';
MDI.GC.CStream:=
nil;
MDI.GD.CStream:=
nil;
CSem:=
nil;
CMes:=
nil;
CFun:=
nil;
Cattr:=
nil;
CStatus:=
nil;
NavL:=
nil;
SEML:=
nil;
end;
end;
//--------------------------------------------------------------
//Inspectir
//--------------------------------------------------------------
function TModelFrame.guesstime(filelen:
Integer;say:
Boolean):
Boolean;
var
calctime1,calctime2,totaltime:
Integer;
Stat:JString;
allow:
Boolean;
begin
allow:=true;
//look at size
calctime1:=(filelen
div unitofbytes)*Opt.R.Timeper1000forProcessing;
calctime2:=(filelen
div unitofbytes)*
(Opt.R.Timeper1000forFrame1+Opt.R.Timeper1000forFrame2);
totaltime:=(calctime1+calctime2)
div 10;
if totaltime>3
then begin
Stat:=
'[~'+inttostr(totaltime)+
' sec]';
with Frame21
do
Opt.Statusline(PageControl1,statusbar1,Stat);
end;
//--------------------------------------------------
//check for limitations
//--------------------------------------------------
if (
not Opt.R.Activated)
and(filelen>maxfilesize)
then begin
if say
then
inform(162,
'Datei gr��er als '+inttostr(maxfilesize
div 1024)+
' kB.'+crlf+
'Dieses ist eine eingeschr�nkte Version von '+Application.Title+
'.'+
crlf+
' Eine vollst�ndige Lizenz bekommen Sie unter Hilfe:Lizenz erwerben.',
'');
allow:=false
end;
result:=allow;
end;
//--------------------------------------------------------------
//Inspectir
//--------------------------------------------------------------
procedure TModelFrame.LanguageProcessor(Fn:JString;LexOnly:
Boolean;cols:
Integer;
forcedll:JString);
var
warntime:
Integer;
FilePath,FileName:JString;
Libraries:AnsiString;
DllEdition:JString;
LexLang:
Integer;
PKeyVerbs,PNav,PGCStream,PGDStream,PSem,PMes,PFun,Pattr:PAnsiChar;
procedure snil(
var V:PAnsiChar);
begin
if (V<>
nil)
then
if length(V)=0
then
V:=
nil;
end;
procedure settonorm();
begin
with MDI
do begin
KeyVerbs:=PKeyVerbs;
CNav:=PNav;
GC.CStream:=PGCStream;
GD.CStream:=PGDStream;
CSem:=PSem;
CMes:=PMes;
CFun:=PFun;
Cattr:=Pattr;
if MDI.ReturnValue>1
then begin
snil(CNav);
CSem:=
nil;
MDI.GC.CStream:=
nil;
MDI.GD.CStream:=
nil;
CFun:=
nil;
CMes:=
nil;
end
else begin
snil(CNav);
snil(CSem);
snil(GC.CStream);
snil(GD.CStream);
snil(CMes);
snil(CFun);
end;
end;
end;
begin
FilePath:=ExtractFilePath(Fn);
FileName:=ExtractFileName(Fn);
//hide other windows
Screen.Cursor:=crHourGlass;
//now set them to zero
resetMDI();
ActDLLInfo:=@Opt.R.cc;
warntime:=Opt.R.Timeout*1000;
DllEdition:=EditionStrings[Opt.R.Edition];
Libraries:=AnsiString(
String(Opt.R.Libraries[1])+chr(Key_Linefeed));
if Opt.R.Libraries[2]<>
'' then
Libraries:=Libraries+AnsiString(Opt.R.Libraries[2])+AnsiString
(chr(Key_Linefeed));
if Opt.R.Libraries[3]<>
'' then
Libraries:=Libraries+AnsiString(Opt.R.Libraries[3]);
//add language and lexonly marker
LexLang:=
ord(LexOnly);
if Opt.R.Language<>german
then
LexLang:=LexLang+256;
SplashForm1.Init(60);
with MDI
do
MDI.ReturnValue:=dllcall(Opt.R.ProgramDir,Libraries,PKeyVerbs,FilePath,
FileName,LexLang,PNav,PGCStream,PGDStream,PSem,PMes,PFun,Pattr,cols,
DllEdition,CStatus,ActDLLInfo,warntime,forcedll);
settonorm();
getallFiles(Libraries);
SplashForm1.Progress(5);
end;
//------------------------------------------------------------------
//--
//Change File --
//--
//------------------------------------------------------------------
procedure TModelFrame.ProcessFile(Fn,Ft:JString);
var
Filex:JString;
i,ll:
Integer;
found,isit:
Boolean;
TimeSet:TDateTime;
begin
Previousselstart:=Frame21.Source.SelStart;
Screen.Cursor:=crHourGlass;
Indenting.Visible:=false;
Indenting2.Visible:=false;
N15.Visible:=Indenting.Visible;
processing:=true;
//show Splash
if Opening
then
SplashForm1.SetInfo(Version_IDE)
else
SplashForm1.SetInfo(trans(lang,23,
'analysiere Datei'));
Filex:=LowerCase(ExtractFileExt(Fn));
errorcount:=0;
Lizenz1.checklicense();
//
with MDI
do begin
Processor:=trans(lang,142,
'Text');
TProc:=0;
TFrame1:=0;
TFrame2:=0;
NavL:=
nil;
SEML:=
nil;
filelength:=0;
end;
//wait for windows
Frame21.Source.clearstreams();
//now process file
if not FileExists(Fn)
then begin
MDI.GC.CStream:=
nil;
MDI.GD.CStream:=
nil;
MDI.CMes:=
nil;
//
setlength(MDI.Source,1);
MDI.Source[0].Name:=
'0';
MDI.Source[0].Typ:=PLAIN;
MDI.Source[0].Age:=
'';
Frame21.Source.CreateDummyFile();
Homewards(
nil);
errorn(71,
'Eingabedatei nicht gefunden');
end
//check if in use by another process
else if (Fn<>Frame21.Source.LoadedFile)
and FileIsInUse(Fn)
then begin
MDI.GC.CStream:=
nil;
MDI.GD.CStream:=
nil;
MDI.CMes:=
nil;
//
setlength(MDI.Source,1);
MDI.Source[0].Name:=
'0';
MDI.Source[0].Typ:=PLAIN;
MDI.Source[0].Age:=
'';
Frame21.Source.CreateDummyFile();
Homewards(
nil);
errorn(225,
'Eingabedatei wird von einem anderem Proze� benutzt');
end
else begin
//
if length(MDI.Source)>0
then
SavetoHistory(Opt.R.Infile);
ll:=length(extensions)-1;
found:=false;
i:=0;
while not found
and(i<=ll)
do begin
isit:=(ispartof(Filex,extensions[i].ext)
and(Ft=
''))
or
(Ft=extensions[i].dllname);
if not found
and isit
then begin
//get content of file
MDI.filelength:=getFileLength(Fn);
if guesstime(MDI.filelength,true)
then begin
found:=true;
//process
MDI.Processor:=extensions[i].dllname;
globtim:=MDI.filelength
div 60;
LanguageProcessor(Fn,extensions[i].LexOnly,
ord(Opt.R.Sourceformat),
Ft);
TimeSet:=Now;
Frame11.Loader(Fn,IconImageList);
proctime(Opt.R.Timeper1000forFrame1,MDI.TFrame1,TimeSet,
MDI.filelength);
SplashForm1.Progress(2);
proctime(Opt.R.Timeper1000forProcessing,MDI.TProc,TimeSet,
MDI.filelength);
TimeSet:=Now;
errorcount:=abs(MDI.ReturnValue);
MDI.Previewrepresentation:=extensions[i].Prettyprint;
Frame21.Loader(0,SplashForm1);
proctime(Opt.R.Timeper1000forFrame2,MDI.TFrame2,TimeSet,
MDI.filelength);
Blocknummern.enabled:=MDI.ReturnValue<=1;
Duration:=Frame21.SourceDuration+Frame21.CFADuration+
Frame21.DFADuration;
Indenting.Visible:=Frame21.Source.Indentingpossible;
Indenting2.Visible:=Indenting.Visible;
N15.Visible:=Indenting.Visible;
end;
end;
i:=i+1
end;
if found
then begin
Syntaxhervorhebung1.enabled:=true;
SyntaxHighLite.enabled:=true;
setl(Opt.R.Infile,Fn);
end
else if Filex=
'.rtf' then begin
Frame21.Source.Linenumbers:=Opt.R.Linenumbers;
Frame21.Source.Blocknumbers:=Opt.R.Blocknumbers;
Frame21.Source.LoadHighLites(Opt.R.Highlites);
FormattedFile(Fn);
end
else begin
SplashForm1.Init(10);
SplashForm1.Progress(5);
resetMDI();
setlength(MDI.Source,1);
MDI.Source[0].Name:=Fn;
MDI.Source[0].Typ:=PLAIN;
Frame21.SourceNames(MDI);
Frame21.Source.casesensitive:=Opt.R.casesensitive;
Frame21.Source.doWordWrap:=Opt.R.wordwrap;
Frame21.Source.Linenumbers:=Opt.R.Linenumbers;
Frame21.Source.Blocknumbers:=Opt.R.Blocknumbers;
Frame21.Source.LoadHighLites(Opt.R.Highlites);
Frame21.Source.CreatePlain(0);
if Frame21.Source.LoadedFormat=BIN
then
MDI.Processor:=trans(lang,165,
'Bin�rdaten');
Syntaxhervorhebung1.enabled:=false;
SyntaxHighLite.enabled:=false;
setl(Opt.R.Infile,Fn);
end
end;
//Finished
Screen.Cursor:=crDefault; { Revient toujours � normal }
MarkFileTypes(MDI.Processor);
ShowIDE();
SplashForm1.Finish();
SplashForm1.SetMini();
processing:=false;
//note file
Previousfile:=Opt.R.Infile;
end;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
procedure TModelFrame.PrintButtonClick(Sender:TObject);
begin
if not InSight(Opt.R.Druckvorschau)
then
DruckvorschauClick(Sender)
else
Frame31.PrintButtonClick(Sender);
end;
//------------------------------------------------------------------
//Procedure GetImageIndex --
//--
//------------------------------------------------------------------
procedure TModelFrame.NavGetImageIndex(Sender:TObject;Node:TTreeNode);
begin
if Node.HasChildren
then
if Node.Expanded
then
Node.ImageIndex:=ExpandedImage
else
Node.ImageIndex:=CollapsedImage
else
Node.ImageIndex:=HasChildrenImage;
end;
//------------------------------------------------------------------
//Procedure GetSelectedIndex --
//--
//------------------------------------------------------------------
procedure TModelFrame.NavGetSelectedIndex(Sender:TObject;Node:TTreeNode);
begin
Node.SelectedIndex:=Node.ImageIndex;
end;
//------------------------------------------------------------------
//--
//FeedBackDialogack --
//--
//------------------------------------------------------------------
procedure TModelFrame.Feedback1Click(Sender:TObject);
begin
if netallowed
then
Browser(Handle,
'https://cococo.de/Context_IT_GmbH/index.jsp?content=contact&topic='+
Application.Title+
' '+Version_IDE);
end;
//------------------------------------------------------------------
//--
//FeedBackDialogack --
//--
//------------------------------------------------------------------
procedure TModelFrame.FeedBackDialogack1Click(Sender:TObject);
begin
Feedback1Click(Sender);
end;
//------------------------------------------------------------------
//Procedure Font2Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.Font2Click(Sender:TObject);
var
modi:
Boolean;
begin
FontDialog.Font.Name:=Opt.R.FontName;
FontDialog.Font.Color:=Opt.R.FontColor;
FontDialog.Font.Style:=Opt.R.FontStyle;
FontDialog.Font.Size:=Opt.R.FontSize;
//nur proportionale Schriften zulassen
FontDialog.Options:=[fdFixedPitchOnly];
if FontDialog.Execute
then begin
setl(Opt.R.FontName,FontDialog.Font.Name);
Opt.R.FontSize:=FontDialog.Font.Size;
Opt.R.FontStyle:=FontDialog.Font.Style;
Opt.R.FontColor:=FontDialog.Font.Color;
modi:=Frame21.Source.Modified;
SetWindowFonts;
Frame21.Source.CreateHighlited(MDI.fnr);
Frame21.measures.markLinepos(1,1);
Frame21.Funktion.markLinepos(1,1);
DrawBothImages;
Frame21.Source.Modified:=modi;
end
end;
//------------------------------------------------------------------
//Function LastView --
//--
//------------------------------------------------------------------
function LastView(i:Frames):ViewType;
var
S:ViewType;
begin
S:=NoView;
if Opt.R.Navigator.Frame=i
then
S:=ViewNav;
if Opt.R.Semantik.Frame=i
then
S:=ViewSem;
if Opt.R.Explorer.Frame=i
then
S:=ViewExplorer;
if Opt.R.Source.Frame=i
then
S:=ViewSource;
if Opt.R.CFA.Frame=i
then
S:=ViewCFA;
if Opt.R.DFA.Frame=i
then
S:=ViewDFA;
if Opt.R.measures.Frame=i
then
S:=ViewMeasures;
if Opt.R.Funktion.Frame=i
then
S:=ViewFunktion;
if Opt.R.Miniatur.Frame=i
then
S:=ViewMiniatur;
if Opt.R.Druckvorschau.Frame=i
then
S:=ViewDruckvorschau;
LastView:=S
end;
//------------------------------------------------------------------
//Function DrawBothImages --
//--
//------------------------------------------------------------------
procedure TModelFrame.DrawBothImages;
begin
if not(errorcount>0)
and(Opt<>
nil)
and not Closing
and not Opening
then begin
with MDI.GC
do
if CStream<>
nil then begin
width:=Opt.R.CFA.Sheet.width;
height:=Opt.R.CFA.Sheet.height;
VWidth:=0;
VHeight:=0;
ReDraw();
end;
with MDI.GD
do
if CStream<>
nil then begin
width:=Opt.R.DFA.Sheet.width;
height:=Opt.R.DFA.Sheet.height;
VWidth:=0;
VHeight:=0;
ReDraw();
end;
end;
end;
//------------------------------------------------------------------
//Function CanClose --
//--
//------------------------------------------------------------------
procedure TModelFrame.FormClose(Sender:TObject;
var Action:TCloseAction);
begin
//save source if necessary
Action:=caNone;
if Frame21.Source.Save(true)<>mrCancel
then begin
//remember perspective
if length(MDI.Source)>0
then
SavetoHistory(MDI.Source[0].Name);
//remember Size
if not Opt.R.ismax
then begin
Opt.R.width:=width;
Opt.R.height:=height;
Opt.R.Top:=Top;
Opt.R.left:=left;
Opt.R.ismax:=false;
end;
Opt.R.inited:=
'J';
if Opt.R.CFA.Sheet.Visible
then
with MDI.GC
do begin
Opt.R.CFA.Sheet.width:=VWidth;
Opt.R.CFA.Sheet.height:=VHeight;
end;
if Opt.R.DFA.Sheet.Visible
then
with MDI.GD
do begin
Opt.R.DFA.Sheet.width:=VWidth;
Opt.R.DFA.Sheet.height:=VHeight;
end;
//
Opt.R.casesensitive:=Frame21.Source.casesensitive;
Opt.R.regularexp:=Frame21.Source.regexpsearch;
//
Opt.R.Frame1Width:=SplitterVertical.left;
if Frame31.height>0
then
Opt.R.Frame3Height:=Frame31.height;
Opt.R.InspectorVisible:=Inspector1.Checked;
if Inspector1.Checked
then
Opt.R.InspectorHeight:=Frame11.Inspector.height;
//
sortHistory();
Frame21.Source.flushstreams();
Action:=caFree;
end;
end;
//------------------------------------------------------------------
//Function Filters --
//--
//------------------------------------------------------------------
function TModelFrame.MakeFilters(filnam:JString):
Integer;
var
i,ll:
Integer;
A,Allfiles,ext,App:JString;
first:
Boolean;
begin
Filters:=
'';
App:=trans(lang,237,
' Dateien');
result:=0;
ext:=
'*'+LowerCase(ExtractFileExt(filnam));
first:=true;
ll:=length(extensions)-1;
A:=trans(lang,43,
'Quelldateien')+
'|';
Allfiles:=trans(lang,156,
'Alle Dateien')+
'|'+
'*.*';
for i:=0
to ll
do begin
if extensions[i].ext<>
'*' then begin
if ispartof(ext,extensions[i].ext)
then
result:=i+3;
if first
then
Filters:=extensions[i].longname+App
else
Filters:=Filters+
'|'+extensions[i].longname+App;
Filters:=Filters+
'|';
Filters:=Filters+extensions[i].ext;
if first
then
A:=A+extensions[i].ext
else
A:=A+
';'+extensions[i].ext;
first:=false;
end;
end;
Filters:=A+
'|'+Allfiles+
'|'+Filters;
end;
//------------------------------------------------------------------
//Function Oeffnen --
//--
//------------------------------------------------------------------
procedure TModelFrame.OeffnenClick(Sender:TObject);
var
OpenDialog:TOpenDialog;
se,sx:
Integer;
S,Filex:JString;
MI,PA:TMenuItem;
isok,opendone:
Boolean;
begin
If Sender=Oeffne
then begin
MakeFilters(Opt.R.Infile);
OpenDialog:=TOpenDialog.Create(self);
OpenDialog.FileName:=
'';
OpenDialog.InitialDir:=ExtractFilePath(Frame21.Source.LoadedFile);
if OpenDialog.InitialDir=
'' then
OpenDialog.InitialDir:=GetCurrentDir;
//OpenDialog.Options:=OpenDialog.Options-[ofNoDereferenceLinks];
OpenDialog.Options:=OpenDialog.Options+[ofReadOnly,ofFileMustExist,
ofAllowMultiSelect];
OpenDialog.Filter:=
'';
S:=
'';
Filex:=ExtractFileExt(Frame21.Source.LoadedFile);
OpenDialog.Filter:=Filters;
if Opt.R.Openindex<0
then
OpenDialog.FilterIndex:=0
else
OpenDialog.FilterIndex:=Opt.R.Openindex;
//now follow *.lnk files
isok:=false;
repeat
opendone:=OpenDialog.Execute;
if opendone
then begin
Filex:=ExtractFileExt(OpenDialog.FileName);
isok:=LowerCase(Filex)<>
'.lnk';
if not isok
then begin
OpenDialog.InitialDir:=GetPathFromLink(OpenDialog.FileName);
OpenDialog.FileName:=
'';
OpenDialog.Filter:=Filters;
end;
end;
until isok
or not opendone;
//filename found?
if isok
then begin
if (OpenDialog.FileName<>Frame21.Source.LoadedFile)
then begin
Opt.R.Openindex:=OpenDialog.FilterIndex;
ProcessFile(OpenDialog.FileName,
'');
setl(Opt.R.LastFilter,OpenDialog.Filter[OpenDialog.FilterIndex]);
end;
end
end
else begin //item out of list of files
MI:=(Sender
as TMenuItem);
PA:=MI.Parent;
se:=PA.IndexOf(Exit1);
sx:=PA.IndexOf(MI);
S:=
'';
if sx-se-1>0
then
S:=Opt.R.History[sx-se-1].FileName;
ProcessFile(S,
'');
end;
end;
//------------------------------------------------------------------
//Function RepairHistory --
//-- do if file vanished
//------------------------------------------------------------------
procedure TModelFrame.RepairHistory();
var
i,j:
Integer;
begin
//remove vanished files
with Opt.R
do begin
for i:=1
to HistMax
do
if History[i].FileName<>
'' then begin
if not FileExists(History[i].FileName)
then
for j:=i+1
to HistMax
do begin
History[j-1].FileName:=History[j].FileName;
History[j].FileName:=
'';
end;
end;
//remove empty entries
for i:=1
to HistMax-1
do
if History[i].FileName=
'' then begin
j:=i+1;
while (j<HistMax-1)
and(History[j].FileName=
'')
do
j:=j+1;
if History[j].FileName<>
'' then begin
History[i].FileName:=History[j].FileName;
History[j].FileName:=
'';
end;
end;
//remove empty libraries
for i:=1
to 3
do
if ((Libraries[i]<>
'')
and not DirectoryExists(Libraries[i]))
then
Libraries[i]:=
'';
end;
end;
//------------------------------------------------------------------
//Function LoadfromHistory --
//--
//------------------------------------------------------------------
procedure TModelFrame.LoadfromHistory(Fn:JString);
var
i:
Integer;
PP:TPoint;
G:JString;
nw,nh:
Integer;
//nl,nt:integer;
begin
//search history
with Opt.R
do begin
ViewList.Free;
ViewList:=
nil;
G:=ExtractFileName(Fn);
i:=findinHistory(Fn);
if History[i].Per[F1].Node>=0
then
with Frame11
do
positbyIndex(History[i].Per[F1].Node);
if History[i].Per[F2].pos.Y>0
then
Frame21.positbyPoint(History[i].Per[F2].pos)
else if History[i].Per[F2].Node<>0
then begin
PP.X:=1;
PP.Y:=History[i].Per[F2].Node;
Frame21.positbyPoint(PP);
end;
nw:=max(History[i].Per[F1].width,History[i].Per[F2].width);
nh:=max(History[i].Per[F1].height,History[i].Per[F2].height);
//nt:=History[i].Per[F1].Top;
//nl:=History[i].Per[F1].left;
if firsthistory
and (nw>0)
and(nh>0)
then begin
//Top:=nt;
//left:=nl;
width:=nw;
height:=nh;
end;
SaveView();
end;
width:=Opt.R.width;
height:=Opt.R.height;
Top:=Opt.R.Top;
left:=Opt.R.left;
DisplayHistory();
firsthistory:=false;
end;
//------------------------------------------------------------------
//Function DisplayHistory --
//--
//------------------------------------------------------------------
procedure TModelFrame.DisplayHistory();
var
i,se:
Integer;
M:TMenuItem;
function Short(F:JString):JString;
var
S:JString;
begin
S:=ExtractFilePath(F);
if length(S)>8
then
S:=MidStr(S,1,8)+
'...';
Short:=S+ExtractFileName(F);
end;
begin
//remove old menuitems
se:=File1.IndexOf(Exit1);
for i:=File1.Count
downto se+2
do
File1.Remove(File1.items[i-1]);
//create entries from history
Sep:=
'-';
For i:=1
to HistMax
do
if Opt.R.History[i].FileName<>
'' then begin
if Sep=
'-' then begin
M:=TMenuItem.Create(File1);
M.Caption:=Sep;
File1.Add(M);
Sep:=
'';
end;
M:=TMenuItem.Create(File1);
M.Caption:=Short(Opt.R.History[i].FileName);
if pos(
'.jcl',LowerCase(M.Caption))>0
then
M.ImageIndex:=JCLImage
else
M.ImageIndex:=COBOLImage;
M.OnClick:=Oeffne.OnClick;
File1.Add(M);
end;
end;
//------------------------------------------------------------------
//Function sortHistory --
//--
//------------------------------------------------------------------
procedure TModelFrame.sortHistory();
var
i,j:
Integer;
zz:THistory;
begin
//sort by datetime and usage count
For i:=1
to HistMax-1
do
for j:=i+1
to HistMax
do
with Opt.R
do
if (History[i].DateTime<History[j].DateTime)
then begin
zz:=History[j];
History[j]:=History[i];
History[i]:=zz;
end;
end;
//------------------------------------------------------------------
//Function FidinHistory --
//--
//------------------------------------------------------------------
function TModelFrame.findinHistory(F:JString):
Integer;
var
i,j:
Integer;
G:JString;
begin
i:=1;
G:=ExtractFileName(F);
while (Opt.R.History[i].FileName<>
'')
and
(LowerCase(Opt.R.History[i].FileName)<>LowerCase(F))
and(i<HistMax)
do
i:=i+1;
if (i>HistMax)
then begin
//not found, rotate
for j:=HistMax
downto 2
do
Opt.R.History[j]:=Opt.R.History[j-1];
i:=1;
end;
findinHistory:=i
end;
//------------------------------------------------------------------
//Function SavetoHistory --
//--
//------------------------------------------------------------------
procedure TModelFrame.SavetoHistory(F:JString);
var
i:
Integer;
G:JString;
function Short(F:JString):JString;
var
S:JString;
begin
S:=ExtractFilePath(F);
if length(S)>8
then
S:=MidStr(S,1,8)+
'...';
Short:=S+ExtractFileName(F);
end;
begin
if (F>
'')
then begin
SaveView();
G:=ExtractFileName(F);
i:=findinHistory(F);
setl(Opt.R.History[i].FileName,F);
Opt.R.History[i].Count:=0;
Opt.R.History[i].DateTime:=Now;
if (ViewList<>
nil)
then
Opt.R.History[i].Per:=ViewList.Per;
end;
DisplayHistory();
end;
//------------------------------------------------------------------
//Function Activation --
//--
//------------------------------------------------------------------
procedure TModelFrame.Aktivierung1Click(Sender:TObject);
begin
Lizenz1.TrytoActivate(false);
end;
//------------------------------------------------------------------
//Function Hilfe2 --
//--
//------------------------------------------------------------------
procedure TModelFrame.Hilfe2Click(Sender:TObject);
begin
//Achtung: *.hlp und *.cnt mitliefern
//WinHelp(0,PChar(Application.helpfile),HELP_FINDER,0);
HtmlHelpW(0,PChar(Application.helpfile),0,0);
end;
//------------------------------------------------------------------
//Function �berClick --
//--
//------------------------------------------------------------------
procedure TModelFrame.AboutClick(Sender:TObject);
begin
with AboutDialog
do begin
Label1.Caption:=Application.Title+
' '+Version;
DLLVersion:=
String(ActDLLInfo);
Edition.Caption:=EditionStrings[Opt.R.Edition]+
' '+
'Edition';
if Opt.R.Activated
then
ProduktId.Caption:=trans(lang,166,
'g�ltige Lizenz f�r')
else begin
Edition.Caption:=
'Shareware'+
' '+
'Edition';
if not Opt.R.Activated
then
ProduktId.Caption:=trans(lang,163,
'Dateigr��e begrenzt auf:')+inttostr
(maxfilesize
div 1024)+
' kB'
end;
Caption:=trans(lang,167,
'�ber ')+Application.Title;
ShowModal
end
end;
//------------------------------------------------------------------
//Function GraphMouseMove --
//--
//------------------------------------------------------------------
procedure TModelFrame.GraphMouseMove(Sender:TObject;Shift:TShiftState;
X,Y:
Integer);
var
P:TPoint;
Frame:TFrame;
K:JString;
begin
P.X:=X;
P.Y:=Y;
if (Sender=Frame21.CFA)
and(MDI.GC.Selected<>0)
and(MDI.GC.Hint<>
'')
then begin
if sqr(MDI.GC.hintpos.X-P.X)+sqr(MDI.GC.hintpos.Y-P.Y)<sqr
(MDI.GC.Sidelength)
then
Frame21.CFA.Hint:=MDI.GC.Hint
else
Frame21.CFA.Hint:=
'';
Frame:=(Frame21.CFA.Parent.Parent.Parent.Parent
as TFrame);
P:=GraphCoordinates(MDI.GC,Opt.R.CFA.Sheet,Frame,P);
K:=Frame21.positInfo(P,Sender);
if Frame=Frame11
then
Frame11.statusbar1.SimpleText:=K;
if Frame=Frame21
then
Frame21.statusbar1.SimpleText:=K;
if Frame=Frame31
then
Frame31.statusbar1.SimpleText:=K;
MDI.GC.Hint:=K;
end
else if (Sender=Frame21.DFA)
and(MDI.GD.Selected<>0)
and(MDI.GD.Hint<>
'')
then
begin
if sqr(MDI.GD.hintpos.X-P.X)+sqr(MDI.GD.hintpos.Y-P.Y)<sqr
(MDI.GD.Sidelength)
then
Frame21.DFA.Hint:=MDI.GD.Hint
else
Frame21.DFA.Hint:=
'';
Frame:=(Frame21.DFA.Parent.Parent.Parent.Parent
as TFrame);
P:=GraphCoordinates(MDI.GD,Opt.R.DFA.Sheet,Frame,P);
K:=Frame21.positInfo(P,Sender);
if Frame=Frame11
then
Frame11.statusbar1.SimpleText:=K;
if Frame=Frame21
then
Frame21.statusbar1.SimpleText:=K;
if Frame=Frame31
then
Frame31.statusbar1.SimpleText:=K;
MDI.GD.Hint:=K;
end;
end;
//------------------------------------------------------------------
//Key Pressed --
//--
//------------------------------------------------------------------
procedure TModelFrame.Frame21FunktionKeyUp(Sender:TObject;
var Key:
Word;
Shift:TShiftState);
begin
if length(Frame21.Funktion.SelText)>0
then
initSearchReplace(Frame21.Funktion.SelText,
'',false,FuncSearch);
end;
//------------------------------------------------------------------
//Source Changed --
//--
//------------------------------------------------------------------
procedure TModelFrame.Frame21SourceChange(Sender:TObject);
begin
if not Opening
then begin
setFrameStatus(Sender);
Speichern.enabled:=Frame21.Source.Modified;
end;
end;
//------------------------------------------------------------------
//Source Changed --
//--
//------------------------------------------------------------------
procedure TModelFrame.Frame21SourceSelectionChange(Sender:TObject);
begin
if not Opening
then begin
setFrameStatus(
nil);
end;
end;
//------------------------------------------------------------------
//Function Frame11NavClick --
//--
//------------------------------------------------------------------
procedure TModelFrame.TreeClick(Sender:TObject);
var
Tree:TTreeView;
begin
Tree:=Sender
as TTreeView;
Tree.SetFocus();
Realcheck();
Frame11.TreeClick(Sender);
Frame21.positbyNode(Frame11.Key,Tree);
UpDateInspector(MDI.NavL,Frame11.Navigator.Selected);
Frame11.Navigator.Hint:=HintBox(Tree.Selected.Text);
SaveView();
end;
//------------------------------------------------------------------
//Function Sem DblClick --
//--
//------------------------------------------------------------------
procedure TModelFrame.TreeDblClick(Sender:TObject);
var
PC:TPageControl;
P:TPoint;
TV:TTreeView;
begin
PC:=Opt.R.Source.Sheet.PageControl;
PC.ActivePage:=Opt.R.Source.Sheet;
TV:=(Sender
as TTreeView);
if Opt.R.Source.Frame=F1
then
PageControlChange(Frame11.PageControl1);
if Opt.R.Source.Frame=F2
then
PageControlChange(Frame21.PageControl1);
if Opt.R.Source.Frame=F3
then
PageControlChange(Frame31.PageControl1);
//Frame21.Source.positbyNode(Frame11.Key)
P:=Frame21.getPointfromNode(Frame11.Key);
Frame21.positbyNode(Frame11.Key,TV);
end;
//------------------------------------------------------------------
//Function Frame11NavClick --
//--
//------------------------------------------------------------------
procedure TModelFrame.TreeSelChange(Sender:TObject;
var Key:
Word;
Shift:TShiftState);
var
Tree:TTreeView;
changed:
Boolean;
begin
if Sender=Frame11.Navigator
then begin
changed:=Frame11.LastNavSelected<>Frame11.Navigator.Selected;
Frame11.Navigator.SetFocus();
end
else if Sender=Frame11.Semantik
then begin
changed:=Frame11.LastSemSelected<>Frame11.Semantik.Selected;
Frame11.Semantik.SetFocus();
end
else
changed:=false;
Honeypot();
if changed
then begin
Tree:=Sender
as TTreeView;
Frame11.TreeClick(Sender);
Frame21.positbyNode(Frame11.Key,Tree);
UpDateInspector(MDI.NavL,Frame11.Navigator.Selected);
Frame11.Navigator.Hint:=HintBox(Tree.Selected.Text);
SaveView();
end;
Frame11.LastNavSelected:=Frame11.Navigator.Selected;
Frame11.LastSemSelected:=Frame11.Semantik.Selected;
end;
//------------------------------------------------------------------
//Function LineNumbers --
//--
//------------------------------------------------------------------
procedure TModelFrame.Zeilennummern1Click(Sender:TObject);
var
TP:TPageControl;
modi:
Boolean;
begin
modi:=Frame21.Source.Modified;
Opt.R.Linenumbers:=
not Opt.R.Linenumbers;
if Opt.R.Linenumbers
then
Opt.R.Blocknumbers:=false;
Zeilennummern1.Checked:=Opt.R.Linenumbers;
Blocknummern.Checked:=Opt.R.Blocknumbers;
Frame21.Source.Linenumbers:=Opt.R.Linenumbers;
Frame21.Source.Blocknumbers:=Opt.R.Blocknumbers;
Frame21.Source.Mark();
TP:=Opt.R.Source.Sheet.PageControl;
TP.ActivePage:=Opt.R.Source.Sheet;
Frame21.Source.Modified:=modi;
end;
//------------------------------------------------------------------
//Function BtnSaveClick --
//--
//------------------------------------------------------------------
procedure TModelFrame.BlocknummernClick(Sender:TObject);
var
TP:TPageControl;
modi:
Boolean;
begin
if MDI.ReturnValue<=1
then begin
modi:=Frame21.Source.Modified;
Opt.R.Blocknumbers:=
not Opt.R.Blocknumbers;
if Opt.R.Blocknumbers
then
Opt.R.Linenumbers:=false;
Blocknummern.Checked:=Opt.R.Blocknumbers;
Zeilennummern1.Checked:=Opt.R.Linenumbers;
Frame21.Source.Linenumbers:=Opt.R.Linenumbers;
Frame21.Source.Blocknumbers:=Opt.R.Blocknumbers;
Frame21.Source.Mark();
TP:=Opt.R.Source.Sheet.PageControl;
TP.ActivePage:=Opt.R.Source.Sheet;
Frame21.Source.Modified:=modi;
end
else begin
Blocknummern.Checked:=false;
end
end;
//------------------------------------------------------------------
//Function Setnavigation --
//--
//------------------------------------------------------------------
procedure TModelFrame.Setnavigation();
var
c:
Integer;
begin
if ViewList<>
nil then begin
Vor.enabled:=(ViewList.Next<>
nil);
Zur.enabled:=ViewList.Previous<>
nil;
end
else begin
Vor.enabled:=false;
Zur.enabled:=false;
end;
Home.enabled:=true;
if InSight(Opt.R.Source)
then begin
Ausschneiden.enabled:=Frame21.Source.SelLength>0;
Einfuegen1.enabled:=length(Clipboard.AsText)>0;
UndoButton.enabled:=Frame21.Source.Modified;
end
else begin
Ausschneiden.enabled:=false;
Einfuegen1.enabled:=false;
UndoButton.enabled:=false;
end;
if InSight(Opt.R.Source)
or InSight(Opt.R.measures)
or InSight(Opt.R.Funktion)
then begin
Kopieren2.enabled:=Frame21.Source.SelLength>0;
end
else begin
Kopieren2.enabled:=false;
end;
if InSight(Opt.R.CFA)
then begin
Auf.enabled:=(MDI.GC.Map<>
nil);
Ab.enabled:=(MDI.GC.Map=
nil);
end else if InSight(Opt.R.DFA)
then begin
Auf.enabled:=(MDI.GD.Map<>
nil);
Ab.enabled:=(MDI.GD.Map=
nil);
end
else begin
Auf.enabled:=false;
Ab.enabled:=false;
end;
c:=PageCount(Frame21.PageControl1);
Speichern.enabled:=Frame21.Source.Modified;
Split.enabled:=(c>1)
or(Frame31.Visible);
Simulation1.enabled:=Opt.R.CFA.Sheet.Visible
or Opt.R.DFA.Sheet.Visible;
//
Auf.enabled:=Auf.enabled
or (Filelist<>
nil);
end;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
procedure TModelFrame.QuerformatClick(Sender:TObject);
begin
Frame31.QuerformatClick(Sender);
end;
//------------------------------------------------------------------
//Function undo --
//--
//------------------------------------------------------------------
procedure TModelFrame.undoClick(Sender:TObject);
begin
Frame21.Source.LoadFromUndoBuffer();
setFrameStatus(Sender);
end;
//------------------------------------------------------------------
//Function PushViews --
//--
//------------------------------------------------------------------
function TModelFrame.Viewof(F:Frames):FrameView;
var
RV:ViewType;
pos:TPoint;
Node:
Integer;
procedure getv(PC:TPageControl);
begin
pos.X:=0;
pos.Y:=0;
Node:=0;
with PC
do
if ActivePage=Opt.R.Navigator.Sheet
then begin
RV:=ViewNav;
with Frame11.Navigator
do
if Selected<>
nil then
Node:=Selected.AbsoluteIndex;
end
else if ActivePage=Opt.R.Semantik.Sheet
then begin
RV:=ViewSem;
with Frame11.Semantik
do
if Selected<>
nil then
Node:=Selected.AbsoluteIndex;
end
else if ActivePage=Opt.R.Explorer.Sheet
then begin
RV:=ViewExplorer
end
else if ActivePage=Opt.R.Source.Sheet
then begin
RV:=ViewSource;
pos:=Frame21.Source.getPos();
end
else if ActivePage=Opt.R.CFA.Sheet
then begin
RV:=ViewCFA;
Node:=MDI.GC.Selected;
end
else if ActivePage=Opt.R.DFA.Sheet
then begin
RV:=ViewDFA;
Node:=MDI.GD.Selected;
end
else if ActivePage=Opt.R.measures.Sheet
then begin
RV:=ViewMeasures;
pos:=Frame21.measures.getPos();
end
else if ActivePage=Opt.R.Funktion.Sheet
then begin
RV:=ViewFunktion;
pos:=Frame21.Funktion.getPos();
end
else if ActivePage=Opt.R.Miniatur.Sheet
then begin
RV:=ViewMiniatur
end
else if ActivePage=Opt.R.Druckvorschau.Sheet
then begin
RV:=ViewDruckvorschau
end
else if ActivePage=Opt.R.Execution.Sheet
then begin
RV:=ViewExecution;
end;
end;
begin
if F=F1
then begin
getv(Frame11.PageControl1);
Viewof.width:=width;
Viewof.height:=height;
Viewof.Top:=Top;
Viewof.left:=left;
end
else if F=F2
then begin
getv(Frame21.PageControl1);
Viewof.width:=width;
Viewof.height:=height;
Viewof.Top:=Top;
Viewof.left:=left;
end
else if F=F3
then begin
getv(Frame31.PageControl1);
Viewof.width:=width;
Viewof.height:=height;
Viewof.Top:=Top;
Viewof.left:=left;
end;
Viewof.ActiveView:=RV;
Viewof.fnr:=Frame21.Source.LoadedFileNumber;
Viewof.SelLength:=Frame21.Source.SelLength;
pos.X:=pos.X-Frame21.Source.SelLength;
if pos.X<1
then
pos.X:=1;
Viewof.pos:=pos;
Viewof.Node:=Node;
end;
//------------------------------------------------------------------
//Function PushViews --
//--
//------------------------------------------------------------------
procedure TModelFrame.SaveView();
var
F:Frames;
P:Perspective;
isnull,viewchanged:
Boolean;
begin
//find current
for F:=F1
to F3
do
P[F]:=Viewof(F);
//check old state
isnull:=true;
viewchanged:=false;
if ViewList<>
nil then begin
for F:=F1
to F3
do
isnull:=isnull
and(ViewList.Per[F].Node=0);
for F:=F1
to F3
do
viewchanged:=viewchanged
or(P[F].ActiveView<>ViewList.Per[F].ActiveView);
end;
//now select where to save it
if ViewList=
nil then
ViewList:=TFramestate.Create()
else if not isnull
or viewchanged
then begin
//leave it
ViewList.Next:=TFramestate.Create();
ViewList.Next.Previous:=ViewList;
ViewList:=ViewList.Next;
end;
//save it
ViewList.Per:=P;
Setnavigation();
end;
//------------------------------------------------------------------
//Function Backwards --
//--
//------------------------------------------------------------------
procedure TModelFrame.Backwards(Sender:TObject);
var
F:Frames;
Next:TFramestate;
begin
if ViewList<>
nil then
if ViewList.Previous<>
nil then begin
Next:=ViewList;
ViewList:=ViewList.Previous;
for F:=F1
to F3
do
Walk(Next,ViewList,F);
setFrameStatus(
nil);
end;
Setnavigation();
end;
//------------------------------------------------------------------
//Function Forwards --
//--
//------------------------------------------------------------------
procedure TModelFrame.Forwards(Sender:TObject);
var
F:Frames;
Prev:TFramestate;
begin
if ViewList<>
nil then
if ViewList.Next<>
nil then begin
Prev:=ViewList;
ViewList:=ViewList.Next;
for F:=F1
to F3
do
Walk(Prev,ViewList,F);
end;
Setnavigation();
end;
//------------------------------------------------------------------
//Function BAckwards --
//--
//------------------------------------------------------------------
procedure TModelFrame.Walk(Prev,this:TFramestate;F:Frames);
var
P:TPoint;
N:
Integer;
ll:
Integer;
begin
if (Prev<>
nil)
and(this<>
nil)
then begin
if Prev.Per[F].ActiveView<>this.Per[F].ActiveView
then
SetActivePage(F,this.Per[F].ActiveView);
if this.Per[F].fnr<>Prev.Per[F].fnr
then
Frame21.Source.CreateHighlited(this.Per[F].fnr);
if not eq(this.Per[F].pos,Prev.Per[F].pos)
or
(this.Per[F].Node<>Prev.Per[F].Node)
then begin
P:=this.Per[F].pos;
N:=this.Per[F].Node;
ll:=this.Per[F].SelLength;
case this.Per[F].ActiveView
of
ViewNav:
Frame11.FindPosition(Frame11.Navigator,P);
ViewSem:
Frame11.FindPosition(Frame11.Semantik,P);
ViewSource:
Frame21.Source.markWord(P.Y,P.X,ll);
ViewCFA:
MDI.GC.GraphPositbyNode(N,MDI.GC.im);
ViewDFA:
MDI.GD.GraphPositbyNode(N,MDI.GD.im);
ViewMeasures:
Frame21.measures.markLinepos(P.Y,P.X);
ViewFunktion:
Frame21.Funktion.markLinepos(P.Y,P.X);
end;
end;
end;
end;
//------------------------------------------------------------------
//Function Ab --
//--
//------------------------------------------------------------------
procedure TModelFrame.AbClick(Sender:TObject);
var
P:PGraphMap;
fin:
Boolean;
begin
if InSight(Opt.R.CFA)
then begin
P:=MDI.GC.Map;
fin:=false;
if P<>
nil then
if P.Map<>
nil then
fin:=true;
if not fin
then begin
if MDI.GC.Map=
nil then begin
if not MDI.GC.GraphCirclesCompress()
then
MDI.GC.GraphWeightsCompress();
end
else
MDI.GC.GraphWeightsCompress()
end;
DrawBothImages;
end
else if InSight(Opt.R.DFA)
then begin
P:=MDI.GD.Map;
fin:=false;
if P<>
nil then
if P.Map<>
nil then
fin:=true;
if not fin
then begin
if MDI.GD.Map=
nil then begin
if not MDI.GD.GraphCirclesCompress()
then
MDI.GD.GraphWeightsCompress();
end
else
MDI.GD.GraphWeightsCompress();
end;
DrawBothImages;
end;
Setnavigation();
end;
//------------------------------------------------------------------------------
//experimentally save status
//------------------------------------------------------------------------------
procedure TModelFrame.SavetoSourcestack();
var
Fn:JString;
//i,ll:Integer;
begin
Fn:=Frame21.Source.LoadedFile;
if Filelist=
nil then
Filelist:=TSourceStack.Create(Fn)
else begin
Filelist.Next:=TSourceStack.Create(Fn);
Filelist.Next.Previous:=Filelist;
Filelist:=Filelist.Next;
end;
Filelist.FileName:=Fn;
//inhibited
//if false then with Filelist do begin
//FileName:=Fn;
//RTFstream:=TMemoryStream.Create();
//RTFstream.Position:=0;
//Frame21.Source.lines.SaveToStream(RTFstream);
//if MDI.NavL<>nil then begin
//Navstream:=TMemoryStream.Create();
//Navstream.Position:=0;
//Frame11.Navigator.SaveToStream(Navstream);
//ll:=length(MDI.NavL^.items);
//new(Navlongstream);
//setlength(Navlongstream^.items,ll);
//for i:=0 to ll-1 do
//Navlongstream^.items[i]:=MDI.NavL^.items[i];
//end;
//if MDI.SEML<>nil then begin
//Semstream:=TMemoryStream.Create();
//Semstream.Position:=0;
//Frame11.Semantik.SaveToStream(Semstream);
//ll:=length(MDI.SEML^.items);
//new(Semlongstream);
//setlength(Semlongstream^.items,ll);
//for i:=0 to ll-1 do
//Semlongstream^.items[i]:=MDI.SEML^.items[i];
//end;
//end;
end;
//------------------------------------------------------------------------------
//experimentally load status
//------------------------------------------------------------------------------
procedure TModelFrame.LoadfromSourcestack();
var
//Fn:JString;
//i,ll:Integer;
Oldfilelist:TSourceStack;
begin
if Filelist<>
nil then begin
ProcessFile(Filelist.FileName,
'');
//if false then with Filelist do begin
//RTFstream.Position:=0;
//Frame21.Source.lines.LoadFromStream(RTFstream);
//Frame21.Source.LoadedFile:=Fn;
//Frame21.Source.Repaint;
//if Navlongstream<>nil then begin
//Navstream.Position:=0;
//Frame11.Navigator.LoadFromStream(Navstream);
//if mdi.NavL=nil then
//new(mdi.NavL);
//ll:=length(Navlongstream^.items);
//setlength(MDI.NavL^.items,ll);
//for i:=0 to ll-1 do
//MDI.NavL.items[i]:=Navlongstream^.items[i];
//end;
//if Semlongstream<>nil then begin
//Semstream.Position:=0;
//Frame11.Semantik.LoadFromStream(Semstream);
//if mdi.SemL=nil then
//new(mdi.SemL);
//ll:=length(Semlongstream^.items);
//setlength(MDI.SEML^.items,ll);
//for i:=0 to ll-1 do
//MDI.SEML.items[i]:=Semlongstream^.items[i];
//end;
//ShowIDE();
//end;
Oldfilelist:=Filelist;
Filelist:=Filelist.Previous;
Oldfilelist.Free;
end;
end;
//------------------------------------------------------------------
//Function Auf --
//--
//------------------------------------------------------------------
procedure TModelFrame.AufClick(Sender:TObject);
begin
if InSight(Opt.R.Source)
and(Filelist<>
nil)
then begin
LoadfromSourcestack();
end
else if InSight(Opt.R.CFA)
then
MDI.GC.GraphExpand()
else if InSight(Opt.R.DFA)
then
MDI.GD.GraphExpand();
DrawBothImages;
Setnavigation();
end;
//------------------------------------------------------------------
//Function HintergrundFarbe --
//--
//------------------------------------------------------------------
procedure TModelFrame.FarbenClick(Sender:TObject);
begin
with ColorDialog
do begin
Caption:=Application.Title+
' '+Version_IDE;
ShowModal();
if ModalResult<>mrCancel
then begin
SetWindowColors;
Frame21.Source.LoadHighLites(Opt.R.Highlites);
Frame21.Source.CreateHighlited(Frame21.Source.LoadedFileNumber);
DrawBothImages;
end;
end;
end;
//------------------------------------------------------------------
//--
//FormShow --
//--
//------------------------------------------------------------------
procedure TModelFrame.FormShow(Sender:TObject);
begin
Lizenz1.checklicense();
ProcessFile(Opt.R.Infile,
'');
setFrameStatus(
nil);
Opening:=false;
end;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
procedure TModelFrame.ZoomChange(Sender:TObject);
begin
if (Sender=Zoomin)
then
Frame31.ZoominClick(Sender)
else if (Sender=Zoomout)
then
Frame31.ZoomoutClick(Sender)
else if (Sender=ZoomNormal)
then
Frame31.ZoomNormalClick(Sender)
end;
//------------------------------------------------------------------
//Function Speichern --
//--
//------------------------------------------------------------------
procedure TModelFrame.SpeichernClick(Sender:TObject);
begin
with Frame21.Source
do begin
Cursor:=crHourGlass;
Save(false);
ShowRedraw();
ProcessFile(MDI.Source[0].Name,
'');
Cursor:=crDefault;
end;
end;
//------------------------------------------------------------------
//Function Speichern als --
//--
//------------------------------------------------------------------
procedure TModelFrame.SpeichernunterClick(Sender:TObject);
var
Filex,filnam:JString;
PP,fin,i:
Integer;
begin
if InSight(Opt.R.Source)
then begin
fin:=MakeFilters(Opt.R.Infile);
if SaveDialog=
nil then
SaveDialog:=TSaveDialog.Create(self);
SaveDialog.InitialDir:=ExtractFilePath(Opt.R.Infile);
SaveDialog.Options:=[ofOverwritePrompt,ofPathMustExist,ofAllowMultiSelect];
SaveDialog.Filter:=Filters;
SaveDialog.FilterIndex:=fin;
filnam:=ExtractFileName(Frame21.Source.LoadedFile);
PP:=pos(
'.',filnam);
if PP>0
then
filnam:=MidStr(filnam,1,PP-1);
SaveDialog.FileName:=filnam;
if SaveDialog.Execute
then begin
if SaveDialog.FilterIndex>2
then begin
Filex:=MidStr(extensions[SaveDialog.FilterIndex-3].ext,2,10);
i:=1;
while (i<length(Filex))
and(Filex[i]<>
';')
do
i:=i+1;
if (Filex[i]=
';')
then
Filex:=MidStr(Filex,1,i-1)
end
else
Filex:=ExtractFileExt(SaveDialog.FileName);
filnam:=SaveDialog.FileName;
if ExtractFileExt(filnam)=
'' then
filnam:=filnam+Filex;
if ExtractFileExt(filnam)=
'' then
filnam:=filnam+ExtractFileExt(Opt.R.Infile);
if filnam<>Opt.R.Infile
then begin
//first reverse views
if Opt.R.Linenumbers
then
Zeilennummern1Click(
nil);
if Opt.R.Blocknumbers
then
BlocknummernClick(
nil);
Frame21.Source.PlainText:=true;
Frame21.Source.SaveRtfTo(filnam);
Frame21.Source.Modified:=false;
ProcessFile(filnam,
'')
end
else
errorn(74,
'Derselbe Dateiname ist nicht g�ltig');
end;
end
else
Exportieren1Click(Sender);
end;
//------------------------------------------------------------------
//Function SyntaxHighlite --
//--
//------------------------------------------------------------------
procedure TModelFrame.Syntaxhighlight1Click(Sender:TObject);
Var
TP:TPageControl;
modi:
Boolean;
begin
modi:=Frame21.Source.Modified;
Opt.R.SyntaxHighlight:=
not Opt.R.SyntaxHighlight;
Syntaxhervorhebung1.Checked:=Opt.R.SyntaxHighlight;
Frame21.Source.SyntaxHighlight:=Opt.R.SyntaxHighlight;
Frame21.Source.CreateHighlited(0);
TP:=Opt.R.Source.Sheet.PageControl;
TP.ActivePage:=Opt.R.Source.Sheet;
Frame21.Source.Modified:=modi;
end;
//------------------------------------------------------------------
//verify Tab in parent --
//--
//------------------------------------------------------------------
procedure TModelFrame.SetAsParent(
var Sheet:TTabSheet;F:Frames);
var
PageControl:TPageControl;
begin
if F=F1
then
PageControl:=Frame11.PageControl1
else if F=F2
then
PageControl:=Frame21.PageControl1
else if F=F3
then
PageControl:=Frame31.PageControl1
else
PageControl:=Frame11.PageControl1;
if Sheet<>
nil then
if Sheet.PageControl<>PageControl
then
Sheet.PageControl:=PageControl;
end;
//------------------------------------------------------------------
//verify Tab in parent --
//--
//------------------------------------------------------------------
procedure TModelFrame.SetActivePage(F:Frames;V:ViewType);
var
sh:TTabSheet;
begin
sh:=
nil;
case V
of
ViewNav:
sh:=Opt.R.Navigator.Sheet;
ViewSem:
sh:=Opt.R.Semantik.Sheet;
ViewExplorer:
sh:=Opt.R.Explorer.Sheet;
ViewSource:
sh:=Opt.R.Source.Sheet;
ViewCFA:
sh:=Opt.R.CFA.Sheet;
ViewDFA:
sh:=Opt.R.DFA.Sheet;
ViewMeasures:
sh:=Opt.R.measures.Sheet;
ViewFunktion:
sh:=Opt.R.Funktion.Sheet;
ViewMiniatur:
sh:=Opt.R.Miniatur.Sheet;
ViewDruckvorschau:
sh:=Opt.R.Druckvorschau.Sheet;
ViewExecution:
sh:=Opt.R.Execution.Sheet;
NoView:
sh:=
nil;
end;
if sh<>
nil then begin
SetAsParent(sh,F);
sh.PageControl.ActivePage:=sh;
sh.BringToFront
end;
end;
//------------------------------------------------------------------
//Function SetFrame --
//--
//------------------------------------------------------------------
procedure TModelFrame.SetFrameIndex(TS:TTabSheet);
Var
FR:Frames;
begin
FR:=F1;
if TS.Parent=Frame11.PageControl1
then
FR:=F1
else if TS.Parent=Frame21.PageControl1
then
FR:=F2
else if TS.Parent=Frame31.PageControl1
then
FR:=F3;
if Opt.R.Navigator.Sheet=TS
then
Opt.R.Navigator.Frame:=FR
else if Opt.R.Semantik.Sheet=TS
then
Opt.R.Semantik.Frame:=FR
else if Opt.R.Explorer.Sheet=TS
then
Opt.R.Explorer.Frame:=FR
else if Opt.R.Source.Sheet=TS
then
Opt.R.Source.Frame:=FR
else if Opt.R.CFA.Sheet=TS
then
Opt.R.CFA.Frame:=FR
else if Opt.R.DFA.Sheet=TS
then
Opt.R.DFA.Frame:=FR
else if Opt.R.measures.Sheet=TS
then
Opt.R.measures.Frame:=FR
else if Opt.R.Funktion.Sheet=TS
then
Opt.R.Funktion.Frame:=FR
else if Opt.R.Miniatur.Sheet=TS
then
Opt.R.Miniatur.Frame:=FR
else if Opt.R.Druckvorschau.Sheet=TS
then
Opt.R.Druckvorschau.Frame:=FR;
end;
//------------------------------------------------------------------------------
//Full Screen
//------------------------------------------------------------------------------
procedure TModelFrame.Vollbild1Click(Sender:TObject);
var
R:TRect;
begin
if not Vollbild1.Checked
then begin
Borderstyle:=bsNone;
SizeRect.left:=left;
SizeRect.right:=left+width;
SizeRect.Top:=Top;
SizeRect.Bottom:=Top+height;
SystemParametersInfo(SPI_GETWORKAREA,0,@R,0);
SetBounds(R.left,R.Top,R.right-R.left,R.Bottom-R.Top);
Frame21.width:=width;
Panel1.Visible:=false;
File1.Visible:=false;
Edit1.Visible:=false;
View1.Visible:=false;
Navigation1.Visible:=false;
Hilfe1.Visible:=false;
Vollbild1.Checked:=true;
MainMenu1.items.Visible:=false;
DrawBothImages;
setFrame11Ratio();
Fullscr.left:=left+width-Fullscr.width;
Fullscr.Top:=Top;
Fullscr.Show;
end
else begin
Borderstyle:=bsSizeable;
R:=SizeRect;
SetBounds(R.left,R.Top,R.right-R.left,R.Bottom-R.Top);
Frame21.width:=width;
SizeRect.right:=0;
Panel1.Visible:=true;
MainMenu1.items.Visible:=true;
File1.Visible:=true;
Edit1.Visible:=true;
View1.Visible:=true;
Navigation1.Visible:=true;
Hilfe1.Visible:=true;
Vollbild1.Checked:=false;
DrawBothImages;
Fullscr.Hide();
setFrame11Ratio();
end;
end;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
procedure TModelFrame.HochformatClick(Sender:TObject);
begin
Frame31.HochformatClick(Sender);
end;
//------------------------------------------------------------------
//Function Homewards --
//--
//------------------------------------------------------------------
procedure TModelFrame.Homewards(Sender:TObject);
function outside():
Boolean;
begin
result:=false;
result:=result
or(Top+height>Screen.height);
result:=result
or(left+width>Screen.height);
end;
begin
if not InSight(Opt.R.Druckvorschau)
then begin
//set varying frame info
Opt.R.Navigator.Frame:=F1;
Opt.R.Semantik.Frame:=F1;
Opt.R.Explorer.Frame:=F1;
Opt.R.Source.Frame:=F2;
Opt.R.CFA.Frame:=F2;
Opt.R.DFA.Frame:=F2;
Opt.R.measures.Frame:=F2;
Opt.R.Funktion.Frame:=F2;
Opt.R.Miniatur.Frame:=F3;
Opt.R.Druckvorschau.Frame:=F3;
//
//reset Frame3
SetAsParent(Opt.R.Navigator.Sheet,F1);
SetAsParent(Opt.R.Semantik.Sheet,F1);
SetAsParent(Opt.R.Explorer.Sheet,F1);
//
SetAsParent(Opt.R.Source.Sheet,F2);
SetAsParent(Opt.R.CFA.Sheet,F2);
SetAsParent(Opt.R.DFA.Sheet,F2);
SetAsParent(Opt.R.measures.Sheet,F2);
SetAsParent(Opt.R.Funktion.Sheet,F2);
//
SetAsParent(Opt.R.Miniatur.Sheet,F3);
SetAsParent(Opt.R.Druckvorschau.Sheet,F3);
//activate first tab
Frame11.PageControl1.ActivePageIndex:=0;
Frame21.PageControl1.ActivePageIndex:=0;
Frame31.PageControl1.ActivePageIndex:=0;
//Init File again
LoadfromHistory(Opt.R.Infile);
Opt.R.InspectorHeight:=Frame11.height
div 3;
//set widths
if outside()
then begin
Top:=(10*Screen.height)
div 100;
height:=(80*Screen.height)
div 100;
left:=(30*Screen.width)
div 100;
width:=(40*Screen.width)
div 100;
end;
Frame11.width:=width
div 4;
//repaint
with MDI.GC
do begin
VWidth:=width;
VHeight:=height;
VTop:=0;
VLeft:=0;
//reset graphs
VWidth:=0;
VHeight:=0;
end;
with MDI.GD
do begin
VWidth:=width;
VHeight:=height;
VTop:=0;
VLeft:=0;
//reset graphs
VWidth:=0;
VHeight:=0;
end;
//
Speichern.enabled:=Frame21.Source.Modified;
DrawBothImages();
ShowIDE();
//
if Frame21.Source.LoadedFileNumber<>0
then
Frame21.Source.CreateHighlited(0);
if Frame11.Visible
then
Frame11.PageControl1.ActivePage.SetFocus;
Frame21.PageControl1.ActivePage.SetFocus;
end
else begin
Frame21.Source.ReadOnly:=Sourcestate;
ShowIDE();
end;
end;
//------------------------------------------------------------------
//Function Export CSV --
//--
//------------------------------------------------------------------
procedure TModelFrame.ExportCSV(Outname:JString);
var
Strout:TextFile;
stop:
Boolean;
TT:
Integer;
tf,Txf,Txt,Txp,Txc,Fun,SO:JString;
begin
stop:=false;
if InSight(Opt.R.Funktion)
then begin
errorn(75,
'Invalid Export');
stop:=true
end;
if not stop
then begin
AssignFile(Strout,Outname);
Rewrite(Strout);
TT:=0;
while (TT<length(MDI.NavL.items))
do begin
if InSight(Opt.R.Navigator)
then
tf:=MDI.NavL.items[TT].Text
else
tf:=MDI.SEML.items[TT].Text;
Fun:=Functor(tf);
Txf:=getpar(S_Fil,tf);
Txt:=getpar(S_Typ,tf);
Txp:=getpar(S_Lin,tf);
Txc:=getpar(S_Col,tf);
SO:=Txt+
','+Fun+
','+Txf+
','+Txp+
','+Txc;
Writeln(Strout,SO);
TT:=TT+1;
end;
CloseFile(Strout)
end
end;
//------------------------------------------------------------------
//Function Export XML --
//--
//------------------------------------------------------------------
procedure TModelFrame.ExportXML(Outname:JString);
const
headerascii=
'<?xml version="1.0" encoding="ascii" standalone="yes"?>';
headeriso=
'<?xml version="1.0" encoding="iso-8859-1" standalone="yes"?>';
dtdbeg=
'<!DOCTYPE tree [';
dtd0=
'<!ELEMENT tree (node*)>';
dtd1=
'<!ELEMENT node (name, file, type, pos, col)>';
dtd11=
'<!ELEMENT name (#PCDATA)>';
dtd12=
'<!ELEMENT file (#PCDATA)>';
dtd13=
'<!ELEMENT type (#PCDATA)>';
dtd14=
'<!ELEMENT pos (#PCDATA)>';
dtd15=
'<!ELEMENT col (#PCDATA)>';
dtdend=
']>';
var
Strout:TextFile;
stop:
Boolean;
TT,tmax:
Integer;
tf,Txf,Txt,Txp,Txc,Fun:JString;
function xmlcharset(S:JString):JString;
begin
S:=StringReplace(S,
'<',
'<',[rfReplaceAll]);
S:=StringReplace(S,
'&',
'&',[rfReplaceAll]);
S:=StringReplace(S,
'>',
'>',[rfReplaceAll]);
S:=StringReplace(S,
'"',
'"',[rfReplaceAll]);
S:=StringReplace(S,
'''',
''',[rfReplaceAll]);
xmlcharset:=S;
end;
begin
stop:=false;
case Frame11.PageControl1.ActivePageIndex
of
0:
;
1:
;
3:
begin
errorn(76,
'Invalid Export');
stop:=true;
end;
end;
if not stop
then begin
AssignFile(Strout,Outname);
Rewrite(Strout);
Writeln(Strout,headerascii);
Writeln(Strout,dtdbeg);
Writeln(Strout,dtd0);
Writeln(Strout,dtd1);
Writeln(Strout,dtd11);
Writeln(Strout,dtd12);
Writeln(Strout,dtd13);
Writeln(Strout,dtd14);
Writeln(Strout,dtd15);
Writeln(Strout,dtdend);
Writeln(Strout,
'<tree>');
TT:=0;
if InSight(Opt.R.Navigator)
then
tmax:=length(MDI.NavL.items)
else
tmax:=length(MDI.SEML.items);
while (TT<tmax)
do begin
if InSight(Opt.R.Navigator)
then
tf:=MDI.NavL.items[TT].Text
else
tf:=MDI.SEML.items[TT].Text;
Fun:=Functor(tf);
Txf:=getpar(S_Fil,tf);
Txt:=getpar(S_Typ,tf);
Txp:=getpar(S_Lin,tf);
Txc:=getpar(S_Col,tf);
Writeln(Strout,
'<node>');
Writeln(Strout,
' <name>'+xmlcharset(Fun)+
'</name>');
Writeln(Strout,
' <file>'+xmlcharset(Txf)+
'</file>');
Writeln(Strout,
' <type>'+Txt+
'</type>');
Writeln(Strout,
' <line>'+Txp+
'</line>');
Writeln(Strout,
' <col>'+Txc+
'</col>');
Writeln(Strout,
'</node>');
TT:=TT+1;
end;
Writeln(Strout,
'</tree>');
CloseFile(Strout)
end
end;
//------------------------------------------------------------------
//Function Export Text --
//--
//------------------------------------------------------------------
procedure TModelFrame.ExportText(Outname:JString);
begin
case Frame21.PageControl1.ActivePageIndex
of
0:
Frame21.Source.lines.savetofile(Outname);
1:
errorn(77,
'Nicht vorgesehen');
2:
errorn(78,
'Nicht vorgesehen');
3:
Frame21.measures.lines.savetofile(Outname);
4:
Frame21.Funktion.lines.savetofile(Outname);
end
end;
//------------------------------------------------------------------
//Function Export Text --
//--
//------------------------------------------------------------------
procedure TModelFrame.ExportProgram(Outname:JString);
begin
case Frame21.PageControl1.ActivePageIndex
of
0:
errorn(79,
'Nicht vorgesehen');
1:
errorn(80,
'Nicht vorgesehen');
2:
errorn(81,
'Nicht vorgesehen');
3:
errorn(82,
'Nicht vorgesehen');
4:
errorn(83,
'Nicht vorgesehen');
end
end;
//------------------------------------------------------------------
//Function Export Image --
//--
//------------------------------------------------------------------
procedure TModelFrame.ExportImage(Outname:JString);
begin
case Frame21.PageControl1.ActivePageIndex
of
0:
errorn(84,
'Nicht vorgesehen');
1:
Frame21.CFA.Picture.savetofile(Outname);
2:
Frame21.DFA.Picture.savetofile(Outname);
3:
errorn(85,
'Nicht vorgesehen');
4:
errorn(86,
'Nicht vorgesehen');
5:
errorn(87,
'Nicht vorgesehen');
end
end;
//------------------------------------------------------------------
//Function Export Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.Exportieren1Click(Sender:TObject);
var
TFile,Current,NewExt,OldExt:JString;
PP:
Integer;
begin
if SaveDialog=
nil then
SaveDialog:=TSaveDialog.Create(self);
SaveDialog.InitialDir:=Opt.R.ExportDir;
SaveDialog.Options:=[ofOverwritePrompt,ofPathMustExist,ofExtensionDifferent];
SaveDialog.Filter:=
'XML Dateien (*.xml)|*.xml|'+
'CSV Dateien (*.csv)|*.csv|'+
'Dokumente (*.rtf)|*.rtf|'+
'Bilder (*.jpg)|*.jpg|'+
'Programm (*.java)|*.java';
TFile:=Opt.R.ExportDir+ExtractFileName(Opt.R.Infile);
OldExt:=ExtractFileExt(TFile);
TFile:=StringReplace(TFile,OldExt,
'',[rfReplaceAll]);
SaveDialog.FileName:=TFile;
TFile:=SaveDialog.FileName;
if InSight(Opt.R.Navigator)
then
SaveDialog.FilterIndex:=1
else if InSight(Opt.R.Semantik)
then
SaveDialog.FilterIndex:=1
else if InSight(Opt.R.Explorer)
then
SaveDialog.FilterIndex:=1
else if InSight(Opt.R.Source)
then
SaveDialog.FilterIndex:=3
else if InSight(Opt.R.CFA)
then
SaveDialog.FilterIndex:=4
else if InSight(Opt.R.DFA)
then
SaveDialog.FilterIndex:=4
else if InSight(Opt.R.measures)
then
SaveDialog.FilterIndex:=3
else if InSight(Opt.R.Funktion)
then
SaveDialog.FilterIndex:=3
else if InSight(Opt.R.Druckvorschau)
then
SaveDialog.FilterIndex:=5;
if SaveDialog.Execute
then begin
case SaveDialog.FilterIndex
of
1:
NewExt:=
'.xml';
2:
NewExt:=
'.csv';
3:
NewExt:=
'.rtf';
4:
NewExt:=
'.jpg';
5:
NewExt:=
'.java'
else begin
NewExt:=
'';
errorn(88,
'falsches Filter');
end;
end;
TFile:=SaveDialog.FileName;
PP:=pos(
'.',ExtractFileName(TFile));
if PP<=0
then
TFile:=TFile+NewExt
else begin
Current:=MidStr(LowerCase(ExtractFileName(TFile)),PP,length(NewExt));
if Current<>NewExt
then begin
TFile:=StringReplace(TFile,Current,NewExt,[rfIgnoreCase]);
SaveDialog.FileName:=TFile;
end
end;
if (LowerCase(OldExt)<>NewExt)
and(NewExt=
'.java')
then begin
inform(45,
'noch nicht m�glich',
'');
end;
case SaveDialog.FilterIndex
of
1:
ExportXML(SaveDialog.FileName+NewExt);
2:
ExportCSV(SaveDialog.FileName+NewExt);
3:
ExportText(SaveDialog.FileName+NewExt);
4:
ExportImage(SaveDialog.FileName+NewExt);
5:
ExportProgram(SaveDialog.FileName+NewExt)
else
errorn(89,
'falsches Filter');
end;
setl(Opt.R.ExportDir,ExtractFileDir(SaveDialog.FileName)+
'\');
end;
end;
//------------------------------------------------------------------
//Function Import Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.Importieren1Click(Sender:TObject);
var
OpenDialog:TOpenDialog;
begin
OpenDialog:=TOpenDialog.Create(self);
OpenDialog.InitialDir:=Opt.R.ProgramDir;
OpenDialog.Options:=[ofReadOnly,ofFileMustExist];
OpenDialog.Filter:=
'CSV Dateien (*.csv)|*.csv|'+
'XML Files (*.xml)|*.xml';
OpenDialog.FilterIndex:=1; { start the dialog showing all files }
if OpenDialog.Execute
then
ProcessFile(OpenDialog.FileName,
'')
end;
//------------------------------------------------------------------
//Function Graph Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.GraphClick(Sender:TObject);
var
D:TPoint;
Sheet:TTabSheet;
Frame:TFrame;
FS:Frames;
Img:TImage;
GF:TGraph;
Node:
Integer;
begin
Img:=Frame21.CFA;
GF:=MDI.GC;
if Sender=Frame21.DFA
then begin
Img:=Frame21.DFA;
GF:=MDI.GD
end;
Sheet:=(Img.Parent.Parent
as TTabSheet);
Frame:=(Img.Parent.Parent.Parent.Parent
as TFrame);
if Frame=Frame21
then
FS:=F2
else if Frame=Frame31
then
FS:=F3
else
FS:=F1;
D:=Mouse.CursorPos;
D:=GraphCoordinates(GF,Sheet,Frame,D);
with Frame11
do
positbyPoint(ViewList.Per[FS].pos,0);
Node:=Frame21.positbyPoint(D);
if Node>0
then begin
if InSight(Opt.R.Navigator)
then
UpDateInspector(MDI.NavL,Frame11.Navigator.Selected);
if InSight(Opt.R.Semantik)
then
UpDateInspector(MDI.SEML,Frame11.Semantik.Selected);
end;
SaveView();
end;
//------------------------------------------------------------------
//--
//On mouse down in Graph --
//--
//------------------------------------------------------------------
function TModelFrame.GraphCoordinates(G:TGraph;
var S:TTabSheet;
var F:TFrame;
P:TPoint):TPoint;
var
Off,cvx,cvy:
Integer;
SC:TScrollbox;
begin
cvx:=G.Sidelength
div 2;
cvy:=G.Sidelength
div 2;
if (G.YBorder>G.Sidelength
div 2)
and(G.VHeight=G.height)
then
cvy:=cvy+2*G.YBorder
else
cvy:=cvy+G.VHeight*G.YBorder
div G.height;
//it's a miracle
P.X:=P.X-S.left;
P.Y:=P.Y-S.Top;
P.X:=P.X-F.left;
P.Y:=P.Y-F.Top;
P.X:=P.X-self.left-cvx;
//corr term
P.Y:=P.Y-self.Top;
P.Y:=P.Y-cvy;
//corr term
if G.VLeft>0
then begin
P.X:=P.X-G.VLeft;
P.Y:=P.Y-G.VTop;
end;
//showmessage('x='+inttostr(P.X)+' y='+inttostr(P.Y));
if S=Opt.R.CFA.Sheet
then
SC:=Frame21.ScrollBox1
else
SC:=Frame21.ScrollBox2;
if SC.HorzScrollBar.Range>0
then begin
Off:=(SC.HorzScrollBar.Position*G.VWidth)
div SC.HorzScrollBar.Range;
P.X:=P.X+Off;
end;
if SC.VertScrollBar.Range>0
then begin
Off:=(SC.VertScrollBar.Position*G.VHeight)
div SC.VertScrollBar.Range;
P.Y:=P.Y+Off;
end;
GraphCoordinates:=P
end;
//------------------------------------------------------------------
//Function DFA Double Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.GraphDblClick(Sender:TObject);
var
D,P:TPoint;
Sheet:TTabSheet;
Frame:TFrame;
FS:Frames;
Img:TImage;
GF:TGraph;
se,Co:
Integer;
Key:JString;
begin
Img:=Frame21.CFA;
GF:=MDI.GC;
if Sender=Frame21.DFA
then begin
Img:=Frame21.DFA;
GF:=MDI.GD
end;
Sheet:=(Img.Parent.Parent
as TTabSheet);
Frame:=(Img.Parent.Parent.Parent.Parent
as TFrame);
if Frame=Frame21
then
FS:=F2
else if Frame=Frame31
then
FS:=F3
else
FS:=F1;
D:=Mouse.CursorPos;
D:=GraphCoordinates(GF,Sheet,Frame,D);
se:=GF.FindGraphNode(GF.im,D);
if se>0
then begin
GF.Selected:=se;
Co:=GF.Maps(se).Tree;
if (Co>=0)
and(Co<=length(GF.Content^.items))
then
Key:=GF.Content^.items[Co].Text;
with Frame11
do
positbyPoint(ViewList.Per[FS].pos,0);
Opt.R.Source.Sheet.PageControl.ActivePage:=Opt.R.Source.Sheet;
//Frame21.Source.positbyNode(Key);
P:=Frame21.getPointfromNode(Key);
Frame21.Source.markLinepos(P.Y,P.X);
if InSight(Opt.R.Navigator)
then
UpDateInspector(MDI.NavL,Frame11.Navigator.Selected);
if InSight(Opt.R.Semantik)
then
UpDateInspector(MDI.SEML,Frame11.Semantik.Selected);
end;
end;
//------------------------------------------------------------------
//Function Find Search --
//--
//------------------------------------------------------------------
procedure TModelFrame.inslist(S:TextString;
var TS:TextStrings);
var
i:
Integer;
fou:
Boolean;
begin
setl(S.S,trim(S.S));
if S.S>
'' then begin
fou:=false;
for i:=1
to length(TS)
do
if S.S=trim(TS[i].S)
then begin
fou:=true;
TS[i].Regular:=S.Regular
end;
if not fou
then begin
for i:=length(TS)
downto 2
do
TS[i]:=TS[i-1];
TS[1]:=S;
end;
end;
end;
//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TModelFrame.ComboBox1Notify();
begin
with SearchReplaceDialog
do begin
ComboBox1.OnChange:=ComboBox1Change;
ComboBox1.OnClick:=ComboBox1Click;
ComboBox1.OnDropDown:=ComboBox1Click;
end;
end;
//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TModelFrame.ContextIT1Click(Sender:TObject);
begin
if netallowed
then
Browser(Handle,
'http://cococo.de/Context_IT_GmbH/index.jsp?content=software');
end;
//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TModelFrame.ComboBox1Click(Sender:TObject);
begin
with SearchReplaceDialog
do begin
ComboBox1.Color:=clWhite;
end;
end;
//------------------------------------------------------------------
//-
//------------------------------------------------------------------
procedure TModelFrame.ComboBox1Change(Sender:TObject);
begin
with SearchReplaceDialog
do begin
ComboBox1.Color:=clWhite;
CheckBox2.Checked:=FindinComboBox1(trim(ComboBox1.Text));
end;
end;
//------------------------------------------------------------------
//-
//------------------------------------------------------------------
function TModelFrame.initSearchReplace(Search,Replace:JString;regex:
Boolean;
Kind:SeaRepFun):
Boolean;
begin
with Frame21.Source,SearchReplaceDialog
do begin
Parsecheck:=true;
setSearchString(Search,regex);
if Parsecheck
then begin
//now searchstring=search
inslist(searchString,Opt.R.searchString);
ComboBox1Add(searchString);
setl(ReplaceString.S,Replace);
inslist(ReplaceString,Opt.R.ReplaceString);
end;
//beware of empty replcaement
if Kind<>FuncSearch
then
if (Search=
'^')
and(Replace=
'')
or(Replace=
'\0')
then
Parsecheck:=false;
result:=Parsecheck
end;
end;
//------------------------------------------------------------------
//show search dialogue
//
//------------------------------------------------------------------
procedure TModelFrame.AskforSearchReplace();
var
i:
Integer;
begin
with SearchReplaceDialog,Frame21.Source
do begin
//------------------------------------------------
ComboBox1.items.clear;
ComboBox2.items.clear;
for i:=1
to length(Opt.R.searchString)
do
if Opt.R.searchString[i].S>
'' then
ComboBox1Add(Opt.R.searchString[i]);
for i:=1
to length(Opt.R.ReplaceString)
do
if Opt.R.ReplaceString[i].S>
'' then
ComboBox2.items.Add(Opt.R.ReplaceString[i].S);
ComboBox1.Text:=searchString.S;
ComboBox2.Text:=Opt.R.ReplaceString[1].S;
//------------------------------------------------
CheckBox1.Checked:=Frame21.Source.casesensitive;
CheckBox2.Checked:=FindinComboBox1(ComboBox1.Text);
ShowModal();
casesensitive:=CheckBox1.Checked;
regexpsearch:=CheckBox2.Checked;
end;
end;
//------------------------------------------------------------------
//Function Find
//on key down and upon button/menu click
//------------------------------------------------------------------
procedure TModelFrame.GuessEditortime(last:TDateTime;items:
Integer;
var val:
Integer);
var
N10,span,erg:
real;
begin
if items>10
then begin
N10:=items/10;
span:=MilliSecondsBetween(Now,last);
erg:=span/N10;
val:=(trunc(100*erg)
div 100+val)
div 2;
end;
end;
//------------------------------------------------------------------
//Function Find
//on key down and upon button/menu click
//------------------------------------------------------------------
procedure TModelFrame.SuchFunktion(Sender:TObject);
var
allcount,oldselstart,oldsellength,guessvalue:
Integer;
isbutton:
Boolean;
calctime:TDateTime;
//------------------------------------------------
procedure showsearch();
begin
with SearchReplaceDialog,Frame21.Source
do begin
Panel3.height:=0;
Label4.width:=(SearchReplaceDialog.width-3*Button1.width)
div 3;
Button4.Visible:=true;
button3.Visible:=false;
ComboBox2.TabStop:=false;
SearchReplaceDialog.height:=2*Panel2.height+30+Panel6.height;
end;
end;
//------------------------------------------------
begin
isbutton:=(Sender=Suchen);
with Frame21.Source,SearchReplaceDialog
do begin
ComboBox1Notify();
Opt.R.Source.Sheet.PageControl.ActivePage:=Opt.R.Source.Sheet;
if Frame21.Source.Visible
then
Frame21.Source.SetFocus;
//------------------------------------------------
//first try repeated search or seltext search
//------------------------------------------------
if isbutton
and(SelText>
'')
then
initSearchReplace(SelText,
'',false,FuncSearch);
if not isbutton
and(searchString.S=
'')
and(SelText>
'')
then
initSearchReplace(SelText,
'',false,FuncSearch);
//------------------------------------------------
if (searchString.S>
'')
and not wrapped
and not isbutton
then begin
SelStart:=SelStart+1;
SearchReplace(FuncSearch);
if wrapped
then begin
SelStart:=0;
if foundat<0
then
inform(46,
'nicht gefunden',
'')
else
inform(169,
'zum Dateianfang zur�ck',
'');
end
else if foundat<0
then
inform(46,
'nicht gefunden',
'')
end;
//------------------------------------------------
if (searchString.S=
'')
or wrapped
or isbutton
then begin
showsearch();
AskforSearchReplace();
if ModalResult=mrOK
then begin
Screen.Cursor:=crHourGlass;
repeat
if initSearchReplace(ComboBox1.Text,
'',regexpsearch,FuncSearch)
then
begin
SearchReplace(FuncSearch);
if (foundat<0)
then
inform(46,
'nicht gefunden',
'');
end
else begin
ComboBox1.Color:=ColorWarn;
AskforSearchReplace();
end;
until Parsecheck
or(ModalResult=mrCancel);
Screen.Cursor:=crDefault;
end
//------------------------------------------------
else if ModalResult=mrAll
then begin
if (ComboBox1.Text>
'')
then begin
Screen.Cursor:=crHourGlass;
with Frame21.Source
do begin
Cursor:=crHourGlass;
SelStart:=0;
guessvalue:=Opt.R.Timeper10forSearch*MDI.filelength
div 1000;
if (guessvalue>20000)
then
inform(221,
'Die Aktion wird etwa einige Zeit dauern:',
inttostr(guessvalue));
calctime:=Now;
repeat
if initSearchReplace(ComboBox1.Text,
'',regexpsearch,FuncSearch)
then begin
oldselstart:=SelStart;
oldsellength:=SelLength;
allcount:=0;
Cursor:=crHourGlass;
HideRedraw();
SelStart:=0;
repeat
SearchReplace(FuncSearch);
if (foundat>=0)
then begin
allcount:=allcount+1;
if not wrapped
then
SelStart:=foundat;
end;
if foundat>=0
then
SelStart:=SelStart+1;
until (foundat<0)
or wrapped;
GuessEditortime(calctime,allcount,Opt.R.Timeper10forSearch);
SelStart:=oldselstart;
SelLength:=oldsellength;
ShowRedraw();
ScrollLeft();
if (foundat>=0)
then
allcount:=allcount+1;
inform(147,
'Anzahl:',inttostr(allcount));
Cursor:=crDefault;
end
else begin
ComboBox1.Color:=ColorWarn;
AskforSearchReplace();
end;
until Parsecheck
or(ModalResult=mrCancel);
Screen.Cursor:=crDefault;
end
end;
end;
end;
end;
end;
//------------------------------------------------------------------
//Function replace --
//--
//------------------------------------------------------------------
procedure TModelFrame.Ersetzen1Click(Sender:TObject);
var
allcount,oldselstart,oldsellength,guessvalue:
Integer;
isbutton:
Boolean;
calctime:TDateTime;
//------------------------------------------------
procedure showreplace();
begin
with SearchReplaceDialog
do begin
Label4.width:=(SearchReplaceDialog.width-3*Button1.width)
div 3;
Panel3.height:=Panel2.height;
Button4.Visible:=false;
button3.Visible:=true;
ComboBox2.TabStop:=true;
SearchReplaceDialog.height:=Panel1.height+2*Panel2.height+30+
Panel6.height;
end;
end;
//------------------------------------------------
begin
Opt.R.Source.Sheet.PageControl.ActivePage:=Opt.R.Source.Sheet;
isbutton:=(Sender=Ersetzen);
if Frame21.Source.Visible
then
Frame21.Source.SetFocus;
with Frame21.Source
do
if isbutton
and(SelText>
'')
then
initSearchReplace(SelText,
'',false,FuncReplace);
with SearchReplaceDialog,Frame21.Source
do begin
ComboBox1Notify();
showreplace();
repeat
AskforSearchReplace();
if not(ComboBox1.Text<>ComboBox2.Text)
and(ComboBox1.Text<>
'')
then begin
ComboBox1.Color:=ColorWarn;
ComboBox2.Color:=ColorWarn;
end;
until (ModalResult=mrCancel)
or(ComboBox1.Text<>ComboBox2.Text)
and
(ComboBox1.Text<>
'');
//------------------------------------------------
if ModalResult=mrOK
then begin
Screen.Cursor:=crHourGlass;
repeat
if initSearchReplace(ComboBox1.Text,ComboBox2.Text,regexpsearch,
FuncReplace)
then begin
SaveToUndoBuffer();
SearchReplace(FuncReplace);
if foundat<0
then begin
errorn(90,
'nicht gefunden');
end;
end
else begin
ComboBox1.Color:=ColorWarn;
ComboBox2.Color:=ColorWarn;
AskforSearchReplace();
end;
until Parsecheck
or(ModalResult=mrCancel);
Screen.Cursor:=crDefault;
end
//------------------------------------------------
else if ModalResult=mrAll
then begin
if (ComboBox1.Text>
'')
then begin
Screen.Cursor:=crHourGlass;
with Frame21.Source
do begin
HideRedraw();
allcount:=0;
SaveToUndoBuffer();
guessvalue:=Opt.R.Timeper10forReplace*MDI.filelength
div 1000;
if (guessvalue>20000)
then
inform(222,
'Die Aktion wird einige Zeit dauern:',
inttostr(guessvalue));
calctime:=Now;
repeat
if initSearchReplace(ComboBox1.Text,ComboBox2.Text,regexpsearch,
FuncReplace)
then begin
oldselstart:=SelStart;
oldsellength:=SelLength;
HideRedraw();
SelStart:=0;
Cursor:=crHourGlass;
repeat
SearchReplace(FuncReplace);
if foundat>=0
then
allcount:=allcount+1;
until (foundat<0)
or wrapped;
SelStart:=oldselstart;
SelLength:=oldsellength;
Cursor:=crDefault;
ShowRedraw();
ScrollLeft();
end
else begin
ComboBox1.Color:=ColorWarn;
ComboBox2.Color:=ColorWarn;
AskforSearchReplace();
end;
until Parsecheck
or(ModalResult=mrCancel);
GuessEditortime(calctime,allcount,Opt.R.Timeper10forReplace);
ShowRedraw();
inform(188,
'Anzahl Ersetzungen:',inttostr(allcount));
SelStart:=0;
Screen.Cursor:=crDefault;
end;
end;
end;
end;
end;
//------------------------------------------------------------------
//Function replace --
//--
//------------------------------------------------------------------
procedure TModelFrame.Ersetzenwiederholt1Click(Sender:TObject);
begin
with Frame21.Source
do begin
Screen.Cursor:=crHourGlass;
//Selstart:=Selstart+1;
SaveToUndoBuffer();
SearchReplace(FuncContReplace);
if wrapped
then begin
SelStart:=0;
inform(170,
'zur�ck am Anfang der Datei',
'');
end;
Screen.Cursor:=crDefault;
end;
end;
//------------------------------------------------------------------
//Function Drucker Einstellung --
//--
//------------------------------------------------------------------
procedure TModelFrame.Druckereinstellung1Click(Sender:TObject);
var
PrinterSetupDialog:TPrinterSetupDialog;
begin
PrinterSetupDialog:=TPrinterSetupDialog.Create(self);
PrinterSetupDialog.Execute;
end;
//------------------------------------------------------------------
//Function Template --
//--
//------------------------------------------------------------------
procedure TModelFrame.TemplateClick(Sender:TObject);
begin
SamplesDialog.ShowModal;
if SamplesDialog.changed
then begin
setlength(MDI.Source,1);
MDI.Source[0].Name:=SamplesDialog.NewfilNam;
MDI.Source[0].Typ:=PLAIN;
setl(Opt.R.Infile,SamplesDialog.NewfilNam);
ProcessFile(SamplesDialog.NewfilNam,
'')
end;
end;
//------------------------------------------------------------------
//Function neu Version
//--
//------------------------------------------------------------------
procedure TModelFrame.NeueVersion1Click(Sender:TObject);
const
versionfile=
'version.txt';
msiext=
'.exe';
var
RemoteHost,TestHost,URI:JString;
loc:TextFile;
Vers:JString;
updresp:
Boolean;
Site,Language,SaveDir:JString;
Setupfile:
String;
begin
SaveDir:=OptionsFileDir(Application.Title);
if lang=english
then
Language:=
'en'
else
Language:=
'de';
TestHost:=
'http://localhost:8084/Context_IT_GmbH/';
RemoteHost:=
'http://cococo.de/Context_IT_GmbH/';
URI:=
'updatesoftware?content=update&language='+Language+
'&product='+
Application.Title;
Setupfile:=Application.Title+
'Update'+msiext;
Vers:=
'';
if netallowed
then begin
Screen.Cursor:=crHourGlass;
//check for test environmnet
Site:=RemoteHost+URI;
if not GetInetFile(Site+
'&info='+versionfile,SaveDir+versionfile)
then
Site:=TestHost+URI;
//now do download
if GetInetFile(Site+
'&info='+versionfile,SaveDir+versionfile)
then begin
//checknetwork();
AssignFile(loc,SaveDir+versionfile);
Reset(loc);
readln(loc,Vers);
CloseFile(loc);
if Vers>Version_IDE
then begin
//OK, get remote setup file
updresp:=ask(139,
'Datei herunterladen?',
'')=mrYes;
if updresp
then begin
if GetInetFile(Site,SaveDir+Setupfile)
then begin
Close;
Screen.Cursor:=crDefault;
Browser(Handle,SaveDir+Setupfile)
end
else
inform(151,
'keine Setpdatei gefunden',
'');
end
else
inform(150,
'nicht heruntergeladen',
'');
end
else
inform(164,
'keine neuere Version gefunden als ',Version_IDE);
end
else
inform(152,
'keine Verbindung gefunden',
'');
end;
Screen.Cursor:=crDefault;
end;
//------------------------------------------------------------------
//Function execute Batch command --
//--
//------------------------------------------------------------------
procedure TModelFrame.ExecuteEnd(Sender:TObject);
var
Fn:JString;
i:
Integer;
S1,S2:JString;
begin
Opt.R.Execution.Sheet.tabVisible:=true;
Opt.R.Execution.Sheet.PageControl:=Frame21.PageControl1;
with MyThread
do begin
if (stderr=
'')
and(stdout=
'')
then
stdout:=trans(lang,48,
' Proze� wurde unterbrochen ...');
S1:=oemchars(stdout);
S2:=oemchars(stderr);
Frame31.executor.CreateString(S1,S2);
Fn:=commandstring;
i:=2;
while (i<length(Fn))
and(Fn[i]<>
'"')
do
i:=i+1;
Fn:=MidStr(Fn,2,i-2);
Fn:=ExtractFileName(Fn);
Frame31.executor.Hint:=trans(lang,157,
'Ausf�hrung von')+crlf+Fn+crlf+trans
(lang,158,
'um')+
' '+FormatDateTime(
'hh:mm:ss',Now);
Frame21.PageControl1.ActivePage:=Opt.R.Execution.Sheet;
Terminate();
end;
Execute.ImageIndex:=31;
Screen.Cursor:=crDefault;
end;
//--------------------------------------------------------------
//licensecheck
//wirkungslos, es sei denn es w�re gehackt worden
//--------------------------------------------------------------
procedure TModelFrame.Honeypot();
begin
if (
not Opt.R.Activated)
and(globtim*60>maxfilesize)
then
exitprocess(0);
end;
//------------------------------------------------------------------
//Function execute Batch command --
//--
//------------------------------------------------------------------
procedure TModelFrame.ExecuteClick(Sender:TObject);
var
CurExt,ExFile,Parms,Command:JString;
i:
Integer;
begin
if (MyThread<>
nil)
and(Execute.ImageIndex=47)
then begin
MyThread.Terminate;
sleep(500);
if not MyThread.Finished
then
TerminateThread(MyThread.Handle,0);
Execute.ImageIndex:=31;
Screen.Cursor:=crDefault;
end
else begin ;
MyThread:=TMyThread.Create(true);
Screen.Cursor:=crAppStart;
CurExt:=LowerCase(ExtractFileExt(Frame21.Source.LoadedFile));
if (InSight(Opt.R.Source)
and((CurExt=
'.bat')
or(CurExt=
'.cmd')))
or
(Opt.R.CommandFile>
'')
then begin
if Frame21.Source.Modified
then
Frame21.Source.Save(true);
if ((CurExt=
'.bat')
or(CurExt=
'.cmd'))
then
ExFile:=Frame21.Source.LoadedFile
else
ExFile:=Opt.R.CommandFile;
//---- parameters -------------------------------
//%1 = file path
//%2 = file name
//%3 = file name
//%4 = path
//-----------------------------------------------
ExFile:=
'"'+ExFile+
'"';
Parms:=
'"'+ExtractFilePath(Opt.R.Infile)+
'"';
Parms:=Parms+
' '+
'"'+ExtractFileName(Opt.R.Infile)+
'"';
for i:=1
to length(Opt.R.Libraries)
do
if Opt.R.Libraries[i]<>
'' then
Parms:=Parms+
' '+
'"'+Opt.R.Libraries[i]+
'"';
Command:=ExFile+
' '+Parms;
//-----------------------------------------------
//now create and execute
//-----------------------------------------------
MyThread.FreeOnTerminate:=false;
MyThread.OnTerminate:=ExecuteEnd;
MyThread.Stdin:=crlf+crlf;
MyThread.commandstring:=Command;
Execute.ImageIndex:=47;
MyThread.Start();
end
end;
end;
//------------------------------------------------------------------
//menu exit --
//--
//------------------------------------------------------------------
procedure TModelFrame.Exit1Click(Sender:TObject);
begin
Close()
end;
//------------------------------------------------------------------
//Copy to Clipbrd
//--
//------------------------------------------------------------------
procedure TModelFrame.KopierenClick(Sender:TObject);
var
MyFormat:
Word;
AData:
Cardinal;
APalette:HPalette;
begin
if Frame21.Source.focused
then begin
Frame21.Source.SaveToUndoBuffer();
Frame21.Source.CopyToClipboard
end
else if Frame21.measures.focused
then
Frame21.measures.CopyToClipboard
else if Frame21.Funktion.focused
then
Frame21.Funktion.CopyToClipboard
else if Frame21.LastClick=ViewCFA
then begin
Frame21.CFA.Picture.SaveToClipBoardFormat(MyFormat,AData,APalette);
Clipboard.SetAsHandle(MyFormat,AData)
end
else if Frame21.LastClick=ViewDFA
then begin
Frame21.DFA.Picture.SaveToClipBoardFormat(MyFormat,AData,APalette);
Clipboard.SetAsHandle(MyFormat,AData);
end;
end;
//------------------------------------------------------------------
//Function Select all --
//--
//------------------------------------------------------------------
procedure TModelFrame.Leerzeichen1Click(Sender:TObject);
begin
Opt.R.ShowSpaces:=
not Opt.R.ShowSpaces;
Leerzeichen1.Checked:=Opt.R.ShowSpaces;
Frame21.Source.CreateHighlited(Frame21.Source.LoadedFileNumber);
end;
//------------------------------------------------------------------
//Function Select all --
//--
//------------------------------------------------------------------
procedure TModelFrame.Lizenzerwerben1Click(Sender:TObject);
begin
if netallowed
then
Browser(Handle,
'https://cococo.de/Context_IT_GmbH/index.jsp?content=license&detail='+
Application.Title);
end;
//------------------------------------------------------------------
//Function Select all --
//--
//------------------------------------------------------------------
procedure TModelFrame.LizenzzeigenClick(Sender:TObject);
var
Licname:JString;
begin
if lang=german
then
Licname:=Opt.R.ProgramDir+
'Lizenz-deutsch.rtf'
else
Licname:=Opt.R.ProgramDir+
'license-english.rtf';
FormattedFile(Licname);
end;
//------------------------------------------------------------------
//Function Select all --
//--
//------------------------------------------------------------------
procedure TModelFrame.FormattedFile(Fn:JString);
begin
setlength(MDI.Source,1);
setlength(Frame21.Source.Sources,1);
MDI.Processor:=trans(lang,160,
'RTF Text');
MDI.Source[0].Name:=Fn;
MDI.Source[0].Typ:=RTF;
Frame11.Navigator.items.clear;
Frame11.ScanSources(Frame11.Explorer);
Opt.R.Explorer.Sheet.PageControl.ActivePage:=Opt.R.Explorer.Sheet;
Frame21.Source.Sources[0]:=MDI.Source[0].Name;
Frame21.Source.CreateRTFReadOnly(0);
Frame21.Source.ReadOnly:=true;
setl(Opt.R.Infile,Fn);
end;
//------------------------------------------------------------------
//Function Select all --
//--
//------------------------------------------------------------------
procedure TModelFrame.Allesauswhlen1Click(Sender:TObject);
begin
if Frame21.Source.focused
then
Frame21.Source.SelectAll
else if Frame21.measures.focused
then
Frame21.measures.SelectAll
else if Frame21.Funktion.focused
then
Frame21.Funktion.SelectAll;
end;
//------------------------------------------------------------------
//Function Cut --
//--
//------------------------------------------------------------------
procedure TModelFrame.Ausschneiden1Click(Sender:TObject);
var
ll,i,lins,P:
Integer;
begin
if Frame21.PageControl1.ActivePageIndex=0
then
with Frame21.Source
do begin
SaveToUndoBuffer();
P:=caretpos.Y;
CutToClipboard;
lins:=0;
ll:=length(Clipbrd.Clipboard.AsText);
for i:=0
to ll
do
if Clipbrd.Clipboard.AsText[i]=chr(Key_Return)
then
lins:=lins+1;
PositioningCorrect(P,lins);
DrawBothImages;
end;
end;
//------------------------------------------------------------------
//Paste from Clipbrd --
//--
//------------------------------------------------------------------
procedure TModelFrame.Einfuegen1Click(Sender:TObject);
var
ll,P:
Integer;
begin
if InSight(Opt.R.Source)
then
with Frame21.Source
do begin
SaveToUndoBuffer();
P:=caretpos.Y;
ll:=length(Clipbrd.Clipboard.AsText);
MaxLength:=MaxLength+ll;
PasteFromClipboard;
PositioningCorrect(P,lines.Count);
Setnavigation();
end;
end;
//------------------------------------------------------------------
//Function Mouse Wheel --
//--
//------------------------------------------------------------------
procedure TModelFrame.FormMouseWheel(Sender:TObject;Shift:TShiftState;
WheelDelta:
Integer;MousePos:TPoint;
var Handled:
Boolean);
begin
if MouseOver(Opt.R.Navigator)
then begin
with Frame11.Navigator
do begin
if not topitem.expanded
then
TopItem.Expand(true)
else
TopItem.Collapse(true)
end;
end else if MouseOver(Opt.R.Semantik)
then begin
with Frame11.semantik
do begin
if not topitem.expanded
then
TopItem.Expand(true)
else
TopItem.Collapse(true)
end;
end else if MouseOver(Opt.R.Explorer)
then begin
with Frame11.Explorer
do begin
if not topitem.expanded
then
TopItem.Expand(true)
else
TopItem.Collapse(true)
end;
end else if MouseOver(Opt.R.CFA)
then begin
Frame21.Zoom(MDI.GC,Frame21.CFA,MDI.GC.CStream,WheelDelta,
Frame21.ScrollBox1);
MDI.GC.ReDraw();
with MDI.GC
do
if Selected>0
then
GraphPositbyNode(Selected,Frame21.CFA);
end
else if MouseOver(Opt.R.DFA)
then begin
Frame21.Zoom(MDI.GD,Frame21.DFA,MDI.GD.CStream,WheelDelta,
Frame21.ScrollBox2);
MDI.GD.ReDraw();
with MDI.GC
do
if Selected>0
then
GraphPositbyNode(Selected,Frame21.DFA);
end
else if MouseOver(Opt.R.Source)
then
Frame21.Source.Scroller(WheelDelta)
else if MouseOver(Opt.R.Funktion)
then
Frame21.Funktion.Scroller(WheelDelta);
Handled:=true;
end;
//------------------------------------------------------------------
//Function Explorer Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.ExplorerClick(Sender:TObject);
var
i,P:
Integer;
begin
if Frame11.Explorer.items.Count>0
then begin
P:=-1;
for i:=0
to length(MDI.Source)-1
do
if Frame11.Explorer.Selected.Text=ExtractFileName(MDI.Source[i].Name)
then
P:=i;
if (P>=0)
and(Frame21.Source.LoadedFile<>MDI.Source[P].Name)
then begin
Frame11.Explorer.Hint:=
'Explorer'+crlf+MDI.Source[P].Name;
Frame21.PageControl1.Pages[0].Show;
if MDI.Source[P].Typ=RTF
then
Frame21.Source.CreateHighlited(P)
else
Frame21.Source.CreatePlain(P);
end;
end;
end;
//------------------------------------------------------------------
//Function Set Frames --
//--
//------------------------------------------------------------------
procedure TModelFrame.GetFramePointers;
begin
//set Sheet pointers
Opt.R.Navigator.Sheet:=Frame11.PageControl1.Pages[0];
Opt.R.Semantik.Sheet:=Frame11.PageControl1.Pages[1];
Opt.R.Explorer.Sheet:=Frame11.PageControl1.Pages[2];
Opt.R.Source.Sheet:=Frame21.PageControl1.Pages[0];
Opt.R.CFA.Sheet:=Frame21.PageControl1.Pages[1];
Opt.R.DFA.Sheet:=Frame21.PageControl1.Pages[2];
Opt.R.measures.Sheet:=Frame21.PageControl1.Pages[3];
Opt.R.Funktion.Sheet:=Frame21.PageControl1.Pages[4];
Opt.R.Miniatur.Sheet:=Frame31.PageControl1.Pages[0];
Opt.R.Druckvorschau.Sheet:=Frame31.PageControl1.Pages[1];
Opt.R.Execution.Sheet:=Frame31.PageControl1.Pages[2];
Opt.R.Inspector.Sheet:=Frame11.PageControl2.Pages[0];
end;
//------------------------------------------------------------------
//Function Set Frames --
//--
//------------------------------------------------------------------
procedure TModelFrame.DistributeFrames;
begin
//
SetAsParent(Opt.R.Miniatur.Sheet,F3);
SetAsParent(Opt.R.Druckvorschau.Sheet,F3);
SetAsParent(Opt.R.Execution.Sheet,F3);
//
Frame31.MiniaturTab.tabVisible:=false;
Frame31.DruckvorschauTab.tabVisible:=false;
Frame31.ExecuteTab.tabVisible:=false;
if MDI.Source[0].Typ=PLAIN
then begin
Frame11.Hide();
Frame31.Hide();
Simulation1.Hide;
//
SetAsParent(Opt.R.Navigator.Sheet,F1);
SetAsParent(Opt.R.Semantik.Sheet,F1);
SetAsParent(Opt.R.Explorer.Sheet,F1);
//
SetAsParent(Opt.R.Source.Sheet,F2);
SetAsParent(Opt.R.CFA.Sheet,F2);
SetAsParent(Opt.R.DFA.Sheet,F2);
//
SetAsParent(Opt.R.measures.Sheet,F3);
SetAsParent(Opt.R.Funktion.Sheet,F3);
//Assign Indices
SetActivePage(F2,ViewSource);
end
else if MDI.ReturnValue<=1
then begin
Frame11.Show();
Frame21.Show();
Frame31.Show();
//Assign Parent Tabsheets
SetAsParent(Opt.R.Navigator.Sheet,F1);
SetAsParent(Opt.R.Semantik.Sheet,F1);
SetAsParent(Opt.R.Explorer.Sheet,F1);
//
SetAsParent(Opt.R.Source.Sheet,F2);
SetAsParent(Opt.R.CFA.Sheet,F2);
SetAsParent(Opt.R.DFA.Sheet,F2);
//
SetAsParent(Opt.R.Funktion.Sheet,F3);
SetAsParent(Opt.R.measures.Sheet,F3);
//
SetActivePage(F1,ViewNav);
SetActivePage(F2,ViewSource);
SetActivePage(F3,ViewFunktion);
//
if Opt.R.Edition>Standard
then
Simulation1.Show;
end
else begin
Frame11.Show();
Frame21.Show();
Frame31.Hide();
//Assign Parent Tabsheets
SetAsParent(Opt.R.Navigator.Sheet,F1);
SetAsParent(Opt.R.Explorer.Sheet,F1);
SetAsParent(Opt.R.Source.Sheet,F2);
//
SetActivePage(F1,ViewNav);
SetActivePage(F2,ViewSource);
SetActivePage(F3,ViewFunktion);
//
Simulation1.Hide;
end;
if Frame11.width>0
then
SplitterVertical.left:=Frame11.width;
end;
//--------------------------------------------------------------
//licensecheck
//wirkungslos, es sei denn es w�re gehackt worden
//--------------------------------------------------------------
procedure TModelFrame.Realcheck();
begin
if (
not Opt.R.Activated)
and(globtim*60>maxfilesize)
then
Close();
end;
//------------------------------------------------------------------
//Function Split Frame --
//
//------------------------------------------------------------------
procedure TModelFrame.SplitFrames(Sender:TObject);
var
TS:TTabSheet;
begin
SplitterVertical.left:=Opt.R.Frame1Width;
if not Frame31.Visible
and(PageCount(Frame21.PageControl1)>1)
then begin
//undo split
Frame31.Visible:=true;
TS:=Frame21.PageControl1.ActivePage;
TS.PageControl:=Frame31.PageControl1;
with MDI.GC
do begin
VWidth:=0;
VHeight:=0;
end;
with MDI.GD
do begin
VWidth:=0;
VHeight:=0;
end;
DrawBothImages;
end
else begin
if (PageCount(Frame31.PageControl1)>0)
then
Frame31.Hide()
else begin
Frame31.Hide();
DrawBothImages();
end;
end;
end;
//------------------------------------------------------------------
//Function Frame 1 Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.PageControlChange(Sender:TObject);
begin
//special for Frame2
if (Sender
as TPageControl)=Frame21.PageControl1
then begin
if (Frame21.PageControl1.ActivePage=Opt.R.Navigator.Sheet)
or
(Frame31.PageControl1.ActivePage=Opt.R.Navigator.Sheet)
then
if InSight(Opt.R.Source)
then
Frame21.Source.PositEditor();
if (Frame21.PageControl1.ActivePage=Opt.R.Funktion.Sheet)
or
(Frame31.PageControl1.ActivePage=Opt.R.Funktion.Sheet)
then
if InSight(Opt.R.Funktion)
then
Frame21.Funktion.PositEditor();
end;
SaveView();
Lizenz1.checklicense();
end;
//------------------------------------------------------------------
//Function Frame 1 Double Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.MaxFrame1(Sender:TObject);
begin
if Not Opt.R.Frame1Page1Max
then begin //maximize Frame11
Frame11.width:=width;
Frame11.height:=height;
Frame21.width:=0;
Frame31.Visible:=false;
Opt.R.Frame1Page1Max:=true;
end
else begin
Opt.R.Frame1Page1Max:=false;
Frame11.width:=Opt.R.Frame1Width;
Frame21.width:=width-Opt.R.Frame1Width-SplitterVertical.width;
Frame31.Visible:=true;
end;
end;
//------------------------------------------------------------------
//Function Frame 2 Dbl Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.MaxFrame2(Sender:TObject);
begin
if Not Opt.R.Frame2Page1Max
then begin //maximize Frame11
Frame21.height:=height;
Frame11.width:=0;
Frame11.Inspector.Hide;
Frame31.Hide();
if Opt.R.Druckvorschau.Sheet.tabVisible
then begin
Frame31.setPreviewFull();
end;
Opt.R.Frame2Page1Max:=true;
end
else begin
Opt.R.Frame2Page1Max:=false;
Frame11.width:=Opt.R.Frame1Width;
Frame11.Inspector.Show;
Frame21.width:=width-Opt.R.Frame1Width-SplitterVertical.width;
Frame31.Show();
end;
end;
//------------------------------------------------------------------
//Function Frame 3 Dbl Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.MaxFrame3(Sender:TObject);
begin
if Not Opt.R.Frame3Page1Max
then begin //maximize Frame31
Frame11.Hide;
Frame21.Hide;
Frame31.height:=Frame21.height+Frame31.height;
Frame31.Align:=alClient;
Opt.R.Frame3Page1Max:=true;
end
else begin
Opt.R.Frame3Page1Max:=false;
Frame31.Align:=alBottom;
Frame11.Show;
Frame21.Show;
Frame31.Visible:=true;
end;
end;
//------------------------------------------------------------------
//Set ShortCuts --
//--
//------------------------------------------------------------------
procedure TModelFrame.SetShortcuts;
begin
Vollbild1.ShortCut:=ShortCut(Key_escape,[]);
Hilfe2.ShortCut:=ShortCut(Opt.R.FuncHelp,[]);
Suchen1.ShortCut:=ShortCut(Opt.R.FuncSearch,[]);
Ersetzen1.ShortCut:=ShortCut(Opt.R.FuncReplace,[]);
Ersetzenwiederholt1.ShortCut:=ShortCut(Opt.R.FuncContReplace,[]);
end;
//------------------------------------------------------------------
//Function Optionen --
//--
//------------------------------------------------------------------
procedure TModelFrame.Optionen1Click(Sender:TObject);
var
SF:SourceFormats;
L1,L2,L3:
String;
Syn,Bol,Dr,oldWrap,OldURL:
Boolean;
Lt:
Integer;
begin
with Opt
do begin
PageControl1.ActivePageIndex:=0;
Caption:=Application.Title+
' '+Version_IDE;
Top:=Top;
left:=left;
width:=width;
height:=height;
//save current values
SF:=Opt.R.Sourceformat;
L1:=Opt.R.Libraries[1];
L2:=Opt.R.Libraries[2];
L3:=Opt.R.Libraries[3];
Syn:=Opt.R.SyntaxHighlight;
Bol:=Opt.R.SyntaxBold;
Lt:=Opt.R.LineThickness;
Dr:=Opt.R.Drawgrid;
oldWrap:=Opt.R.wordwrap;
OldURL:=Opt.R.ShowURL;
Indentchars.Text:=inttostr(Opt.R.Indentchars);
//
ShowModal;
if okpressed
then begin
SetShortcuts();
SetEditorOptions();
if (SF<>Opt.R.Sourceformat)
or(L1<>Opt.R.Libraries[1])
or
(L2<>Opt.R.Libraries[2])
or(L3<>Opt.R.Libraries[3])
or
(oldWrap<>Opt.R.wordwrap)
or(OldURL<>Opt.R.ShowURL)
then
ProcessFile(Opt.R.Infile,
'')
else begin
if (Syn<>Opt.R.SyntaxHighlight)
or(Bol<>Opt.R.SyntaxBold)
then
Frame21.CreateSource(0,SplashForm1);
if (Opt.R.LineThickness<>Lt)
or(Opt.R.Drawgrid<>Dr)
then
DrawBothImages();
end;
end;
end;
end;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
procedure TModelFrame.PDFButtonClick(Sender:TObject);
begin
Frame31.PDFButtonClick(Sender);
end;
//------------------------------------------------------------------
//Function Drag and Drop --
//--
//------------------------------------------------------------------
procedure TModelFrame.PageControlDragDrop(Sender,Source:TObject;X,Y:
Integer);
var
PP:
Integer;
PC,Org:TPageControl;
sh:TTabSheet;
begin
if Source
is TPageControl
then begin
PC:=(Sender
as TPageControl);
Org:=(Source
as TPageControl);
PC.EndDrag(true);
Org.EndDrag(true);
sh:=Org.ActivePage;
sh.PageControl:=PC;
PC.ActivePage:=sh;
PC.ActivePage:=sh;
PP:=PageCount(sh.PageControl);
if (PP=0)
and(Org=Frame31.PageControl1)
then
Frame31.Hide();
LastMousePos.X:=0;
LastMousePos.Y:=0;
if (sh=Opt.R.CFA.Sheet)
then
MDI.GC.ReDraw()
else if (sh=Opt.R.DFA.Sheet)
then
MDI.GD.ReDraw();
//redraw
DrawBothImages();
Speichern.enabled:=Frame21.Source.Modified;
end;
end;
//------------------------------------------------------------------
//Function Drag Over --
//--
//------------------------------------------------------------------
procedure TModelFrame.PageControlDragOver(Sender,Source:TObject;X,Y:
Integer;
State:TDragState;
var Accept:
Boolean);
var
PC:TPageControl;
begin
Accept:=(Source
is TPageControl);
if Accept
then begin
PC:=(Source
as TPageControl);
Accept:=(PageCount(PC)>1);
end;
end;
//------------------------------------------------------------------
//Function Deafult Settings --
//--
//------------------------------------------------------------------
procedure TModelFrame.Simulation1Click(Sender:TObject);
begin
if InSight(Opt.R.CFA)
then
with MDI.GC
do
GraphSimulateRepeated()
else if InSight(Opt.R.DFA)
then
with MDI.GD
do
GraphSimulateRepeated()
end;
//------------------------------------------------------------------
//Function Frame 1 Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.NavigatorChange(Sender:TObject;Node:TTreeNode);
begin
if not(processing
or Opening)
then begin
UpDateInspector(MDI.NavL,Frame11.Navigator.Selected);
setFrameStatus(Sender);
end;
end;
//------------------------------------------------------------------
//Function SplitterMoved --
//--
//------------------------------------------------------------------
procedure TModelFrame.SplitterVerticalMoved(Sender:TObject);
begin
if Opt.R.CFA.Frame
in [F1,F2]
then
with MDI.GC
do begin
VWidth:=0;
VHeight:=0;
end;
if Opt.R.DFA.Frame
in [F1,F2]
then
with MDI.GD
do begin
VWidth:=0;
VHeight:=0;
end;
if (Frame11.width<(10*width)
div 100)
then begin
Frame11.width:=(33*width)
div 100;
SplitterVertical.left:=Frame11.width;
end;
Opt.R.Frame1Width:=Frame11.width;
Horizontalratio:=(100*SplitterVertical.left)
div width;
Verticalratio:=(100*SplitterHorizontal.Top)
div height;
DrawBothImages();
end;
//------------------------------------------------------------------
//resize --
//--
//------------------------------------------------------------------
procedure TModelFrame.FormResize(Sender:TObject);
const
tol=20;
begin
if not(Opening
or Closing)
then begin
Screen.Cursor:=crHourGlass;
if Frame11.width<(10*width)
div 100
then begin
Frame11.width:=(33*width)
div 100;
SplitterVertical.left:=Frame11.width;
end
else begin
Frame11.width:=(Horizontalratio*width)
div 100;
SplitterVertical.left:=Frame11.width;
Frame11.height:=(Verticalratio*height)
div 100;
SplitterHorizontal.Top:=Frame11.height;
end;
with MDI.GC
do begin
VWidth:=0;
VHeight:=0;
end;
with MDI.GD
do begin
VWidth:=0;
VHeight:=0;
end;
DrawBothImages;
if Frame31.height>0
then
Opt.R.Frame3Height:=Frame31.height;
Horizontalratio:=(100*SplitterVertical.left)
div width;
Verticalratio:=(100*SplitterHorizontal.Top)
div height;
setFrame11Ratio();
Opt.R.ismax:=(abs(width-Screen.width)*abs(height-Screen.height)<tol*tol);
if InSight(Opt.R.Druckvorschau)
and Opt.R.ismax
then begin
Frame31.setPreviewFull();
end;
Frame11.Realign;
Screen.Cursor:=crDefault;
end;
end;
//------------------------------------------------------------------
//Function Splitter Moved --
//--
//------------------------------------------------------------------
procedure TModelFrame.SplitterHorizontalMoved(Sender:TObject);
begin
if Opt.R.CFA.Frame<>Opt.R.DFA.Frame
then begin
with MDI.GC
do begin
VWidth:=0;
VHeight:=0;
end;
with MDI.GC
do begin
VWidth:=0;
VHeight:=0;
end;
end
else if Opt.R.CFA.Frame=F3
then
with MDI.GC
do begin
VWidth:=0;
VHeight:=0;
end
else if Opt.R.DFA.Frame=F3
then
with MDI.GD
do begin
VWidth:=0;
VHeight:=0;
end;
if Frame31.height<(10*height)
div 100
then begin
//correct height
Frame31.height:=(33*height)
div 100;
SplitterHorizontal.Top:=height-Frame31.height;
end;
if Frame31.height>0
then
Opt.R.Frame3Height:=Frame31.height;
Horizontalratio:=(100*SplitterVertical.left)
div width;
Verticalratio:=(100*SplitterHorizontal.Top)
div height;
setFrame11Ratio();
DrawBothImages;
end;
//------------------------------------------------------------------
//Sprache clicked --
//--
//------------------------------------------------------------------
procedure TModelFrame.Sprache1Click(Sender:TObject);
begin
if Opt.R.Language=english
then
Opt.R.Language:=german
else if Opt.R.Language=german
then
Opt.R.Language:=english;
if Opt.R.Language=english
then
SwitchtoEnglish();
inform(49,
'Bitte neu starten',
'');
end;
//------------------------------------------------------------------
//Function Splitter Moved --
//--
//------------------------------------------------------------------
procedure TModelFrame.checkedition();
begin
if Opt.R.Edition<=Standard
then
with Opt
do begin
//ComboBox2.ItemIndex:=1;
//ComboBox2.Enabled:=false;
ComboBox8.enabled:=false;
ComboBox7.enabled:=false;
Opt.R.ExportEnabled:=false;
end
else begin
Opt.R.ExportEnabled:=false;
end;
if Opt.R.Edition=Standard
then begin
if Simulation1<>
nil then
Simulation1.Hide;
if Simulation<>
nil then begin
Simulation.Visible:=false;
end;
if Blocknummern<>
nil then
Blocknummern.enabled:=false;
Importieren1.enabled:=false;
Exportieren1.enabled:=false;
end;
end;
//------------------------------------------------------------------------------
//
//------------------------------------------------------------------------------
procedure TModelFrame.ShowIDE();
var
i:
Integer;
procedure tofront(PC:TPageControl);
begin
with PC
do begin
i:=0;
while i<=PageCount-1
do begin
if Pages[i].tabVisible
then begin
ActivePage:=Pages[i];
i:=PageCount
end;
i:=i+1;
end;
end;
end;
begin
//--------------------------------------------
//revert presentation characters
//--------------------------------------------
if Previewselected
or Presentationdone
then begin
Frame21.Source.LoadFromUndoBuffer;
if Presentationdone
then
Frame21.CreateSource(Frame21.Source.LoadedFileNumber,SplashForm1);
Frame21.Source.Mark();
Previewselected:=false;
Presentationdone:=false;
end;
//
DistributeFrames();
//
ToolBar1.Show();
ToolBar2.Hide();
ToolBar1.Align:=alClient;
ToolBar2.Align:=alLeft;
Drucken1.Visible:=false;
Druckvorschau.Visible:=true;
Edit1.enabled:=true;
Navigation1.enabled:=true;
Font2.enabled:=true;
Farben.enabled:=true;
Syntaxhervorhebung1.enabled:=true;
Zeilennummern1.enabled:=true;
Dateityp1.enabled:=true;
Sprache1.enabled:=true;
Druckvorschau.enabled:=true;
Optionen1.enabled:=true;
Speichere.enabled:=true;
Speichernunter.enabled:=true;
NeueVersion1.enabled:=true;
Feedback1.enabled:=true;
//another check
guesstime(MDI.filelength,false);
Honeypot();
//
SetAsParent(Opt.R.Miniatur.Sheet,F3);
SetAsParent(Opt.R.Druckvorschau.Sheet,F3);
Opt.R.Miniatur.Sheet.tabVisible:=false;
Opt.R.Miniatur.Sheet.tabVisible:=false;
//
with Frame11
do begin
NavigatorTab.tabVisible:=Navigator.items.Count>1;
SemantikTab.tabVisible:=MDI.CSem<>
nil;
ExplorerTab.tabVisible:=length(MDI.Source)>1;
PageControl1.ActivePage:=Frame11.NavigatorTab;
ExplorerTab.tabVisible:=Explorer.items.Count>1;
if Application.Title=Title_Elbe
then begin
SemantikTab.tabVisible:=false;
ExplorerTab.tabVisible:=false;
end;
tofront(PageControl1);
if PageCount(PageControl1)=0
then
Hide();
end;
//
with Frame21
do begin
SourceTab.tabVisible:=true;
CfaTab.tabVisible:=MDI.GC.CStream<>
nil;
DfaTab.tabVisible:=MDI.GD.CStream<>
nil;
MeasureTab.tabVisible:=MDI.CMes<>
nil;
FunktionTab.tabVisible:=MDI.CFun<>
nil;
PageControl1.ActivePage:=Frame21.SourceTab;
if Application.Title=Title_Elbe
then begin
CfaTab.tabVisible:=false;
DfaTab.tabVisible:=false;
FunktionTab.tabVisible:=false;
end;
tofront(PageControl1);
end;
//
with Frame31
do begin
Show();
MiniaturTab.tabVisible:=false;
DruckvorschauTab.tabVisible:=false;
ExecuteTab.tabVisible:=false;
PageControl1.ActivePage:=Frame31.PageControl1.Pages[0];
tofront(PageControl1);
end;
//
Speichern.enabled:=Frame21.Source.Modified;
Oeffnen.enabled:=true;
Template.enabled:=true;
ProvideExecutable();
//
if Opt.R.Frame1Width>0
then
SplitterVertical.left:=Opt.R.Frame1Width;
//
setFrame3Ratio();
setFrame11Ratio();
setFrameStatus(
nil);
//
if (Previousfile<>
string(Opt.R.Infile))
then
LoadfromHistory(Opt.R.Infile)
else begin
DisplayHistory();
Frame21.Source.SelStart:=Previousselstart;
end;
//
checkedition();
//
if InSight(Opt.R.Source)
then
Frame21.Source.SetFocus;
end;
//------------------------------------------------------------------
//Drucken --
//--
//------------------------------------------------------------------
procedure TModelFrame.ShowPreview();
var
i:
Integer;
procedure hsh(TS:TTabSheet);
begin
if (TS<>Opt.R.Miniatur.Sheet)
and(TS<>Opt.R.Druckvorschau.Sheet)
then
TS.tabVisible:=false;
end;
begin
//
ToolBar1.Hide();
ToolBar2.Show();
ToolBar1.Align:=alLeft;
ToolBar2.Align:=alClient;
Drucken1.Visible:=true;
Druckvorschau.Visible:=false;
Edit1.enabled:=false;
Navigation1.enabled:=false;
Font2.enabled:=false;
Farben.enabled:=false;
Syntaxhervorhebung1.enabled:=false;
Zeilennummern1.enabled:=false;
Dateityp1.enabled:=false;
Sprache1.enabled:=false;
Druckvorschau.enabled:=false;
Optionen1.enabled:=false;
Speichere.enabled:=false;
Speichernunter.enabled:=false;
NeueVersion1.enabled:=false;
Feedback1.enabled:=false;
//
Honeypot();
//
Frame11.Show();
Frame21.Show();
Frame31.Hide();
//
for i:=0
to Frame11.PageControl1.PageCount-1
do
hsh(Frame11.PageControl1.Pages[i]);
for i:=0
to Frame21.PageControl1.PageCount-1
do
hsh(Frame21.PageControl1.Pages[i]);
for i:=0
to Frame31.PageControl1.PageCount-1
do
hsh(Frame31.PageControl1.Pages[i]);
//
SplitterHorizontal.Hide();
//
Frame11.Inspector.height:=0;
Frame31.height:=0;
//
SetAsParent(Opt.R.Miniatur.Sheet,F1);
SetAsParent(Opt.R.Druckvorschau.Sheet,F2);
//
Frame11.PageControl1.ActivePage:=Frame31.MiniaturTab;
Frame21.PageControl1.ActivePage:=Frame31.DruckvorschauTab;
//
Opt.R.Miniatur.Sheet.tabVisible:=true;
Opt.R.Druckvorschau.Sheet.tabVisible:=true;
//
with Frame31
do begin
ThumbnailPreview1.Hint:=trans(lang,229,
'Miniaturen');
Pagenavigator.Hint:=trans(lang,230,
'Seitennavigation');
PrintPreview1.Hint:=trans(lang,231,
'Vorschau');
end;
end;
//------------------------------------------------------------------
//decide upon Inspector height --
//--
//------------------------------------------------------------------
procedure TModelFrame.setFrame11Ratio();
begin
if Inspector1.Checked
and(Application.Title=Title_Columbo)
then begin
Frame11.SplitterInspector.Show();
Frame11.Inspector.Show();
if (Opt.R.InspectorHeight=0)
or
(Opt.R.InspectorHeight>(2*Frame11.PageControl1.height)
div 3)
then
Opt.R.InspectorHeight:=Frame11.height
div 3;
Opt.R.InspectorHeight:=Frame11.height
div 3;
UpDateInspector(MDI.NavL,Frame11.Navigator.Selected);
Frame11.PageControl1.height:=Frame11.height-Opt.R.InspectorHeight-20-15;
end
else begin
Frame11.SplitterInspector.Hide();
Opt.R.InspectorHeight:=Frame11.Inspector.height;
Frame11.Inspector.height:=0;
Frame11.PageControl1.height:=Frame11.height-20;
end;
end;
//------------------------------------------------------------------
//Drucken --
//--
//------------------------------------------------------------------
procedure TModelFrame.setFrame3Ratio();
begin
if PageCount(Frame31.PageControl1)>0
then begin
Frame31.Show();
SplitterHorizontal.Show();
if Opt.R.Frame3Height<10
then
Opt.R.Frame3Height:=height
div 3;
Frame31.height:=Opt.R.Frame3Height;
end
else begin
Frame31.Hide();
SplitterHorizontal.Hide();
Frame31.height:=0;
end;
end;
//------------------------------------------------------------------
//Drucken --
//--
//------------------------------------------------------------------
procedure TModelFrame.DruckvorschauClick(Sender:TObject);
function isfrom():ViewData;
begin
result:=Opt.R.Source;
if (Sender=drucken2)
then begin
if InSight(Opt.R.Navigator)
then
result:=Opt.R.Navigator
else if InSight(Opt.R.Semantik)
then
result:=Opt.R.Semantik
else if InSight(Opt.R.Explorer)
then
result:=Opt.R.Explorer
end
else if (Sender=drucken11)
then begin
if InSight(Opt.R.CFA)
then
result:=Opt.R.CFA
else if InSight(Opt.R.DFA)
then
result:=Opt.R.DFA
end
else if (Sender=drucken3)
then begin
if InSight(Opt.R.Source)
then
result:=Opt.R.Source
else if InSight(Opt.R.Funktion)
then
result:=Opt.R.Funktion
else if InSight(Opt.R.Execution)
then
result:=Opt.R.Execution
end
else if (Sender=drucken4)
then begin
if InSight(Opt.R.Funktion)
then
result:=Opt.R.Funktion
else if InSight(Opt.R.measures)
then
result:=Opt.R.measures
end
else if (Sender=drucken5)
then begin
result:=Opt.R.Inspector
end
else if (Sender=Frame21.Source)
then
result:=Opt.R.Source
else if (Sender=Frame31.executor)
then
result:=Opt.R.Execution
else if (Sender=Frame21.Funktion)
then
result:=Opt.R.Funktion
else if (Sender=Frame21.CFA)
then
result:=Opt.R.CFA
else if (Sender=Frame21.DFA)
then
result:=Opt.R.DFA
else if (Sender=Frame11.Navigator)
then
result:=Opt.R.Navigator
else if (Sender=Frame11.Semantik)
then
result:=Opt.R.Semantik
else if (Sender=Frame11.Explorer)
then
result:=Opt.R.Explorer
else if InSight(Opt.R.Source)
then
result:=Opt.R.Source
else if InSight(Opt.R.Execution)
then
result:=Opt.R.Execution
else if InSight(Opt.R.Funktion)
then
result:=Opt.R.Funktion
else if InSight(Opt.R.CFA)
then
result:=Opt.R.CFA
else if InSight(Opt.R.DFA)
then
result:=Opt.R.DFA
else if InSight(Opt.R.Navigator)
then
result:=Opt.R.Navigator
else if InSight(Opt.R.Semantik)
then
result:=Opt.R.Semantik
else if InSight(Opt.R.Explorer)
then
result:=Opt.R.Explorer
else
result:=Opt.R.Source
end;
var
Orient:TPrinterOrientation;
RE:TRichEdit;
Img:TImage;
fa:
Boolean;
Pty:PrintTypes;
vs:ViewData;
begin
if not InSight(Opt.R.Druckvorschau)
then begin
//
Previewselected:=false;
if not MDI.Previewrepresentation
and(length(Frame21.Source.SelText)>120)
then begin
if ask(232,
'Nur den markierten Bereich ansehen/drucken?',
'')=mrYes
then
begin
Previewselected:=true;
Frame21.Source.SaveToUndoBuffer;
Frame21.Source.CopyToClipboard;
Frame21.Source.lines.clear;
Frame21.Source.Refresh;
Frame21.Source.PasteFromClipboard;
end;
end;
//create pages
Pty:=Richtext;
RE:=Frame21.Source;
Img:=
nil;
Sourcestate:=Frame21.Source.ReadOnly;
Frame21.Source.ReadOnly:=true;
vs:=isfrom();
if vs.Sheet=Opt.R.Source.Sheet
then begin
Pty:=Richtext;
if MDI.Previewrepresentation
then begin
Frame21.Source.hasRepresentation:=true;
Frame21.CreateSource(Frame21.Source.LoadedFileNumber,SplashForm1);
Frame21.Source.hasRepresentation:=false;
Presentationdone:=true;
end;
RE:=Frame21.Source;
end
else if vs.Sheet=Opt.R.Execution.Sheet
then begin
Pty:=Richtext;
RE:=Frame31.executor;
end
else if vs.Sheet=Opt.R.CFA.Sheet
then begin
Pty:=Imageview;
Img:=Frame21.CFA;
end
else if vs.Sheet=Opt.R.DFA.Sheet
then begin
Pty:=Imageview;
Img:=Frame21.DFA;
end
else if vs.Sheet=Opt.R.measures.Sheet
then begin
Pty:=Richtext;
RE:=Frame21.measures;
end
else if vs.Sheet=Opt.R.Navigator.Sheet
then begin
Pty:=Richtext;
RE:=Frame31.executor;
Frame31.PrintTree(RE,Frame11.Navigator);
end
else if vs.Sheet=Opt.R.Semantik.Sheet
then begin
Pty:=Richtext;
RE:=Frame31.executor;
Frame31.PrintTree(RE,Frame11.Semantik);
end
else if vs.Sheet=Opt.R.Explorer.Sheet
then begin
Pty:=Richtext;
RE:=Frame31.executor;
Frame31.PrintTree(RE,Frame11.Explorer);
end
else if vs.Sheet=Opt.R.Funktion.Sheet
then begin
Pty:=Richtext;
RE:=Frame21.Funktion;
end
else if vs.Sheet=Opt.R.Inspector.Sheet
then begin
Pty:=Richtext;
RE:=Frame31.executor;
Frame11.PrintInspector(RE);
end;
//show them
ShowPreview();
if InSight(Opt.R.CFA)
then
with MDI.GC
do
Orient:=GraphOrientation()
else if InSight(Opt.R.DFA)
then
with MDI.GD
do
Orient:=GraphOrientation()
else
Orient:=Printer.Orientation;
Frame31.DruckenClick(Pty,RE,Img,Frame21.Source.LoadedFile);
//this does not fully work in dsPDF:
if Frame31.PrintPreview1.Orientation<>Orient
then begin
if Orient=poLandscape
then
Frame31.QuerformatClick(
nil)
else
Frame31.HochformatClick(
nil);
end;
//
fa:=Inspector1.Checked;
Inspector1.Checked:=false;
setFrame11Ratio();
Inspector1.Checked:=fa;
//
Frame11.PageControl1.ActivePage:=Opt.R.Miniatur.Sheet;
Frame21.PageControl1.ActivePage:=Opt.R.Druckvorschau.Sheet;
//
setFrameStatus(Sender);
end
else begin
Frame21.Source.ReadOnly:=Sourcestate;
ShowIDE();
end;
end;
//------------------------------------------------------------------
//Function Frame 1 Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.SemantikChange(Sender:TObject;Node:TTreeNode);
begin
UpDateInspector(MDI.SEML,Frame11.Semantik.Selected);
setFrameStatus(Sender);
end;
//------------------------------------------------------------------
//Function Inspector DoubleClick --
//--
//------------------------------------------------------------------
procedure TModelFrame.Frame11InspectorClick(Sender:TObject);
begin
Frame21.positbyNode(Inspectorkey,
nil);
end;
//------------------------------------------------------------------
//Function Explorer Change --
//--
//------------------------------------------------------------------
procedure TModelFrame.Frame11ExplorerChange(Sender:TObject;Node:TTreeNode);
begin
setFrameStatus(Sender);
end;
//------------------------------------------------------------------
//Function Search Inspector --
//--
//------------------------------------------------------------------
procedure TModelFrame.Frame11InspectorKeyUp(Sender:TObject;
var Key:
Word;
Shift:TShiftState);
var
St:JString;
begin
St:=getpar(S_Lab,Inspectorkey);
if St<>
'' then begin
with Frame21.Source
do
initSearchReplace(St,
'',false,FuncSearch);
if (Key=Opt.R.FuncHelp)
then
Hilfe2Click(Sender)
else if InSight(Opt.R.Source)
then begin
if Key=Opt.R.FuncReplace
then
Ersetzen1Click(Sender);
Speichern.enabled:=Frame21.Source.Modified;
end
end;
end;
//------------------------------------------------------------------
//Check dragging --
//--
//------------------------------------------------------------------
procedure TModelFrame.PageControlMouseMove(Sender:TObject;Shift:TShiftState;
X,Y:
Integer);
var
TP:TPageControl;
begin
if Sender<>
nil then begin
TP:=(Sender
as TPageControl);
if ssleft
in Shift
then
TP.BeginDrag(false,10);
end;
end;
//------------------------------------------------------------------
//Function Frame 1 Click --
//--
//------------------------------------------------------------------
procedure TModelFrame.Frame11SemantikEnter(Sender:TObject);
begin
if Frame11.Semantik.Selected<>
nil then
Frame11.Semantik.Hint:=HintBox(Frame11.Semantik.Selected.Text);
end;
//------------------------------------------------------------------
//--
//Mouse down in Source --
//--
//------------------------------------------------------------------
procedure TModelFrame.Frame11SplitterInspectorMoved(Sender:TObject);
begin
Opt.R.InspectorHeight:=Frame11.Inspector.height
end;
//------------------------------------------------------------------
//--
//Mouse down in Source --
//--
//------------------------------------------------------------------
procedure TModelFrame.SourceMouseDown(Sender:TObject;Button:TMouseButton;
Shift:TShiftState;X,Y:
Integer);
var
se:TEde;
Rect:TPoint;
begin
se:=(Sender
as TEde);
Frame21.TokenBox.Visible:=false;
Rect.X:=se.caretpos.X+1;
Rect.Y:=se.caretpos.Y+1;
Rect:=Frame21.Source.getPosMod(Rect);
//braucht viel Zeit
//Frame21.Source.Bracketing();
Speichern.enabled:=Frame21.Source.Modified;
SaveView();
Frame11.positbyPoint(Rect,MDI.fnr);
setFrameStatus(
nil);
end;
//------------------------------------------------------------------
//--
//double click, try to find file --
//--
//------------------------------------------------------------------
procedure TModelFrame.SourceDblClick(Sender:TObject);
var
Fil,
Word,fdir:JString;
procedure walkfile();
begin
SavetoSourcestack();
ProcessFile(Fil,
'')
end;
begin
Frame21.Source.getCurrentWord();
Word:=Frame21.Source.CurrentWord;
fdir:=ExtractFilePath(Frame21.Source.LoadedFile);
Fil:=fdir+
Word;
if FileExists(Fil)
then
walkfile()
else if Opt.R.Libraries[1]>
'' then begin
Fil:=Opt.R.Libraries[1]+
Word;
if FileExists(Fil)
then
walkfile()
else if Opt.R.Libraries[2]>
'' then begin
Fil:=Opt.R.Libraries[2]+
Word;
if FileExists(Fil)
then
walkfile()
else if Opt.R.Libraries[2]>
'' then begin
Fil:=Opt.R.Libraries[2]+
Word;
if FileExists(Fil)
then
walkfile()
end;
end;
end;
end;
//------------------------------------------------------------------
//--
//Mouse down in FullScreen --
//--
//------------------------------------------------------------------
procedure TModelFrame.FullscreenMouseDown(Sender:TObject;Button:TMouseButton;
Shift:TShiftState;X,Y:
Integer);
begin
Vollbild1Click(Sender);
end;
//------------------------------------------------------------------
//Function FunktionMouseUp --
//--
//------------------------------------------------------------------
procedure TModelFrame.Frame21FunktionMouseUp(Sender:TObject;Button:TMouseButton;
Shift:TShiftState;X,Y:
Integer);
var
Lin,Col,ll:
Integer;
Str,Fn,LN:JString;
P:TPoint;
begin
With Frame21
do begin
SaveView();
Frame21.LastClick:=ViewFunktion;
//Key:=Frame21.FunktionMouseUp(Sender,Button,Shift,X,Y);
Lin:=Funktion.Perform(EM_LINEFROMCHAR,Funktion.SelStart,0)+1;
ll:=length(Source.lines.Text);
if Source.SelStart+5<=ll
then
Str:=MidStr(Source.lines.Text,Source.SelStart-1,5)
else
Str:=
'Undef';
Fn:=inttostr(Source.getFileNumber(Source.LoadedFile));
Col:=Funktion.caretpos.X+1;
Funktion.Bracketing();
//find linenumber
Source.Hint:=HintBox(trans(lang,21,
'Zeile=')+inttostr(Lin)+crlf+trans(lang,
22,
' Spalte=')+inttostr(Col));
LN:=memtreelong(Solution,Lin,Col);
if (Funktion.SelLength>0)
and(Funktion.SelLength<=KeyMax)
then
with Frame21.Source
do
initSearchReplace(MidStr(Funktion.Text,Funktion.SelStart+1,
Funktion.SelLength),
'',false,FuncSearch);
//
if LN<>
'' then begin
if Opt.R.Funktion.Frame
in [F2,F3]
then
Frame11.positbyNode(LN,Frame21.Funktion);
if Opt.R.Funktion.Frame
in [F1]
then
Frame21.positbyNode(LN,Frame21.Funktion);
if Opt.R.Funktion.Frame<>Opt.R.Source.Frame
then begin
P:=getPointfromNode(LN);
Source.markLinepos(P.Y,P.X);
end;
Frame21.Funktion.Hint:=HintBox(LN);
end;
end;
end;
//------------------------------------------------------------------//
//Thread Communicator //
//soll auf Statuszeile die Phase:Zeile anzeigen //
//------------------------------------------------------------------//
Procedure TModelFrame.DllWatcher(St:
Boolean);
var
TH:TStatusThread;
begin
if St
then begin
TH:=TStatusThread.Create(true);
LastThread:=TH;
TH.OnTerminate:=
nil;
TH.Stp:=false;
TH.Tx:=@Frame21.statusbar1;
TH.Px:=@CStatus;
TH.Priority:=tpLower;
TH.Start;
//1. resume = beginn, sonst = weitermachen
end//stoppen mit suspend oder terminate
else begin
TH:=LastThread;
TH.Stp:=true;
//TH.Suspend;
TH.Terminate;
sleep(200);
//wait for suspend
end
end;
//------------------------------------------------------------------//
//Thread Communicator //
//soll auf Statuszeile die Phase:Zeile anzeigen //
//------------------------------------------------------------------//
Procedure TModelFrame.SwitchtoEnglish();
begin
//------------------------------------------------------------------//
//menu
//------------------------------------------------------------------//
File1.Caption:=
'File';
Neu1.Caption:=
'New';
Oeffne.Caption:=
'Open';
Speichere.Caption:=
'Save';
Speichernunter.Caption:=
'Save as';
Importieren1.Caption:=
'Import';
Exportieren1.Caption:=
'Export';
Drucken1.Caption:=
'Print';
Druckvorschau.Caption:=
'Printpreview';
Exit1.Caption:=
'Exit';
//
Edit1.Caption:=
'Edit';
Undo.Caption:=
'Undo';
Ausschneiden1.Caption:=
'Cut';
Kopieren.Caption:=
'Copy';
Einfuegen1.Caption:=
'Paste';
Allesauswhlen1.Caption:=
'Select all';
Suchen1.Caption:=
'Search';
Ersetzen1.Caption:=
'Replace';
Ersetzenwiederholt1.Caption:=
'Replace again';
//
View1.Caption:=
'View';
Inspector1.Caption:=
'Inspector';
Split1.Caption:=
'Split';
Font2.Caption:=
'Font';
Farben.Caption:=
'Colors';
Leerzeichen1.Caption:=
'Blanks';
Default1.Caption:=
'Reset';
Syntaxhervorhebung1.Caption:=
'Syntax Highlight';
Zeilennummern1.Caption:=
'Linenumbers';
Blocknummern.Caption:=
'Blocknumbers';
Optionen1.Caption:=
'Options';
Vollbild1.Caption:=
'Fullscreen';
//
Navigation1.Caption:=
'Navigate';
Vor1.Caption:=
'Forward';
Zur1.Caption:=
'Backward';
Auf1.Caption:=
'Up';
Ab1.Caption:=
'Down';
Home1.Caption:=
'Home';
Simulation.Caption:=
'Simulate';
Execute1.Caption:=
'Execute';
//
Hilfe1.Caption:=
'Help';
Hilfe2.Caption:=
'Help';
Aktivierung1.Caption:=
'Activate';
Lizenzerwerben1.Caption:=
'Get full license';
//FeedBackDialog.Caption:='FeedBackDialogack';
NeueVersion1.Caption:=
'Update Software';
ber1.Caption:=
'About';
//
Opt.R.Navigator.Sheet.Caption:=
'Navigator';
Opt.R.Semantik.Sheet.Caption:=
'Semantics';
Opt.R.Explorer.Sheet.Caption:=
'Explorer';
Opt.R.Source.Sheet.Caption:=
'Source';
Opt.R.CFA.Sheet.Caption:=
'CFA';
Opt.R.DFA.Sheet.Caption:=
'DFA';
Opt.R.measures.Sheet.Caption:=
'Measures';
Opt.R.Funktion.Sheet.Caption:=
'Function';
Opt.R.Druckvorschau.Sheet.Caption:=
'Printpreview';
Opt.R.Miniatur.Sheet.Caption:=
'Miniatures';
//
Sprache1.Caption:=
'German Language';
//------------------------------------------------------------------//
//hints
//------------------------------------------------------------------//
Ab.Hint:=
'down';
Auf.Hint:=
'up';
Execute.Hint:=
'execute';
Home.Hint:=
'home';
Oeffnen.Hint:=
'open';
Oeffne2.Hint:=
'open';
Previewbutton.Hint:=
'print preview';
Simulation1.Hint:=
'simulate';
Speichern.Hint:=
'save';
Split.Hint:=
'split';
Neu1.Hint:=
'new file from template';
Template.Hint:=Neu1.Hint;
Vor.Hint:=
'forward';
Zur.Hint:=
'backward';
SwitchIDEPrint.Hint:=
'switch to IDE';
Suchen.Hint:=
'search';
Ersetzen.Hint:=
'replace';
Zeilennummern1.Hint:=
'line numbers';
SyntaxHighLite.Hint:=
'syntax highlite';
Indenting.Hint:=
'format source';
Zeilennummern.Hint:=
'show linenumbers';
ToolButton10.Hint:=
'full screen';
ToolButton12.Hint:=ToolButton10.Hint;
Vollbild1.Hint:=ToolButton10.Hint;
//
Hochformat.Hint:=
'portrait';
Drucken1.Hint:=
'print pages';
PrintButton.Hint:=Drucken1.Hint;
PDFButton.Hint:=
'save pages as PDF file';
Druckvorschau.Hint:=
'print preview';
Querformat.Hint:=
'landscape';
//
Kopieren2.Hint:=
'copy';
Einfuegen.Hint:=
'paste';
Ausschneiden.Hint:=
'cut';
Undo.Hint:=
'undo action';
UndoButton.Hint:=Undo.Hint;
//
Fullscr.Image1.Hint:=
'switch full screen';
Dateityp1.Caption:=
'File type';
ContextIT1.Caption:=
'Website cococo.de';
//------------------------------------------------------------------//
//dialogues
//------------------------------------------------------------------//
with Opt
do begin
Label8.Caption:=
'COBOL dialect';
Label3.Caption:=
'Library 1';
Label4.Caption:=
'Library 2';
Label5.Caption:=
'Library 3';
label6.Caption:=
'Create backup';
Label7.Caption:=
'Line thickness';
Label9.Caption:=
'Graphics format';
label2.Caption:=
'Highlite type';
Label11.Caption:=
'Help key';
Label10.Caption:=
'Search key';
Label12.Caption:=
'Replace key';
Label13.Caption:=
'Replace again key';
Label1.Caption:=
'Batch command';
Label14.Caption:=
'Timeout (msec)';
Button2.Caption:=
'Cancel';
ComboBox1.items.clear;
ComboBox1.items.Add(
'yes');
ComboBox1.items.Add(
'no');
PageControl1.Pages[0].Caption:=
'Basic options';
PageControl1.Pages[1].Caption:=
'Internal file associations';
PageControl1.Pages[2].Caption:=
'External file associations';
extlist.Columns[0].Caption:=
'extension';
extlist.Columns[1].Caption:=
'windows';
ValueList.TitleCaptions[0]:=
'engine';
ValueList.TitleCaptions[1]:=
'extensions';
Indentchars.Hint:=
'#chars of indenting on format';
combobox12.Hint:=
'allow to insert line breaks on format';
Button2.Caption:=trans(lang,242,
'Abbruch');
end;
//
with AboutDialog
do begin
Caption:=
'About '+Application.Title;
Quellkodierung.Caption:=
'Version for several formal languages';
Label9.Caption:=
'The Source Inspector';
label2.Caption:=
'This software contains components from';
Label3.Caption:=
'Available physical memory';
Label4.Caption:=
'Total memory used';
Label11.Caption:=
'Memory usage of this program';
UserName.Caption:=
'user name';
end;
if pos(
'unbekannt',Opt.R.UserName)=1
then
Opt.R.UserName:=
'unknown user';
//
with Lizenz1
do begin
Button1.Caption:=
'OK';
Button2.Caption:=
'cancel';
button3.Caption:=
'register';
Label1.Caption:=
'name';
label2.Caption:=
'activation code';
end;
//
with SamplesDialog
do begin
Caption:=
'Template';
Label1.Caption:=
'Program type';
ComboBox1.Text:=
'not for this language';
Button2.Caption:=
'Cancel';
end;
//
with SamplesDialog
do begin
Signatures[LeereDatei]:=
'empty file';
Signatures[Konsolprog]:=
'console program';
Signatures[Unterprog]:=
'subprogram';
Signatures[Copy]:=
'copy';
Signatures[Dateiprog]:=
'file programm';
Signatures[SQLProg]:=
'SQL program';
Signatures[CICSProg]:=
'CICS program';
Signatures[DLIProg]:=
'DLI program';
Signatures[OOProg]:=
'object oriented program';
end;
//
with SearchReplaceDialog
do begin
Caption:=
'search/replace';
Label1.Caption:=
'search';
label2.Caption:=
'replace by';
Button2.Caption:=
'cancel';
button3.Caption:=
'replace all';
Button4.Caption:=
'find all';
CheckBox1.Caption:=
'case sensitive';
CheckBox2.Caption:=
'regular expression';
ComboBox1.Hint:=
'allowed metachars are .,^,$,[,]';
ComboBox2.Hint:=
'use \0 for the found text';
end;
//
with ColorDialog
do begin
Button2.Caption:=trans(lang,242,
'Abbruch');
button3.Caption:=
'reset all';
Label1.Caption:=
'background';
label2.Caption:=
'keyword';
Label3.Caption:=
'string';
Label4.Caption:=
'number';
Label5.Caption:=
'identifier';
label6.Caption:=
'other keyword';
Label7.Caption:=
'comment';
Label8.Caption:=
'other keyword';
Label9.Caption:=
'label';
Label10.Caption:=
'lexical';
end;
with PopupMenu1
do begin
rckgngig2.Caption:=
'undo';
ausschneiden2.Caption:=
'cut';
kopieren22.Caption:=
'copy';
allesauswhlen2.Caption:=
'select all';
einfgen2.Caption:=
'paste';
drucken3.Caption:=
'print';
end;
with PopupMenu2
do begin
kopieren3.Caption:=
'copy';
allesauswhlen3.Caption:=
'select all';
drucken4.Caption:=
'print';
end;
with PopupMenu3
do begin
drucken2.Caption:=
'print';
end;
with PopupMenu4
do begin
drucken11.Caption:=
'print';
insDetail1.Caption:=
'goto detail';
verallgemeinern.Caption:=
'one step up';
end;
with PopupMenu3
do begin
drucken5.Caption:=
'print';
end;
Zoomin.Hint:=
'zoom in';
ZoomNormal.Hint:=
'zoom to fit';
Zoomout.Hint:=
'zoom out';
end;
//------------------------------------------------------------------
//
//Ende dieser Quelle --
//
//------------------------------------------------------------------
end.
