unit uFrmMain;

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms,

Vcl.Dialogs, system.IniFiles, uEditorLoader, Vcl.StdCtrls, uFrmViewport, ES.BaseControls, ES.Layouts, Vcl.Menus,

ES.CfxClasses, Vcl.Buttons, Vcl.ExtCtrls, uEditorTypes, Editor.Editor, Engine.UnCamera, Engine.UnObj, Vcl.ComCtrls,

System.Threading, System.ImageList, Vcl.ImgList, system.IOUtils, System.StrUtils, uEditor.Consts, uEditor.Strings,

Vcl.ToolWin, System.Actions, Vcl.ActnList, Vcl.Clipbrd, Vcl.AppEvnts, Vcl.Mask, JvExMask, JvSpin;

TfrmMain = class(TForm)

ButtonsPanel: TEsPanel;

CommandBar: TEsPanel;

menuMainForm: TMainMenu;

File1: TMenuItem;

ViewportsPanel: TEsPanel;

cmbCommand: TComboBox;

Label1: TLabel;

cmbLeftPanelsWidthRatio: TComboBox;

ToolbarPanel: TEsPanel;

Callback: TEdit;

ViewportPopup: TPopupMenu;

AddLighthere1: TMenuItem;

N1: TMenuItem;

Grid1: TMenuItem;

Pivot1: TMenuItem;

Levelproperties1: TMenuItem;

N3: TMenuItem;

N1unit1: TMenuItem;

N2units1: TMenuItem;

N4units1: TMenuItem;

N8units1: TMenuItem;

N16units1: TMenuItem;

N32units1: TMenuItem;

N64units1: TMenuItem;

N128units1: TMenuItem;

N256units1: TMenuItem;

Placepivotsnappedhere1: TMenuItem;

PlacePivothere1: TMenuItem;

ActorSelectedPopup: TPopupMenu;

ProgressBar: TProgressBar;

mnuView: TMenuItem;

ToolbarImages: TImageList;

Masterbrowser1: TMenuItem;

mnuRecentMaps: TMenuItem;

RecentFile0: TMenuItem;

RecentFile1: TMenuItem;

RecentFile2: TMenuItem;

RecentFile3: TMenuItem;

RecentFile4: TMenuItem;

RecentFile5: TMenuItem;

RecentFile6: TMenuItem;

RecentFile7: TMenuItem;

RecentFile8: TMenuItem;

Build1: TMenuItem;

PlayLevel1: TMenuItem;

N4: TMenuItem;

RebuildBSPonly1: TMenuItem;

RebuildGeometryonly1: TMenuItem;

RebuildLightingOnly1: TMenuItem;

RebuildAIPaths1: TMenuItem;

BuildAll1: TMenuItem;

N5: TMenuItem;

BuildOptions1: TMenuItem;

DeusExLevelInfoproperties1: TMenuItem;

btnApplyViewportRatio: TButton;

ProgressText: TStaticText;

Edit1: TMenuItem;

Copy1: TMenuItem;

ButtonGroups: TCategoryPanelGroup;

catBrushMode: TCategoryPanel;

catBrushBuilders: TCategoryPanel;

catOperations: TCategoryPanel;

catSelection: TCategoryPanel;

EditorModeImages: TImageList;

BrushBuildersImages: TImageList;

New1: TMenuItem;

Open1: TMenuItem;

Savecurrentmap1: TMenuItem;

Savecurrentmapas1: TMenuItem;

Import1: TMenuItem;

Export1: TMenuItem;

N2: TMenuItem;

N6: TMenuItem;

N7: TMenuItem;

N8: TMenuItem;

Exit1: TMenuItem;

Undo1: TMenuItem;

Redo1: TMenuItem;

N9: TMenuItem;

Searchforactors1: TMenuItem;

Cut1: TMenuItem;

Paste1: TMenuItem;

N10: TMenuItem;

N12: TMenuItem;

Duplicate1: TMenuItem;

Delete1: TMenuItem;

N13: TMenuItem;

SelectAllActors1: TMenuItem;

SelectNone1: TMenuItem;

SelectSurfaces1: TMenuItem;

LotsofstuffIveneverused1: TMenuItem;

ActorClassBrowser1: TMenuItem;

GroupBrowser1: TMenuItem;

MeshBrowser1: TMenuItem;

Musicbrowser1: TMenuItem;

ScriptEditor1: TMenuItem;

SoundBrowser1: TMenuItem;

extureBrowser1: TMenuItem;

N14: TMenuItem;

Log1: TMenuItem;

ActorProperties1: TMenuItem;

Surfaceproperties1: TMenuItem;

LevelProperties2: TMenuItem;

DeusExLevelInfoProperties2: TMenuItem;

N15: TMenuItem;

Viewports1: TMenuItem;

Implementsomething1: TMenuItem;

Brush1: TMenuItem;

Reset1: TMenuItem;

MoveToOrigin1: TMenuItem;

ResetPivot1: TMenuItem;

ResetRotation1: TMenuItem;

ResetScaling1: TMenuItem;

ResetAll1: TMenuItem;

N16: TMenuItem;

mniBrushAdd: TMenuItem;

mniBrushSubtract: TMenuItem;

Intersect1: TMenuItem;

DeIntersect1: TMenuItem;

N17: TMenuItem;

AddMover1: TMenuItem;

AddDeusExMover1: TMenuItem;

AddSpecial1: TMenuItem;

N18: TMenuItem;

OpenBrush1: TMenuItem;

SaveBrushAs1: TMenuItem;

N19: TMenuItem;

Import2: TMenuItem;

Export2: TMenuItem;

Export3: TMenuItem;

InvertSelection1: TMenuItem;

ools1: TMenuItem;

AdvancedOptions1: TMenuItem;

N2DShapeEditor1: TMenuItem;

Help1: TMenuItem;

ToolBar1: TToolBar;

ServerSetCurrentClass1: TMenuItem;

mniSelectedProperties: TMenuItem;

mnuMoverKeys: TMenuItem;

mniMoverKey0: TMenuItem;

mniMoverKey1: TMenuItem;

mniMoverKey2: TMenuItem;

mniMoverKey3: TMenuItem;

mniMoverKey4: TMenuItem;

mniMoverKey5: TMenuItem;

mniMoverKey6: TMenuItem;

mniMoverKey7: TMenuItem;

mnuReset: TMenuItem;

mnuTransform: TMenuItem;

mnuOrder: TMenuItem;

mnuCopyPolygns: TMenuItem;

mniMoveToOrigin: TMenuItem;

mniMirrorAboutX: TMenuItem;

mniOrderToFirst: TMenuItem;

mniPolysToBrush: TMenuItem;

mnuBrushSolidity: TMenuItem;

mniBrushMakeSolid: TMenuItem;

N23: TMenuItem;

mniSelectAllOfType: TMenuItem;

mniSelectNone: TMenuItem;

mniSelectAllActors: TMenuItem;

mnuSelectBrushes: TMenuItem;

mniMapSelectAdds: TMenuItem;

N24: TMenuItem;

mniDuplicateSelection: TMenuItem;

mniDeleteSelected: TMenuItem;

mniEditScript: TMenuItem;

mniResetPivot: TMenuItem;

mniResetRotation: TMenuItem;

mniResetScaling: TMenuItem;

mniResetAllPositioning: TMenuItem;

mniMirrorAboutY: TMenuItem;

mniMirrorAboutZ: TMenuItem;

mniOrderToLast: TMenuItem;

mniPolysFromBrush: TMenuItem;

mniBrushMakeSemiSolid: TMenuItem;

mniBrushMakeNonSolid: TMenuItem;

mniMapSelectSubtracts: TMenuItem;

mniMapSelectSemiSolids: TMenuItem;

mniMapSelectNonSolids: TMenuItem;

mniTransformPermanently: TMenuItem;

ActorPopupImages: TImageList;

mniCut: TMenuItem;

mniCopy: TMenuItem;

mniPaste: TMenuItem;

N20: TMenuItem;

EditorActions: TActionList;

file_NewMap: TAction;

file_OpenMap: TAction;

file_SaveCurrentMap: TAction;

file_SaveCurrentMapAs: TAction;

file_Import: TAction;

file_Export: TAction;

edit_Undo: TAction;

edit_Redo: TAction;

edit_SearchActors: TAction;

edit_ActorCut: TAction;

edit_ActorCopy: TAction;

edit_ActorPaste: TAction;

edit_ActorDelete: TAction;

edit_ActorDuplicate: TAction;

edit_SelectAllActors: TAction;

edit_SelectNoneActors: TAction;

edit_SelectInvert: TAction;

brushAdd: TAction;

brushSubtract: TAction;

brushIntersect: TAction;

brushDeintersect: TAction;

ActorReset_moveToOrigin: TAction;

ActorReset_Pivot: TAction;

ActorReset_Rotation: TAction;

ActorReset_Scaling: TAction;

ActorReset_All: TAction;

edit_SelectInsideBrush: TAction;

brushAddMover: TAction;

brushAddDeusExMover: TAction;

brushAddBreakableGlass: TAction;

brushAddBreakableWall: TAction;

brushMakeSolid: TAction;

brushMakeSemiSolid: TAction;

brushMakeNonSolid: TAction;

edit_SelectOfClass: TAction;

RotationGrid1: TMenuItem;

N1024Unitsdefault1: TMenuItem;

N512Units1: TMenuItem;

N256Units2: TMenuItem;

N128Units2: TMenuItem;

N64Units2: TMenuItem;

N32Units2: TMenuItem;

N16Units2: TMenuItem;

Withsame1: TMenuItem;

WithsameEvent1: TMenuItem;

N22: TMenuItem;

AllActorswithsameAttachTag1: TMenuItem;

SelectAllActorswithsameBindName1: TMenuItem;

SelectAllActorswithsameBarkBindName1: TMenuItem;

edit_SelectOfSubClass: TAction;

edit_SelectOfEvent: TAction;

edit_SelectOfTag: TAction;

edit_SelectOfAttachTag: TAction;

edit_SelectOfBindName: TAction;

edit_SelectOfBarkBindName: TAction;

subMenu_SelectActors: TMenuItem;

InvertSelection2: TMenuItem;

view_ActorSelectedProperties: TAction;

view_surf_Properties: TAction;

SurfacePopup: TPopupMenu;

Surfacepropertiessthselected1: TMenuItem;

N25: TMenuItem;

AddLighthere2: TMenuItem;

AddCustom11: TMenuItem;

AddCustom21: TMenuItem;

AddCustom31: TMenuItem;

AddCustom41: TMenuItem;

AddCustom51: TMenuItem;

AddCustom61: TMenuItem;

N26: TMenuItem;

AddcurrentClasshere1: TMenuItem;

AlighSelected1: TMenuItem;

AlignAsFloorCeiling1: TMenuItem;

AlignOneTile1: TMenuItem;

N27: TMenuItem;

N28: TMenuItem;

AlignWallPanning1: TMenuItem;

N29: TMenuItem;

Unalignbacktodefault1: TMenuItem;

ResetAllPanningScaleandAlign1: TMenuItem;

N30: TMenuItem;

Select1: TMenuItem;

Lotsofstuff1: TMenuItem;

SelectAllSurfaces1: TMenuItem;

UnselectAllSurfaces1: TMenuItem;

N32: TMenuItem;

miApplySelectedTex: TMenuItem;

AppEvents: TApplicationEvents;

OpenDlg: TOpenDialog;

ResizeTimer: TTimer;

Extensions1: TMenuItem;

InstallOpenGLDrv1: TMenuItem;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton6: TToolButton;

ToolButton7: TToolButton;

ToolButton11: TToolButton;

ToolButton14: TToolButton;

ToolButton15: TToolButton;

ToolButton16: TToolButton;

ToolButton17: TToolButton;

ToolButton18: TToolButton;

br_ActorBrowser: TAction;

br_MusicBrowser: TAction;

br_TextureBrowser: TAction;

br_SoundBrowser: TAction;

br_MeshBrowser: TAction;

view_level_properties: TAction;

view_DX_LevelinfoProperties: TAction;

view_Log: TAction;

br_MasterBrowser: TAction;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

ToolButton1: TToolButton;

ToolButton5: TToolButton;

Label7: TLabel;

ToolButton8: TToolButton;

Label8: TLabel;

ToolButton9: TToolButton;

tbBuildGeometry: TToolButton;

Label9: TLabel;

tbBuildLighting: TToolButton;

tbBuildPaths: TToolButton;

tbBuildAll: TToolButton;

tbBuildOptions: TToolButton;

ToolButton21: TToolButton;

build_options: TAction;

miGenerateIntForMap: TMenuItem;

N33: TMenuItem;

RecentFile9: TMenuItem;

btnViewLog: TButton;

ToolBar2: TToolBar;

tbAdd: TToolButton;

tbIntersect: TToolButton;

tbDeintersect: TToolButton;

tbSubtract: TToolButton;

tbAddSpecial: TToolButton;

tbAddMover: TToolButton;

operationsImageList: TImageList;

toolbarBrushBuilders: TToolBar;

tbSheet: TToolButton;

tbCylinder: TToolButton;

tbCube: TToolButton;

tbSpiralStairCase: TToolButton;

tbCone: TToolButton;

tbSphere: TToolButton;

tbCurvedStaircase: TToolButton;

tbLinearStairCase: TToolButton;

ToolButton30: TToolButton;

ToolButton31: TToolButton;

ToolButton32: TToolButton;

ToolButton33: TToolButton;

ToolButton34: TToolButton;

ToolButton35: TToolButton;

ToolButton36: TToolButton;

toolbarEditorMode: TToolBar;

tbMoveCamera: TToolButton;

tbSheerBrush: TToolButton;

tbScaleBrush: TToolButton;

tbStretchBrush: TToolButton;

tbSnapScaleBrush: TToolButton;

tbRotateBrush: TToolButton;

tbTexturePan: TToolButton;

tbTextureRotate: TToolButton;

ToolButton45: TToolButton;

ToolBar3: TToolBar;

tbShowSelectedActorsOnly: TToolButton;

tbHideSelectedActors: TToolButton;

tbSelActorsInsideRedBrush: TToolButton;

tbSelectAllActors: TToolButton;

tbInvertSelection: TToolButton;

tbShowAllActors: TToolButton;

tbCameraSpeed: TToolButton;

tbCameraAlign: TToolButton;

ToolButton37: TToolButton;

SelectionImageList: TImageList;

pnlConverter: TEsPanel;

chkShowConverter: TCheckBox;

se_RotationUU: TJvSpinEdit;

Label10: TLabel;

se_CustomAngle: TJvSpinEdit;

GroupBox1: TGroupBox;

GroupBox2: TGroupBox;

lblDistance: TLabel;

se_Dist_Cm: TJvSpinEdit;

se_DistanceUU: TJvSpinEdit;

se_Dist_Meters: TJvSpinEdit;

chkUseInches: TCheckBox;

estTextureProperties1: TMenuItem;

SaveDlg: TSaveDialog;

Gethandle1: TMenuItem;

// new functions

function CheckEditorPatch(): Boolean;

function CheckFilesInPaths(const FileName: string; const EditPackages: TStrings; out MissingPackages: TStrings): Boolean;

function GetEditPackages(const FileName: string): TStrings;

function CheckPackageSource(const EditPackage: string): Boolean;

// new procedures

procedure OpenCamera(bReopen: Boolean; hWnd: HWND; X, Y, XR, YR: Integer; Flags, RenType: Longint; CameraName: String);

procedure OpenCameras(bReopen: Boolean);

procedure EmbedCamera(const Num: Integer);

procedure ReleaseCamera(const Num: Integer);

procedure SetComponentsEnabled(Parent: TWinControl; bEnabled: Boolean);

procedure SetCheckboxAsButton(ChkBox: TCheckBox);

procedure EnableDistConverterEvents(ActiveSpinEdit: TJvSpinEdit);

procedure CloseAllForms();

procedure ReplaceLogWindowFont();

procedure ShowLogWindow();

procedure StartupCheck();

procedure LoadCfg();

procedure SaveCfg();

procedure BuildCube();

procedure DisableMouseAcceleration();

procedure LoadEditor();

procedure AddRecentMapFile(aFile: string); // add opened file to "recent" list

procedure ClearRecentMapFiles();

procedure OpenRecentMap(aFile: string);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure FormResize(Sender: TObject);

procedure ButtonGroupsMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;

var Handled: Boolean);

procedure cmbCommandKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

procedure CallbackKeyPress(Sender: TObject; var Key: Char);

procedure MeshImporttest1Click(Sender: TObject);

procedure sbActorBrowserClick(Sender: TObject);

procedure sbLogClick(Sender: TObject);

procedure sbTextureBrowserClick(Sender: TObject);

procedure sbScriptEditorClick(Sender: TObject);

procedure btnApplyViewportRatioClick(Sender: TObject);

procedure bbCubeMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure FormCreate(Sender: TObject);

procedure ServerSetCurrentClass1Click(Sender: TObject);

procedure AdvancedOptions1Click(Sender: TObject);

procedure bbSheetMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

procedure SetMoverKeyClick(Sender: TObject);

procedure mniMirrorAboutXClick(Sender: TObject);

procedure mniMirrorAboutYClick(Sender: TObject);

procedure mniMirrorAboutZClick(Sender: TObject);

procedure mniTransformPermanentlyClick(Sender: TObject);

procedure mniOrderToFirstClick(Sender: TObject);

procedure mniOrderToLastClick(Sender: TObject);

procedure mniPolysToBrushClick(Sender: TObject);

procedure mniPolysFromBrushClick(Sender: TObject);

procedure mniMapSelectAddsClick(Sender: TObject);

procedure mniMapSelectSubtractsClick(Sender: TObject);

procedure mniMapSelectSemiSolidsClick(Sender: TObject);

procedure mniMapSelectNonSolidsClick(Sender: TObject);

procedure mniSelectAllOfTypeClick(Sender: TObject);

procedure brushAddExecute(Sender: TObject);

procedure brushSubtractExecute(Sender: TObject);

procedure brushIntersectExecute(Sender: TObject);

procedure brushDeintersectExecute(Sender: TObject);

procedure edit_ActorDuplicateExecute(Sender: TObject);

procedure edit_ActorDeleteExecute(Sender: TObject);

procedure edit_UndoExecute(Sender: TObject);

procedure edit_RedoExecute(Sender: TObject);

procedure edit_SearchActorsExecute(Sender: TObject);

procedure edit_ActorCutExecute(Sender: TObject);

procedure edit_ActorCopyExecute(Sender: TObject);

procedure edit_ActorPasteExecute(Sender: TObject);

procedure edit_SelectAllActorsExecute(Sender: TObject);

procedure edit_SelectNoneActorsExecute(Sender: TObject);

procedure edit_SelectInvertExecute(Sender: TObject);

procedure ActorReset_moveToOriginExecute(Sender: TObject);

procedure ActorReset_PivotExecute(Sender: TObject);

procedure ActorReset_RotationExecute(Sender: TObject);

procedure ActorReset_ScalingExecute(Sender: TObject);

procedure ActorReset_AllExecute(Sender: TObject);

procedure brushAddDeusExMoverExecute(Sender: TObject);

procedure brushAddMoverExecute(Sender: TObject);

procedure brushAddBreakableGlassExecute(Sender: TObject);

procedure brushAddBreakableWallExecute(Sender: TObject);

procedure brushMakeSolidExecute(Sender: TObject);

procedure brushMakeSemiSolidExecute(Sender: TObject);

procedure brushMakeNonSolidExecute(Sender: TObject);

procedure edit_SelectInsideBrushExecute(Sender: TObject);

procedure edit_SelectOfClassExecute(Sender: TObject);

procedure edit_SelectOfSubClassExecute(Sender: TObject);

procedure view_ActorSelectedPropertiesExecute(Sender: TObject);

procedure edit_SelectOfEventExecute(Sender: TObject);

procedure edit_SelectOfTagExecute(Sender: TObject);

procedure edit_SelectOfAttachTagExecute(Sender: TObject);

procedure edit_SelectOfBindNameExecute(Sender: TObject);

procedure edit_SelectOfBarkBindNameExecute(Sender: TObject);

procedure view_surf_PropertiesExecute(Sender: TObject);

{$WARN SYMBOL_DEPRECATED OFF}

procedure AppEventsShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo);

procedure SetRotGridSizeCick(Sender: TObject);

procedure SetGridSizeClick(Sender: TObject);

procedure ResizeFinished(Sender: TObject);

procedure file_NewMapExecute(Sender: TObject);

procedure file_OpenMapExecute(Sender: TObject);

procedure view_LogExecute(Sender: TObject);

procedure view_DX_LevelinfoPropertiesExecute(Sender: TObject);

procedure view_level_propertiesExecute(Sender: TObject);

procedure br_ActorBrowserExecute(Sender: TObject);

procedure br_MasterBrowserExecute(Sender: TObject);

procedure br_TextureBrowserExecute(Sender: TObject);

procedure build_optionsExecute(Sender: TObject);

procedure N2DShapeEditor1Click(Sender: TObject);

procedure miGenerateIntForMapClick(Sender: TObject);

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

procedure menuMainFormChange(Sender: TObject; Source: TMenuItem; Rebuild: Boolean);

procedure OpenRecentMapClick(Sender: TObject);

procedure InstallOpenGLDrv1Click(Sender: TObject);

procedure SetEditorModeClick(Sender: TObject);

procedure tbAddSpecialClick(Sender: TObject);

procedure chkShowConverterClick(Sender: TObject);

procedure se_CustomAngleChange(Sender: TObject);

procedure se_RotationUUChange(Sender: TObject);

procedure se_DistanceUUChange(Sender: TObject);

procedure se_Dist_CmChange(Sender: TObject);

procedure se_Dist_MetersChange(Sender: TObject);

procedure chkUseInchesClick(Sender: TObject);

procedure tbBuildGeometryClick(Sender: TObject);

procedure tbBuildPathsClick(Sender: TObject);

procedure br_MeshBrowserExecute(Sender: TObject);

procedure estTextureProperties1Click(Sender: TObject);

procedure Gethandle1Click(Sender: TObject);

private

procedure CreateViewportPanels();

procedure CreateViewports();

procedure HandleCallback(Value: Integer);

protected

{ Private declarations }

public

procedure FitViewportsToWindow(SelectedPanelIndex: Integer = -1);

var GameIniFile: string;

var BuildOptions: TBuildOptions;

var BuildBrush: TBuildBrush; // Global brush variable

var CurrentMouseCoords: TPoint;

var CurrentExpandedViewport: Integer;

var CurrentMap: string;

var LastActiveViewport: HWND;

var RecentMaps: array[0..MAX_RECENT_MAPS] of string;

var bMapModified: Boolean;

var LogWindowHandle: HWND;

var LogWindowTerminalHandle: HWND;

var LogWindowFont: HFONT;

{ Public declarations }

end;

frmMain: TfrmMain;

hWndEditor: HWND;

LeftPanelsWidthRatio: Float32 = 0.65;

ViewportPanels: array[0..3] of TESPanel; // Ìàññèâ ïàíåëåé äëÿ ViewPorts

ViewPorts: array[0..3] of TfrmViewport; // ôîðìî÷êè ^_^

PropertiesWindowHandle: HWND;

GIsRequestingExit: Integer;

vp_SelectedClassStr: string; // something is selected in ViewPort

vp_SelectedClassName: string;

vp_SelectedClassEvent: string;

vp_SelectedClassTag: string;

vp_SelectedClassAttachTag: string;

vp_SelectedClassBindName: string;

vp_SelectedClassBarkBindName: string;

bStartupCheckPassed: Boolean;

LOG_WINDOW_FONT_NAME = 'Consolas';

LOG_WINDOW_FONT_SIZE = 10;

uses uFrmScriptEditor, uFrmTextures, uFrmMeshImport, uFrmClassBrowser, uFrmMasterBrowser, uFrmBuildOptions, uFrmBrushBuilder, uFrmSurfaceProps, uFrmNewMap,

uFrm2DShapeEditor, uFrmAddSpecialBrush, uFrmMeshViewer, uFrmTextureProperties;

procedure TfrmMain.FormResize(Sender: TObject);

ResizeTimer.Enabled := False;

ResizeTimer.Enabled := True;

end;

procedure TfrmMain.HandleCallback(Value: Integer);

GetCursorPos(CurrentMouseCoords);

case Value - 32 of

EDC_Browse: ShowMessage('Browse item');

EDC_UseCurrent: ShowMessage('Use current item');

EDC_CurTexChange: ShowMessage('Current texture changed');

EDC_SelPolyChange:

begin

frmSurfaceProps.GetSelectedPolys();

end;

EDC_SelChange:

begin

frmSurfaceProps.GetSelectedPolys();

end;

// Right click on texture in Texture Browser, show the popup menu

EDC_RtClickTexture:

begin

frmTextures.TexturePopup.Popup(CurrentMouseCoords.X, CurrentMouseCoords.Y);

end;

EDC_RtClickPoly:

begin

view_surf_Properties.Caption := Format(strSurfaceProperties, [uEditorLoader.NumSelectedPolys()]);

var TempCurTex := frmTextures.GetCurrentTextureFull();

if TempCurTex = '' then

TempCurTex := frmTextures.GetCurrentTexture();

miApplySelectedTex.Caption := Format('Apply %s',[TempCurTex]);

SurfacePopup.Popup(CurrentMouseCoords.X, CurrentMouseCoords.Y);

end;

EDC_RtClickActor:

begin

var TempData: string;

var bIsBrush := uEditorLoader.SelectedIsBrush();

var bIsMover := uEditorLoader.SelectedIsMover();

var NumSelected := uEditorLoader.NumSelectedActors();

vp_SelectedClassStr := uEditorLoader.GetSelectedClass();

mnuMoverKeys.Visible := bIsMover;

mnuTransform.Visible := bIsBrush;

mnuOrder.Visible := bIsBrush;

mnuCopyPolygns.Visible := bIsBrush;

mnuBrushSolidity.Visible := bIsBrush;

mnuSelectBrushes.Visible := bIsBrush;

if NumSelected = 1 then

begin

ServerCmd('EDIT COPY'); // Right now this is the only way to get actor fields and values

try

TempData := Clipboard.AsText;

except

TempData := '';

end;

if TempData <> '' then

begin

vp_SelectedClassName := uEditorLoader.GetActorName(TempData);

vp_SelectedClassEvent := uEditorLoader.GetActorEvent(TempData);

vp_SelectedClassTag := uEditorLoader.GetActorTag(TempData);

vp_SelectedClassAttachTag := uEditorLoader.GetActorAttachTag(TempData);

vp_SelectedClassBindName := uEditorLoader.GetActorBindName(TempData);

vp_SelectedClassBarkBindName := uEditorLoader.GetActorBarkBindName(TempData);

end;

end

else

begin

vp_SelectedClassName := '';

vp_SelectedClassEvent := '';

vp_SelectedClassTag := '';

vp_SelectedClassAttachTag := '';

vp_SelectedClassBindName := '';

vp_SelectedClassBarkBindName := '';

end;

if vp_SelectedClassStr <> '' then // Âûáðàíî íåñêîëüêî àêòîðîâ îäíîãî êëàññà

begin

if NumSelected = 1 then

begin

if vp_SelectedClassName <> '' then // Åñòü èìÿ, îòîáðàæàåì åãî

view_ActorSelectedProperties.Caption := Format(strPropertiesNumSelected, [vp_SelectedClassName, NumSelected])

else // Íåòó? Òîãäà íàçâàíèå êëàññà.

view_ActorSelectedProperties.Caption := Format(strPropertiesNumSelected, [vp_SelectedClassStr, NumSelected]);

edit_SelectOfClass.Caption := Format(strSelectAllType, [vp_SelectedClassStr]);

edit_SelectOfSubClass.Caption := Format(strSelectWithSubClases, [vp_SelectedClassStr]);

edit_SelectOfEvent.Visible := vp_SelectedClassEvent <> '';

if vp_SelectedClassEvent <> '' then edit_SelectOfEvent.Caption := Format(strSelectWithSameEvent, [vp_SelectedClassEvent]);

edit_SelectOfTag.Visible := vp_SelectedClassTag <> '';

if vp_SelectedClassTag <> '' then edit_SelectOfTag.Caption := Format(strSelectWithSameTag, [vp_SelectedClassTag]);

edit_SelectOfAttachTag.Visible := vp_SelectedClassAttachTag <> '';

if vp_SelectedClassAttachTag <> '' then edit_SelectOfAttachTag.Caption := Format(strSelectWithSameAttachTag, [vp_SelectedClassAttachTag]);

edit_SelectOfBindName.Visible := vp_SelectedClassBindName <> '';

if vp_SelectedClassBindName <> '' then edit_SelectOfBindName.Caption := Format(strSelectWithSameBindName, [vp_SelectedClassBindName]);

edit_SelectOfBarkBindName.Visible := vp_SelectedClassBarkBindName <> '';

if vp_SelectedClassBarkBindName <> '' then edit_SelectOfBarkBindName.Caption := Format(strSelectWithSameBarkBindName, [vp_SelectedClassBarkBindName]);

end

else if NumSelected > 1 then

begin

view_ActorSelectedProperties.Caption := Format(strPropertiesNumSelected, [vp_SelectedClassStr, NumSelected]);

edit_SelectOfClass.Caption := Format(strSelectAllType, [vp_SelectedClassStr]); // Âûáðàòü âñå àêòîðû òàêîãî-æå êëàññà

edit_SelectOfClass.Visible := True;

edit_SelectOfSubClass.Caption := Format(strSelectWithSubClases, [vp_SelectedClassStr]);

edit_SelectOfSubClass.Visible := True;

mniEditScript.Visible := True; // Ìîæíî ïðîñìîòðåòü ñêðèïò.

end;

end

else

begin // Âûáðàíû ðàçíûå êëàññû

view_ActorSelectedProperties.Caption := Format(strPropertiesDifferentSelected, [NumSelected]);

edit_SelectOfClass.Visible := False; // Âûáðàòü âñå àêòîðû òàêîãî-æå êëàññà íåäîñòóïíà

edit_SelectOfSubClass.Visible := False;

edit_SelectOfEvent.Visible := False;

edit_SelectOfTag.Visible := False;

edit_SelectOfAttachTag.Visible := False;

edit_SelectOfBindName.Visible := False;

edit_SelectOfBarkBindName.Visible := False;

mniEditScript.Visible := False; // Ñêðûòü êîìàíäó ïðîñìîòðà ñêðèïòà

end;

ActorSelectedPopup.Popup(CurrentMouseCoords.X, CurrentMouseCoords.Y);

end;

EDC_RtClickWindow:

begin

//ShowMessage('Right clicked on camera window');

end;

EDC_RtClickWindowCanAdd:

begin

ViewportPopup.Popup(CurrentMouseCoords.X, CurrentMouseCoords.Y);

// ShowMessage('Right clicked on camera window with the option to add');

end;

EDC_MapChange:

begin

//ShowMessage('Map geometry changed');

end;

end;

Callback.text := IntToStr(Value - 32);

end;

procedure TfrmMain.InstallOpenGLDrv1Click(Sender: TObject);

if MessageBox(Handle, PChar(strInstallEnhancements), 'Install extensions?',

MB_OKCANCEL + MB_ICONQUESTION + MB_TOPMOST) = ID_OK then

begin

var DXIniFile := TIniFile.Create(ExtractFilePath(ParamStr(0)) + GameIniFile);

try // make required changes to DeusEx.ini file.

with DXIniFile do

begin

WriteString('Engine.Engine', 'EditorEngine', 'EditorPatch.EditorPatchEngine');

WriteString('Engine.Engine', 'EditorRender', 'OpenGLDrv.OpenGLRender');

WriteString('Engine.Engine', 'EditorClient', 'OpenGLDrv.OpenGLWindowsClient');

WriteString('Engine.Engine', 'WindowedRenderDevice', 'OpenGLDrv.OpenGLRenderDevice');

WriteString('Engine.Engine', 'Canvas', 'EditorPatch.EditorCanvas'); // white font color in viewports

end;

finally

DXIniFile.Free();

end;

end;

end;

procedure TfrmMain.CreateViewportPanels();

// Ñîçäàåì ïàíåëè è äîáàâëÿåì èõ íà ôîðìó

for var i := 0 to High(ViewportPanels) do

begin

ViewportPanels[i] := TEsPanel.Create(ViewportsPanel);

ViewportPanels[i].Parent := ViewportsPanel;

ViewportPanels[i].FrameStyle := TExFrameStyle.Flat;

ViewportPanels[i].ParentColor := False;

ViewportPanels[i].FrameColor := clGray;

end;

end;

procedure TfrmMain.CreateViewports();

for var i := 0 to High(ViewPorts) do

begin

ViewPorts[i] := TfrmViewport.Create(ViewportPanels[i]);

ViewPorts[i].Parent := ViewportPanels[i];

ViewPorts[i].Align := alClient;

ViewPorts[i].sbMaxMinVP.HelpContext := i;

ViewPorts[i].Show();

end;

end;

procedure TfrmMain.FitViewportsToWindow(SelectedPanelIndex: Integer = -1);

LeftPanelWidth, RightPanelWidth: Integer;

PanelHeight: Integer;

i: Integer;

if (SelectedPanelIndex >= 0) and (SelectedPanelIndex < Length(ViewportPanels)) then

begin

// Ðàçâîðà÷èâàåì âûáðàííóþ ïàíåëü íà âñþ îáëàñòü

for i := 0 to High(ViewportPanels) do

begin

if i = SelectedPanelIndex then

begin

ViewportPanels[i].SetBounds(0, 0, ViewportsPanel.ClientWidth, ViewportsPanel.ClientHeight);

ViewportPanels[i].Visible := True;

CurrentExpandedViewport := SelectedPanelIndex;

ServerCmd('LEVEL REDRAW');

end

else

ViewportPanels[i].Visible := False;

end;

Exit;

end;

// Åñëè ïàíåëü íå âûáðàíà, îòîáðàæàåì â îáû÷íîì ðåæèìå

PanelHeight := ViewportsPanel.ClientHeight div 2;

case cmbLeftPanelsWidthRatio.ItemIndex of

0: LeftPanelsWidthRatio := 0.5;

1: LeftPanelsWidthRatio := 0.65;

2: LeftPanelsWidthRatio := 0.75;

end;

LeftPanelWidth := Round(ViewportsPanel.ClientWidth * LeftPanelsWidthRatio);

RightPanelWidth := ViewportsPanel.ClientWidth - LeftPanelWidth;

// Ðàñïðåäåëåíèå ïàíåëåé

ViewportPanels[0].SetBounds(0, 0, LeftPanelWidth, PanelHeight);

ViewportPanels[0].Visible := True;

ViewportPanels[1].SetBounds(LeftPanelWidth, 0, RightPanelWidth, PanelHeight);

ViewportPanels[1].Visible := True;

ViewportPanels[2].SetBounds(0, PanelHeight, LeftPanelWidth, PanelHeight);

ViewportPanels[2].Visible := True;

ViewportPanels[3].SetBounds(LeftPanelWidth, PanelHeight, RightPanelWidth, PanelHeight);

ViewportPanels[3].Visible := True;

end;

procedure TfrmMain.DisableMouseAcceleration();

MouseParams: array[0..2] of Integer;

// Ïîëó÷àåì òåêóùèå ïàðàìåòðû ìûøè

SystemParametersInfo(SPI_GETMOUSE, 0, @MouseParams, 0);

// Îòêëþ÷àåì óñêîðåíèå ìûøè (äåëàåì åãî ëèíåéíûì)

MouseParams[0] := 0; // Óñêîðåíèå (threshold 1)

MouseParams[1] := 0; // Óñêîðåíèå (threshold 2)

MouseParams[2] := 0; // Ñêîðîñòü ìûøè

// Óñòàíàâëèâàåì íîâûå ïàðàìåòðû ìûøè

SystemParametersInfo(SPI_SETMOUSE, 0, @MouseParams, SPIF_SENDCHANGE);

end;

procedure TfrmMain.edit_ActorCopyExecute(Sender: TObject);

ServerCmd('EDIT COPY"');

end;

procedure TfrmMain.edit_ActorCutExecute(Sender: TObject);

ServerCmd('EDIT CUT');

end;

procedure TfrmMain.edit_ActorDeleteExecute(Sender: TObject);

ServerCmd('ACTOR DELETE');

end;

procedure TfrmMain.edit_ActorDuplicateExecute(Sender: TObject);

ServerCmd('ACTOR DUPLICATE');

end;

procedure TfrmMain.edit_ActorPasteExecute(Sender: TObject);

ServerCmd('EDIT PASTE');

end;

procedure TfrmMain.edit_RedoExecute(Sender: TObject);

ServerCmd('TRANSACTION REDO');

end;

procedure TfrmMain.edit_SearchActorsExecute(Sender: TObject);

var bEditorPatchPresent := CheckEditorPatch();

if bEditorPatchPresent = True then

ServerCmd('ACTOR SEARCH');

end;

procedure TfrmMain.edit_SelectAllActorsExecute(Sender: TObject);

ServerCmd('ACTOR SELECT ALL');

end;

procedure TfrmMain.edit_SelectInsideBrushExecute(Sender: TObject);

ServerCmd('ACTOR SELECT INSIDE');

end;

procedure TfrmMain.edit_SelectInvertExecute(Sender: TObject);

ServerCmd('ACTOR SELECT INVERT');

end;

procedure TfrmMain.edit_SelectNoneActorsExecute(Sender: TObject);

ServerCmd('SELECT NONE');

end;

procedure TfrmMain.edit_SelectOfAttachTagExecute(Sender: TObject);

uEditorLoader.SelectOfAttachTag(vp_SelectedClassAttachTag);

end;

procedure TfrmMain.edit_SelectOfBarkBindNameExecute(Sender: TObject);

uEditorLoader.SelectOfBarkBindName(vp_SelectedClassBarkBindName);

end;

procedure TfrmMain.edit_SelectOfBindNameExecute(Sender: TObject);

uEditorLoader.SelectOfBindName(vp_SelectedClassBindName);

end;

procedure TfrmMain.edit_SelectOfClassExecute(Sender: TObject);

uEditorLoader.SelectActorsOfClass(vp_SelectedClassStr);

end;

procedure TfrmMain.edit_SelectOfEventExecute(Sender: TObject);

uEditorLoader.SelectOfEvent(vp_SelectedClassEvent);

end;

procedure TfrmMain.edit_SelectOfSubClassExecute(Sender: TObject);

uEditorLoader.SelectOfSubClass(vp_SelectedClassStr);

end;

procedure TfrmMain.edit_SelectOfTagExecute(Sender: TObject);

uEditorLoader.SelectOfTag(vp_SelectedClassTag);