{ -------------------------------------------------------------------------------

Unit: UJava

Author: Gerhard Röhner

Date: August 2001

Purpose: The main form of the Java-Editor

------------------------------------------------------------------------------- }

unit UJava;

interface

uses

Winapi.Windows,

Winapi.Messages,

System.Classes,

System.ImageList,

System.SyncObjs,

Vcl.Graphics,

Vcl.Forms,

Vcl.Controls,

Vcl.Dialogs,

Vcl.Buttons,

Vcl.ExtCtrls,

Vcl.ComCtrls,

Vcl.ToolWin,

Vcl.ImgList,

Vcl.VirtualImageList,

Vcl.DdeMan,

Generics.Collections,

JvTabBar,

VirtualTrees,

TB2Item,

TB2Dock,

TB2Toolbar,

SpTBXItem,

SpTBXTabs,

SpTBXDkPanels,

SpTBXControls,

SynEdit,

SynEditSearch,

SynCompletionProposal,

SynEditMiscClasses,

USynEditEx,

UDockForm,

UBaseForm,

UEditorForm,

UUMLForm,

UStructogramForm,

USequenceForm,

UBrowserForm,

UGUIForm;

const

WindowOffset = 16;

WithoutBackup = False;

type

TFormsList = TObjectList<TFForm>;

TFJava = class(TForm)

BottomDockPanel: TPanel;

RightDockPanel: TPanel;

HSplitter: TSplitter;

VSplitter: TSplitter;

EditorAgeTimer: TTimer;

ToolBarUtilities: TToolBar;

TBPlayground: TToolButton;

TBTurtle: TToolButton;

TBTimer: TToolButton;

ToolBarFXShapes: TToolBar;

TBFXCircle: TToolButton;

TBFXRectangle: TToolButton;

TBFXEllipse: TToolButton;

TBFXPolygon: TToolButton;

TBFXPolyline: TToolButton;

TBFXArc: TToolButton;

TBFXLine: TToolButton;

TBFXCubicCurve: TToolButton;

TBFXText: TToolButton;

TBFXQuadCurve: TToolButton;

TBFXSVGPath: TToolButton;

ActiveWindowTimer: TTimer;

MainPanel: TPanel;

CloseTimer: TTimer;

FDFont: TFontDialog;

ODOpen: TOpenDialog;

SDSaveAs: TSaveDialog;

StyleTimer: TTimer;

vilSwing2: TVirtualImageList;

vilFXBaseDark: TVirtualImageList;

vilFXBaseLight: TVirtualImageList;

vilSwing1Dark: TVirtualImageList;

vilSwing1Light: TVirtualImageList;

vilAWTDark: TVirtualImageList;

vilAWTLight: TVirtualImageList;

vilFXControls: TVirtualImageList;

vilFXShapesDark: TVirtualImageList;

vilFXShapesLight: TVirtualImageList;

vilProgramLight: TVirtualImageList;

vilProgramDark: TVirtualImageList;

vilUtilities: TVirtualImageList;

vilLayoutLight: TVirtualImageList;

vilToolbarLight: TVirtualImageList;

vilToolbarDark: TVirtualImageList;

vilToolbarDisabledLight: TVirtualImageList;

vilToolbarDisabledDark: TVirtualImageList;

vilMenuLight: TVirtualImageList;

vilMenuDark: TVirtualImageList;

TBXDockTop: TSpTBXDockablePanel;

MainMenu: TSpTBXToolbar;

MIFile: TSpTBXSubmenuItem;

MINew: TSpTBXSubmenuItem;

MINewJava: TSpTBXItem;

MINewText: TSpTBXItem;

MINewHtml: TSpTBXItem;

N19Sep: TSpTBXSeparatorItem;

MIFileNewClass: TSpTBXItem;

MINewStructogram: TSpTBXItem;

MINewSequencediagram: TSpTBXItem;

N10Sep: TSpTBXSeparatorItem;

MINewConsole: TSpTBXItem;

MINewFrame: TSpTBXItem;

MINewDialog: TSpTBXItem;

MINewApplet: TSpTBXItem;

MINewJFrame: TSpTBXItem;

MINewJDialog: TSpTBXItem;

MINewJApplet: TSpTBXItem;

MIApplication: TSpTBXItem;

MIOpen: TSpTBXItem;

MIReopen: TSpTBXSubmenuItem;

N15Sep: TSpTBXSeparatorItem;

MISave: TSpTBXItem;

MISaveAs: TSpTBXItem;

MISaveAll: TSpTBXItem;

MISaveAllIn: TSpTBXItem;

MISaveAsProject: TSpTBXItem;

MICloseProject: TSpTBXItem;

MIClose: TSpTBXItem;

MICloseAllFiles: TSpTBXItem;

MIExport: TSpTBXItem;

N1Sep: TSpTBXSeparatorItem;

MIPrint: TSpTBXItem;

MIPrintAll: TSpTBXItem;

MIPrintSetup: TSpTBXItem;

N9Sep: TSpTBXSeparatorItem;

MIExit: TSpTBXItem;

MIEdit: TSpTBXSubmenuItem;

MIUndo: TSpTBXItem;

MIRedo: TSpTBXItem;

N3Sep: TSpTBXSeparatorItem;

MICut: TSpTBXItem;

MICopy: TSpTBXSubmenuItem;

MICopyNormal: TSpTBXItem;

MICopyRTF: TSpTBXItem;

MICopyRtfNumbered: TSpTBXItem;

MICopyHTML: TSpTBXItem;

MICopyHTMLAsText: TSpTBXItem;

MICopyNumbered: TSpTBXItem;

MIPaste: TSpTBXItem;

N4Sep: TSpTBXSeparatorItem;

MISearch: TSpTBXItem;

MISearchAgain: TSpTBXItem;

MIReplace: TSpTBXItem;

MISearchInFiles: TSpTBXItem;

N8Sep: TSpTBXSeparatorItem;

MIUnindent: TSpTBXItem;

MIIndent: TSpTBXItem;

MIStructuredIndent: TSpTBXItem;

MICommentOnOff: TSpTBXItem;

MIStrich10: TSpTBXSeparatorItem;

MIGotoLine: TSpTBXItem;

MISystemOutPrintln: TSpTBXItem;

MIUnicode: TSpTBXItem;

MIStart: TSpTBXSubmenuItem;

MICompile: TSpTBXItem;

MIMindstorms: TSpTBXItem;

MICompileAll: TSpTBXItem;

MIRun: TSpTBXItem;

MIProgramReset: TSpTBXItem;

MIJavaReset: TSpTBXItem;

MIParameter: TSpTBXItem;

MI30Sep: TSpTBXSeparatorItem;

MIHTMLforApplet: TSpTBXItem;

MIHTMLforJavaPlugIn: TSpTBXItem;

MIAppletviewer: TSpTBXItem;

N6Sep: TSpTBXSeparatorItem;

MIDebugger: TSpTBXItem;

MIDissasembler: TSpTBXItem;

MIJavaDoc: TSpTBXItem;

MIJar: TSpTBXSubmenuItem;

MIJarCreate: TSpTBXItem;

MIJarPack: TSpTBXItem;

MIJarShow: TSpTBXItem;

MIJarUnpack: TSpTBXItem;

MIJarOpen: TSpTBXItem;

MITest: TSpTBXSubmenuItem;

MIStep: TSpTBXItem;

MINext: TSpTBXItem;

MIStepUp: TSpTBXItem;

MIRunToCursor: TSpTBXItem;

MIShowExecutionPoint: TSpTBXItem;

N12Sep: TSpTBXSeparatorItem;

MIBreakpoint: TSpTBXItem;

MIBreakpointsClear: TSpTBXItem;

N13Sep: TSpTBXSeparatorItem;

MIExpression: TSpTBXItem;

MIWatches: TSpTBXItem;

MITestCreateSequencediagram: TSpTBXItem;

MIUML: TSpTBXSubmenuItem;

MINewUML: TSpTBXItem;

MINewClass: TSpTBXItem;

MIClassOpen: TSpTBXItem;

MIClassEditor: TSpTBXItem;

MINewComment: TSpTBXItem;

MINewLayout: TSpTBXItem;

MIRefresh: TSpTBXItem;

MIDiagramFromOpenFiles: TSpTBXItem;

MIOpenFolder: TSpTBXItem;

MISaveAsPicture: TSpTBXItem;

MIUMLCreateSequencediagram: TSpTBXItem;

MITools: TSpTBXSubmenuItem;

MICheckStyle: TSpTBXItem;

MIJalopy: TSpTBXItem;

MICompare: TSpTBXItem;

MISubversion: TSpTBXSubmenuItem;

MISVNCommit: TSpTBXItem;

MISVNAdd: TSpTBXItem;

MISVNLog: TSpTBXItem;

MISVNCompare: TSpTBXItem;

N16Sep: TSpTBXSeparatorItem;

MISVNStatus: TSpTBXItem;

MISVNTree: TSpTBXItem;

MISVNUpdate: TSpTBXItem;

MIGit: TSpTBXSubmenuItem;

MIGitStatus: TSpTBXItem;

MIGitAdd: TSpTBXItem;

MIGitCommit: TSpTBXItem;

MIGitLog: TSpTBXItem;

N20Sep: TSpTBXSeparatorItem;

MIGitReset: TSpTBXItem;

MIGitCheckout: TSpTBXItem;

MIGitRemove: TSpTBXItem;

N21Sep: TSpTBXSeparatorItem;

MIGitRemote: TSpTBXItem;

MIGitFetch: TSpTBXItem;

MIGitPush: TSpTBXItem;

N22Sep: TSpTBXSeparatorItem;

MIGitGUI: TSpTBXItem;

MIGitViewer: TSpTBXItem;

MIGitConsole: TSpTBXItem;

MIJUnit: TSpTBXSubmenuItem;

MIJUnitRunAllTests: TSpTBXItem;

MIJUnitCreateTestclass: TSpTBXItem;

N17Sep: TSpTBXSeparatorItem;

MIConfigureTools: TSpTBXItem;

MIComponents: TSpTBXSubmenuItem;

MIProgramm: TSpTBXSubmenuItem;

MIConsole: TSpTBXItem;

MIFrame: TSpTBXItem;

MIDialog: TSpTBXItem;

MIApplet: TSpTBXItem;

MIJFrame: TSpTBXItem;

MIJDialog: TSpTBXItem;

MIJApplet: TSpTBXItem;

N5Sep: TSpTBXSeparatorItem;

MIJavaDoc1: TSpTBXItem;

MIclass: TSpTBXItem;

MIKontrollstrukturen: TSpTBXSubmenuItem;

MIIf: TSpTBXItem;

MIifelse: TSpTBXItem;

MIwhile: TSpTBXItem;

MIdowhile: TSpTBXItem;

MIfor: TSpTBXItem;

MISwitch: TSpTBXItem;

MITry: TSpTBXItem;

MIDatentypen: TSpTBXSubmenuItem;

MIByte: TSpTBXItem;

MIShort: TSpTBXItem;

MIInt: TSpTBXItem;

MILong: TSpTBXItem;

MIFloat: TSpTBXItem;

MIDouble: TSpTBXItem;

MIChar: TSpTBXItem;

MIBoolean: TSpTBXItem;

MIString: TSpTBXItem;

MIAWT: TSpTBXSubmenuItem;

MILabel: TSpTBXItem;

MITextField: TSpTBXItem;

MINumberField: TSpTBXItem;

MITextArea: TSpTBXItem;

MIButton: TSpTBXItem;

MICheckbox: TSpTBXItem;

MIRadiobutton: TSpTBXItem;

MICheckBoxGroup: TSpTBXItem;

MIList: TSpTBXItem;

MIChoice: TSpTBXItem;

MIScrollbar: TSpTBXItem;

MIScrollPane: TSpTBXItem;

MIPanel: TSpTBXItem;

MIMenu: TSpTBXItem;

MICanvas: TSpTBXItem;

MITurtle: TSpTBXItem;

MIMenuBar: TSpTBXItem;

MITimer: TSpTBXItem;

MIPopUpMenu: TSpTBXItem;

MISwing1: TSpTBXSubmenuItem;

MIJLabel: TSpTBXItem;

MIJTextField: TSpTBXItem;

MIJNumberField: TSpTBXItem;

MIJTextArea: TSpTBXItem;

MIJButton: TSpTBXItem;

MIJCheckbox: TSpTBXItem;

MIJRadiobutton: TSpTBXItem;

MIJCheckBoxGroup: TSpTBXItem;

MIJList: TSpTBXItem;

MIJComboBox: TSpTBXItem;

MIJSpinner: TSpTBXItem;

MIJScrollbar: TSpTBXItem;

MIJScrollPane: TSpTBXItem;

MIJPanel: TSpTBXItem;

MIJCanvas: TSpTBXItem;

MIJTurtle: TSpTBXItem;

MIJMenuBar: TSpTBXItem;

MIJMenu: TSpTBXItem;

MIJPopUpMenu: TSpTBXItem;

MIJTimer: TSpTBXItem;

MISwing2: TSpTBXSubmenuItem;

MIJSlider: TSpTBXItem;

MIJProgressBar: TSpTBXItem;

MIJSplitPane: TSpTBXItem;

MIJTabbedPane: TSpTBXItem;

MIJTable: TSpTBXItem;

MIJTree: TSpTBXItem;

MIJToolbar: TSpTBXItem;

MIJSeparator: TSpTBXItem;

MIJToggleButton: TSpTBXItem;

MIJPasswordField: TSpTBXItem;

MIJFormattedTextField: TSpTBXItem;

MIJEditorPane: TSpTBXItem;

MIJTextPane: TSpTBXItem;

MIJLayeredPane: TSpTBXItem;

MIJDesktopPane: TSpTBXItem;

MIJInternalFrame: TSpTBXItem;

MIJFileChooserOpen: TSpTBXItem;

MIJFileChooserSave: TSpTBXItem;

MIJColorChooser: TSpTBXItem;

MIJOptionPane: TSpTBXItem;

MILayout: TSpTBXSubmenuItem;

MIBorderLayout: TSpTBXItem;

MIFlowLayout: TSpTBXItem;

MIGridLayout: TSpTBXItem;

MICardLayout: TSpTBXItem;

MIGridBagLayout: TSpTBXItem;

MIAbsoluteLayout: TSpTBXItem;

MIWindow: TSpTBXSubmenuItem;

MIObjectInspector: TSpTBXItem;

MIToolbar: TSpTBXItem;

MIMessages: TSpTBXItem;

MIMessagesDocked: TSpTBXItem;

MIFileStructure: TSpTBXItem;

MIDefaultLayout: TSpTBXItem;

MIMsDos: TSpTBXItem;

MIExplorer: TSpTBXItem;

MIBrowser: TSpTBXItem;

MIStrich: TSpTBXSeparatorItem;

MIFont: TSpTBXItem;

MIConfiguration: TSpTBXItem;

N14Sep: TSpTBXSeparatorItem;

MIMaximized: TSpTBXItem;

MICascade: TSpTBXItem;

MITileVertical: TSpTBXItem;

MITileHorizontal: TSpTBXItem;

N11Sep: TSpTBXSeparatorItem;

MIHelp: TSpTBXSubmenuItem;

MIHelpHelp: TSpTBXItem;

MIAPI: TSpTBXItem;

MIJavaFx: TSpTBXItem;

MIJunitManual: TSpTBXItem;

N7Sep: TSpTBXSeparatorItem;

MIDemos: TSpTBXItem;

MITutorial: TSpTBXItem;

MIJavabook: TSpTBXItem;

MIMindstormsHelp: TSpTBXItem;

N2Sep: TSpTBXSeparatorItem;

MIWebsite: TSpTBXItem;

MIUpdate: TSpTBXItem;

MIAbout: TSpTBXItem;

MIDebug: TSpTBXItem;

MainToolBar: TSpTBXToolbar;

TBOpen: TSpTBXItem;

TBSave: TSpTBXItem;

TBSaveAll: TSpTBXItem;

TBDefaultLayout: TSpTBXItem;

TBPropertyInspector: TSpTBXItem;

TBDiagramFromOpenFiles: TSpTBXItem;

TBMessages: TSpTBXItem;

DebugToolbar: TSpTBXToolbar;

TBRedo: TSpTBXItem;

TBUndo: TSpTBXItem;

TBStep: TSpTBXItem;

TBNext: TSpTBXItem;

TBCompileJava: TSpTBXItem;

TBCompileAll: TSpTBXItem;

TBRun: TSpTBXItem;

TabsControl: TSpTBXTabControl;

TabUtilities: TSpTBXTabItem;

TSUtilities: TSpTBXTabSheet;

TabSwing1: TSpTBXTabItem;

TSSwing1: TSpTBXTabSheet;

TabAWT: TSpTBXTabItem;

TSAWT: TSpTBXTabSheet;

TabProgram: TSpTBXTabItem;

TSProgram: TSpTBXTabSheet;

TabSwing2: TSpTBXTabItem;

TSSwing2: TSpTBXTabSheet;

TabLayout: TSpTBXTabItem;

TSLayout: TSpTBXTabSheet;

TabFXBase: TSpTBXTabItem;

TSFXBase: TSpTBXTabSheet;

TabFXControls: TSpTBXTabItem;

TSFXControls: TSpTBXTabSheet;

TabFXShapes: TSpTBXTabItem;

TSFXShapes: TSpTBXTabSheet;

PBorder: TPanel;

SBNorth: TSpeedButton;

SBSouth: TSpeedButton;

SBWest: TSpeedButton;

SBEast: TSpeedButton;

SBCenter: TSpeedButton;

ToolbarAWT: TToolBar;

TBLabel: TToolButton;

TBTextField: TToolButton;

TBNumberField: TToolButton;

TBTextArea: TToolButton;

TBButton: TToolButton;

TBCheckbox: TToolButton;

TBCheckboxGroup: TToolButton;

TBList: TToolButton;

TBChoice: TToolButton;

TBScrollbar: TToolButton;

TBScrollPane: TToolButton;

TBPanel: TToolButton;

TBCanvas: TToolButton;

TBATurtle: TToolButton;

TBMenuBar: TToolButton;

TBMenu: TToolButton;

TBPopupMenu: TToolButton;

ToolBarFXBase: TToolBar;

TBFXLabel: TToolButton;

TBFXTextField: TToolButton;

TBFXNumberField: TToolButton;

TBFXTextArea: TToolButton;

TBFXButton: TToolButton;

TBFXCheckBox: TToolButton;

TBFXButtonGroup: TToolButton;

TBFXListView: TToolButton;

TBFXComboBox: TToolButton;

TBFXSpinner: TToolButton;

TBFXScrollPane: TToolButton;

TBFXPane: TToolButton;

TBFXCanvas: TToolButton;

TBFXTurtle: TToolButton;

TBFXMenuBar: TToolButton;

TBFXMenu: TToolButton;

TBFXContextMenu: TToolButton;

TBFXMenuButton: TToolButton;

TBFXSplitMenuButton: TToolButton;

ToolBarFXControls: TToolBar;

TBFXSlider: TToolButton;

TBFXProgressBar: TToolButton;

TBFXProgressIndicator: TToolButton;

TBFXToolbar: TToolButton;

TBFXSeparator: TToolButton;

TBFXToggleButton: TToolButton;

TBFXPasswordField: TToolButton;

TBFXChoiceBox: TToolButton;

TBFXHyperlink: TToolButton;

TBFXHTMLEditor: TToolButton;

TBFXWebView: TToolButton;

TBFXColorPicker: TToolButton;

TBFXDatePicker: TToolButton;

TBFXPagination: TToolButton;

TBFXFileOpenChooser: TToolButton;

TBFXFileSaveChooser: TToolButton;

TBFXDirectoryChooser: TToolButton;

TBFXImageView: TToolButton;

TBFXMediaView: TToolButton;

TBFXTableView: TToolButton;

TBFXTreeView: TToolButton;

ToolBarSwing1: TToolBar;

TBJLabel: TToolButton;

TBJTextField: TToolButton;

TBJNumberField: TToolButton;

TBJTextArea: TToolButton;

TBJButton: TToolButton;

TBJCheckbox: TToolButton;

TBJButtonGroup: TToolButton;

TBJList: TToolButton;

TBJComboBox: TToolButton;

TBJSpinner: TToolButton;

TBJScrollBar: TToolButton;

TBJScrollPane: TToolButton;

TBJPanel: TToolButton;

TBJCanvas: TToolButton;

TBJTurtle: TToolButton;

TBJMenuBar: TToolButton;

TBJMenu: TToolButton;

TBJPopupMenu: TToolButton;

ToolbarSwing2: TToolBar;

TBJSlider: TToolButton;

TBJProgressBar: TToolButton;

TBJSplitPane: TToolButton;

TBJTabbedPane: TToolButton;

TBJTable: TToolButton;

TBJTree: TToolButton;

TBJToolBar: TToolButton;

TJSeparator: TToolButton;

TJToggleButton: TToolButton;

TBJPasswordField: TToolButton;

TBJFormattedTextField: TToolButton;

TBJEditorPane: TToolButton;

TBJTextPane: TToolButton;

TBJLayeredPane: TToolButton;

TBJDesktopPane: TToolButton;

TJInternalFrame: TToolButton;

TBJFileOpen: TToolButton;

TBJFileSave: TToolButton;

TBJColorChooser: TToolButton;

TBJOptionPane: TToolButton;

ToolBarLayout: TToolBar;

TBBorderLayout: TToolButton;

TBFlowLayout: TToolButton;

TBGridLayout: TToolButton;

TBCardLayout: TToolButton;

TBGridBagLayout: TToolButton;

TBAbsoluteLayout: TToolButton;

ToolbarProgram: TToolBar;

TBNew: TToolButton;

TBClass: TToolButton;

TBStructogram: TToolButton;

TBSequence: TToolButton;

TBConsole: TToolButton;

TBFrame: TToolButton;

TBDialog: TToolButton;

TBApplet: TToolButton;

TBJFrame: TToolButton;

TBJDialog: TToolButton;

TBJApplet: TToolButton;

TBApplication: TToolButton;

ControlBar: TSpTBXPanel;

vilLayoutDark: TVirtualImageList;

MIRecognizeAssociations: TSpTBXItem;

MIChat: TSpTBXItem;

procedure FormCreate(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);

procedure MINewClick(Sender: TObject); // File menu

procedure MIOpenClick(Sender: TObject);

procedure MISaveClick(Sender: TObject);

procedure MISaveAsClick(Sender: TObject);

procedure MICloseClick(Sender: TObject);

procedure MIPrintClick(Sender: TObject);

procedure MIPrintSetupClick(Sender: TObject);

procedure MIMenuOpenClick(Sender: TObject);

procedure MIExitClick(Sender: TObject);

procedure MIUndoClick(Sender: TObject); // Edit menu

procedure MICutClick(Sender: TObject);

procedure MICopyRTFClick(Sender: TObject);

procedure MIPasteClick(Sender: TObject);

procedure MISearchClick(Sender: TObject);

procedure MIReplaceClick(Sender: TObject);

procedure MIGotoLineClick(Sender: TObject);

procedure MIUnindentClick(Sender: TObject);

procedure MIIndentClick(Sender: TObject);

procedure MICompileClick(Sender: TObject); // Start menu

procedure MIRunClick(Sender: TObject);

procedure MIProgramResetClick(Sender: TObject);

procedure MIHTMLforAppletClick(Sender: TObject);

procedure MIAppletviewerClick(Sender: TObject);

procedure MIDissasemblerClick(Sender: TObject);

procedure MIJavaDocClick(Sender: TObject);

procedure MIDefaultLayoutClick(Sender: TObject);

procedure MICascadeClick(Sender: TObject);

procedure Tile(Horizontal: Boolean);

procedure MITileVerticalClick(Sender: TObject);

procedure MITileHorizontalClick(Sender: TObject);

procedure MIFontClick(Sender: TObject);

procedure MIConfigurationClick(Sender: TObject);

// help menu

procedure MIHelpHelpClick(Sender: TObject);

procedure MIAPIClick(Sender: TObject);

procedure MIJavaFxClick(Sender: TObject);

procedure MIDemosClick(Sender: TObject);

procedure MITutorialClick(Sender: TObject);

procedure MIAboutClick(Sender: TObject);

{ --- control structures }

procedure SBKontrollstrukturenClick(Sender: TObject);

{ --- Programm }

procedure SBProgramClick(Sender: TObject);

procedure SBGUIFrameClick(Sender: TObject);

procedure MISwingClick(Sender: TObject);

procedure TBSwingClick(Sender: TObject);

procedure TBLayoutClick(Sender: TObject);

procedure MIRedoClick(Sender: TObject);

procedure MIExportClick(Sender: TObject);

procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;

procedure SystemExecuteMacro(Sender: TObject; Msg: TStrings);

procedure MIMSDosClick(Sender: TObject);

procedure MICopyHTMLClick(Sender: TObject);

procedure MIBrowserClick(Sender: TObject);

procedure MIMaximizedClick(Sender: TObject);

procedure TBRunClick(Sender: TObject);

procedure MIJavabookClick(Sender: TObject);

procedure MIParameterClick(Sender: TObject);

procedure MISearchAgainClick(Sender: TObject);

procedure MISystemOutPrintlnClick(Sender: TObject);

procedure MIStepClick(Sender: TObject);

procedure MINextClick(Sender: TObject);

procedure MIBreakpointClick(Sender: TObject);

procedure MIBreakpointsClearClick(Sender: TObject);

procedure MIStepUpClick(Sender: TObject);

procedure MIExpressionClick(Sender: TObject);

procedure ShowDockPanel(APanel: TPanel; MakeVisible: Boolean;

Client: TControl);

procedure DockPanelDockDrop(Sender: TObject; Source: TDragDockObject;

X, Y: Integer);

procedure BottomDockPanelDockOver(Sender: TObject; Source: TDragDockObject;

X, Y: Integer; State: TDragState; var Accept: Boolean);

procedure BottomDockPanelUnDock(Sender: TObject; Client: TControl;

NewTarget: TWinControl; var Allow: Boolean);

procedure RightDockPanelUnDock(Sender: TObject; Client: TControl;

NewTarget: TWinControl; var Allow: Boolean);

procedure RightDockPanelDockOver(Sender: TObject; Source: TDragDockObject;

X, Y: Integer; State: TDragState; var Accept: Boolean);

procedure BottomDockPanelStartDock(Sender: TObject;

var DragObject: TDragDockObject);

procedure RightDockPanelGetSiteInfo(Sender: TObject; DockClient: TControl;

var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);

procedure BottomDockPanelGetSiteInfo(Sender: TObject; DockClient: TControl;

var InfluenceRect: TRect; MousePos: TPoint; var CanDock: Boolean);

procedure ShowDockableForm(DockWindow: TDockableForm);

procedure VSplitterMoved(Sender: TObject);

procedure HSplitterMoved(Sender: TObject);

procedure MIMessagesClick(Sender: TObject);

procedure MIDebuggerClick(Sender: TObject);

procedure MICompileAllClick(Sender: TObject);

procedure TBCompileAllClick(Sender: TObject);

procedure FormResize(Sender: TObject);

procedure MICloseAllFilesClick(Sender: TObject);

procedure MICommentOnOffClick(Sender: TObject);

procedure MISaveAllClick(Sender: TObject);

procedure MIWebsiteClick(Sender: TObject);

procedure MIMindstormsHelpClick(Sender: TObject);

procedure MISearchInFilesClick(Sender: TObject);

procedure MICheckstyleClick(Sender: TObject);

procedure MIJalopyClick(Sender: TObject);

procedure TBMsDosClick(Sender: TObject);

procedure MISaveAsPictureClick(Sender: TObject);

procedure MIOpenFolderClick(Sender: TObject);

procedure MINewLayoutClick(Sender: TObject);

procedure MIWatchesClick(Sender: TObject);

procedure MIToolbarClick(Sender: TObject);

procedure MIUpdateClick(Sender: TObject);

procedure MISaveAsProjectClick(Sender: TObject);

procedure MIExplorerClick(Sender: TObject);

procedure MIObjectInspectorClick(Sender: TObject);

procedure MIClassEditorClick(Sender: TObject);

procedure MIDiagramFromOpenFilesClick(Sender: TObject);

procedure MINewClassClick(Sender: TObject);

procedure MIJarCreateClick(Sender: TObject);

procedure MIJarPackClick(Sender: TObject);

procedure MIJarClick(Sender: TObject);

procedure MIMessagesDockedClick(Sender: TObject);

procedure MICopyNumberedClick(Sender: TObject);

procedure MIRefreshClick(Sender: TObject);

procedure MIClassOpenClick(Sender: TObject);

procedure MICopyHTMLAsTextClick(Sender: TObject);

procedure MIShowExecutionPointClick(Sender: TObject);

procedure MIRunToCursorClick(Sender: TObject);

procedure ControlBarDockOver(Sender: TObject; Source: TDragDockObject;

X, Y: Integer; State: TDragState; var Accept: Boolean);

procedure PrepareClassEdit(const Pathname, Status: string; UML: TFUMLForm);

procedure MINewUMLClick(Sender: TObject);

procedure MICompareClick(Sender: TObject);

procedure MIUnicodeClick(Sender: TObject);

procedure MISVNAddClick(Sender: TObject);

procedure MISVNCommitClick(Sender: TObject);

procedure MISVNTreeClick(Sender: TObject);

procedure MISVNStatusClick(Sender: TObject);

procedure MISVNCompareClick(Sender: TObject);

procedure MISVNLogClick(Sender: TObject);

procedure MISVNUpdateClick(Sender: TObject);

// Code-Completion

procedure scpJavaExecute(Kind: SynCompletionType; Sender: TObject;

var CurrentInput: string; var XPos, YPos: Integer;

var CanExecute: Boolean);

procedure scpParamsExecute(Kind: SynCompletionType; Sender: TObject;

var CurrentInput: string; var XPos, YPos: Integer;

var CanExecute: Boolean);

procedure scpJavaOnCodeCompletion(Sender: TObject; var Value: string;

Shift: TShiftState; Index: Integer; EndToken: Char);

procedure scpJavaAfterCodeCompletion(Sender: TObject; const Value: string;

Shift: TShiftState; Index: Integer; EndToken: Char);

procedure scpJavaChange(Sender: TObject; AIndex: Integer);

procedure scpJavaClose(Sender: TObject);

procedure scpJavaShow(Sender: TObject);

procedure scpHandleMethods(Editor: TSynEdit; Index: Integer;

EndToken: Char);

procedure scpParamsPaintItem(Sender: TObject; Index: Integer;

TargetCanvas: TCanvas; ItemRect: TRect; var CustomDraw: Boolean);

procedure scpSetEditForm(Editform: TFEditForm);

procedure scpSetEditor(Editor: TSynEdit);

procedure EditorAgeTimerTimer(Sender: TObject);

procedure MISaveAllInClick(Sender: TObject);

procedure MIConfigureToolsClick(Sender: TObject);

procedure TBPanelCanvasMouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure MICopyNormalClick(Sender: TObject);

procedure MIPrintAllClick(Sender: TObject);

procedure MICopyRtfNumberedClick(Sender: TObject);

procedure MIJavaResetClick(Sender: TObject);

procedure TBFontMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure SBNewClick(Sender: TObject);

procedure SBClassClick(Sender: TObject);

procedure MICloseProjectClick(Sender: TObject);

procedure SBStructogramClick(Sender: TObject);

procedure MINewCommentClick(Sender: TObject);

procedure MIDebugClick(Sender: TObject);

procedure TBJavaFXClick(Sender: TObject);

procedure SBStructureIndentClick(Sender: TObject);

procedure MIFileStructureClick(Sender: TObject);

procedure TBClassOpenClick(Sender: TObject);

procedure ToolbuttonMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure ToolbuttonStartDrag(Sender: TObject; var DragObject: TDragObject);

procedure MIJUnitCreateTestclassClick(Sender: TObject);

procedure MIJUnitRunAllTestsClick(Sender: TObject);

procedure MIJunitManualClick(Sender: TObject);

procedure SBSequenceClick(Sender: TObject);

procedure MINewSequencediagramClick(Sender: TObject);

procedure MITestCreateSequencediagramClick(Sender: TObject);

procedure MIUMLCreateSequencediagramClick(Sender: TObject);

procedure ActiveWindowTimerTimer(Sender: TObject);

procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);

procedure ActiveControlChanged(Sender: TObject);

procedure MIGitClick(Sender: TObject);

procedure CloseTimerTimer(Sender: TObject);

procedure StyleTimerTimer(Sender: TObject);

procedure FormAfterMonitorDpiChanged(Sender: TObject;

OldDPI, NewDPI: Integer);

procedure TBCompileJavaClick(Sender: TObject);

procedure MIRecognizeAssociationsClick(Sender: TObject);

procedure MIChatClick(Sender: TObject);

private

FActiveTDIChild: TFForm;

FActiveTool: Integer;

FAfterCodeCompletion: Boolean;

FAUMLForm: TFUMLForm;

FClosing: Boolean;

FFixedWindows: array of TFForm;

FEditClass: string;

FEditClassStatus: string;

FEditorForm: TFEditForm;

FIdle: Integer;

FIdle2: Integer;

FInteractiveUMLForm: TFUMLForm;

FLastDoubleClickTime: TDateTime;

FLock: TCriticalSection;

FMakeUpdate: Boolean;

FMyTabBar: TJvTabBar;

FPrintDialog: TPrintDialog;

FPrinterSetup: TPrinterSetupDialog;

FProjectFilename: string;

FScpJava: TSynCompletionProposal;

FScpJavaIsMethod: Boolean;

FScpParamIndex: Integer;

FScpParams: TSynCompletionProposal;

FScpState: Integer;

FSearch: Boolean;

FSearched: string;

FSynEditSearch: TSynEditSearch;

FTDIFormsList: TFormsList;

FTimerStatus: Integer;

FUpdateMenuItemsCount: Integer;

procedure PrepareStep;

procedure StepNextUp(const Str: string);

procedure SaveBeforeCompile;

procedure Compile;

procedure MyTabBarDblClick(Sender: TObject);

procedure MyTabBarClosed(Sender: TObject; Item: TJvTabBarItem);

procedure ClassEdit;

procedure EditorSaveAs(AForm: TFForm; Hidden: Boolean);

procedure StructogramSaveAs(Structogram: TFStructogram);

procedure SequenceSaveAs(SequenceDiagram: TFSequenceForm);

function GetTDIType(const Typ: string): TFForm;

function GetTab(Num: Integer): Integer;

function GetWindowMenuNr(Num: Integer): Integer;

procedure NewGUIForm(const AFile: string; State: string);

procedure NewUMLWindow(const AFile, State: string);

function NewEditform(Hidden: Boolean): TFEditForm;

procedure FixWindows(WithHidden: Boolean);

procedure JarShowUnpackOpen(Num: Integer; const FileName: string);

procedure JarCall(const Call, Dir: string);

procedure JarOpen(const FileName: string);

function GetUMLWindow: TFUMLForm;

procedure LoadBounds;

procedure OpenFileStructureAndObjectInspector;

function GetEditFormWithMain: TFEditForm;

procedure WMCOPYDATA(var Msg: TWMCopyData); message WM_COPYDATA;

function HasJavaFiles: Boolean;

function HasPascalFiles: Boolean;

function GetActiveUML: TFUMLForm;

function GetActiveForm: TFForm;

function GetEditorWithMain: TFEditForm;

function GetTabForm(Num: Integer): TFForm;

function GetSelectedTabForm: TFForm;

procedure SetMenuKeyCaps;

procedure HideGuiForms;

procedure ShowGuiForms;

procedure SaveDocking;

procedure LoadDocking;

procedure ShowActive;

procedure AppOnIdle(Sender: TObject; var Done: Boolean);

function GetActiveFormTag: Integer;

procedure DoHTMLForApplet(Editform: TFEditForm;

ForceCreate, PlugIn, AShow: Boolean; var Applet: string);

procedure DoJarCreate(FileName, Package: string);

procedure CompileList(StringList: TStringList);

procedure RefreshUMLWindows;

procedure DoDisassemble(const FileName: string);

function GuiDesignerOpen: Boolean;

function OpenStructogram(const FileName, State: string): Boolean;

function OpenSequenceDiagram(const FileName, State: string): Boolean;

procedure UMLSaveAs(UMLForm: TFUMLForm);

procedure ReadHistory;

procedure OpenFileWithState(const Str: string);

procedure OpenProject(const FileName: string);

procedure DoSaveAsProject(const FileName: string);

procedure NewTextDiff(Edit1, Edit2: TFEditForm);

function NewSequenceDiagram(const FileName: string; State: string): Boolean;

function NewStructogram(const FileName: string; State: string): Boolean;

procedure AddToTabBar(Num: Integer; Form: TFForm);

procedure RunAndroid;

procedure DoRun(Editform: TFEditForm; const Pathname: string);

procedure DoRunApplet(const JavaProgramm: string; Editform: TFEditForm);

procedure DoRunProgram(const JavaProgram, AParameter: string;

Editform: TFEditForm);

procedure DoRunHTML(const Pathname: string);

public

function HasEditforms: Boolean;

function IsJavaApplet(Editform: TFEditForm): Boolean;

procedure CloseBrowser;

procedure CallHelp(const Address: string); overload;

procedure CallHelp(Applet: Boolean; Address: string); overload;

procedure CallApplet(const Address: string);

function WindowOpened(const Pathname: string; var AForm: TFForm): Boolean;

function GetTDIWindow(const Pathname: string): TFForm; overload;

function GetTDIWindow(Number: Integer): TFForm; overload;

function GetTDIWindowType(const Pathname, Typ: string): TFForm;

function GetTDIWindowTypeFilename(const FileName, Typ: string): TFForm;

function GetEditForm(const Pathname: string): TFEditForm;

function GetGuiForm(const Pathname: string): TFGUIForm;

procedure SwitchToWindow(const Path: string); overload;

procedure SwitchToWindow(Num: Integer); overload;

procedure SwitchToWindow(Form: TFForm); overload;

procedure SwitchWindowWithSearch(const Pathname: string);

procedure ChangeWindowWithPositioning(const Pathname: string;

XPos, YPos: Integer; Error: Boolean);

function GetPathnameForClass(const AClassname: string): string;

function OpenWindowWithClass(const Directory, AClass: string): Boolean;

procedure SetBreakpoints;

function PreCompile(AForm: TFEditForm; Pathname: string): Boolean;

procedure RunButtonToStop(Stop: Boolean);

procedure CompileButtonToStop(OnOff: Boolean);

function Open(const FileName: string): Boolean;

function OpenEditForm(const Pathname: string; Hidden: Boolean): TFEditForm;

procedure CloseFile(const FileName: string);

procedure UpdateMenuItems(Sender: TObject); // MI = MenuItem

procedure DoSave(AForm: TFForm; WithBackup: Boolean);

procedure AddToWindowMenuAndTabBar(Num: Integer; NotifyEvent: TNotifyEvent;

Form: TFForm);

procedure SetSelectedTabAndWindow(Num: Integer); overload;

procedure SetSelectedTabAndWindow(const Pathname: string); overload;

procedure RenameTabAndWindow(Num: Integer; const New: string);

procedure DeleteTabAndWindow(Num: Integer);

procedure DeleteTab(Num: Integer);

procedure TabModified(Num: Integer; Modified: Boolean);

procedure MyTabBarColorize;

procedure MyTabBarClick(Sender: TObject);

function NewBrowser(Address: string; const State: string): TFBrowser;

procedure NewEditor(const Path: string; State: string);

procedure NewExplorer(const Dir: string; State: string);

function MakeNewUMLWindow(const FileName, State: string): TFUMLForm;

procedure SearchInIndex;

function OpenUMLWindow(const FileName, State: string): TFUMLForm;

procedure ConnectGUIAndJavaWindow(GUIForm: TFGUIForm);

procedure MoveHSplitter(AHeight: Integer);

procedure MoveVSplitter(AWidth: Integer);

procedure SaveBounds;

function GetFilename(const Extension: string; Path: string = ''): string;

procedure RearrangeFileHistory(const NewFile: string);

procedure OpenFiles;

procedure ShowSearchReplaceDialog(Editor: TSynEdit; AReplace: Boolean);

procedure DoSearchReplaceText(Editor: TSynEdit; AReplace: Boolean);

procedure NotFound(Editor: TSynEdit; Backwards: Boolean); // Ex

function IsAValidClass(const Pathname: string): Boolean;

procedure CompileOneWith(const Pathname: string);

procedure DoOpenInUMLWindow(const Pathname: string);

procedure DoJarCreateEV3(const FileName: string);

function PreparePrint(Sender: TObject): Boolean;

function GetActiveTDIFormPath: string;

function ExtentClasspath(Classpath: string): string;

function GetAllPathnames: TStringList;

function GetAllClassnames: TStringList;

procedure Restart;

procedure Run(const Pathname: string);

function HasBreakpoints: Boolean;

procedure StructogramFromText(const Sourcecode: string; Pathname: string);

procedure ShowCompileErrors;

procedure ResetToolbars;

procedure UpdateLayoutRightDockPanel;

procedure ImperativeUpdateMenuItems;

procedure DisableUpdateMenuItems;

procedure EnableUpdateMenuItems;

function GetActiveEditor: TFEditForm;

function TDIEditFormCount: Integer;

function TDIEditFormGet(Index: Integer): TFEditForm;

procedure ChangeStyle(const Style: string);

procedure SetStyle(const StyleName: string);

function FormFactory(FormKind: TFormKind): TFForm;

procedure DoExport(const Pathname: string; Bitmap: TBitmap);

procedure ChangeLanguage(const LangCode: string);

procedure SetDockTopPanel;

procedure ShowAWTSwingOrFX(FrameType: Integer);

procedure SetOptions;

procedure ThemeEditorGutter(Gutter: TSynGutter);

procedure DropFiles(Sender: TObject; X, Y: Integer; AFiles: TStrings);

property ActiveTDIChild: TFForm read FActiveTDIChild write FActiveTDIChild;

property ActiveTool: Integer read FActiveTool write FActiveTool;

property AfterCodeCompletion: Boolean read FAfterCodeCompletion;

property AUMLForm: TFUMLForm read FAUMLForm write FAUMLForm;

property EditorForm: TFEditForm read FEditorForm write FEditorForm;

property InteractiveUMLForm: TFUMLForm read FInteractiveUMLForm;

property LastDoubleClickTime: TDateTime read FLastDoubleClickTime;

property Lock: TCriticalSection read FLock;

property MakeUpdate: Boolean read FMakeUpdate write FMakeUpdate;

property MyTabBar: TJvTabBar read FMyTabBar;

property PrintDialog: TPrintDialog read FPrintDialog;

property ProjectFilename: string read FProjectFilename;

property ScpJava: TSynCompletionProposal read FScpJava;

property ScpParamIndex: Integer read FScpParamIndex;

property ScpParams: TSynCompletionProposal read FScpParams;

property Search: Boolean read FSearch write FSearch;

property Searched: string read FSearched;

property SynEditSearch: TSynEditSearch read FSynEditSearch;

property TDIFormsList: TFormsList read FTDIFormsList;

end;

var

FJava: TFJava;

implementation

{$R *.DFM}

uses

SysUtils,

ShellAPI,

Themes,

StrUtils,

Vcl.Imaging.pngimage,

Math,

Types,

Printers,

Menus,

IOUtils,

UITypes,

SynEditTypes,

JvGnugettext,

UStringRessources,

UDlgAbout,

UConfiguration,

UDlgGotoLine,

UObjectGenerator,

UDlgParameter,

UNTProcess,

USaveDialog,

UDlgHelp,

UDlgGrepSearch,