unit UBaseForm;

Messages,

Classes,

Graphics,

Controls,

Forms;

TFormKind = (fkEditor, fkUML, fkGUI, fkFXGUI, fkTextDiff, fkBrowser, fkExplorer, fkStructogram, fkSequence);

{ TFForm }

TFForm = class(TForm)

procedure WMSize(var Msg: TMessage); message WM_SIZE;

procedure FormMouseActivate(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y, HitTest: Integer;

var MouseActivate: TMouseActivate);

procedure FormActivate(Sender: TObject);

procedure FormDeactivate(Sender: TObject);

private

FModified: Boolean;

FNumber: Integer;

FPathname: string;

FPartner: TFForm;

FFormTag: Integer;

FLockEnter: Boolean;

FHasFocus : Boolean;

FAlreadySavedAs: Boolean;

class var FFormNumber: Integer; // class attribute

protected

procedure FormClose(Sender: TObject; var AAction: TCloseAction); virtual;

procedure UpdateState; virtual;

function GetModified: Boolean; virtual;

procedure SetModified(Modified: Boolean); virtual;

public

constructor Create(AOwner: TComponent); override;

procedure SetOptions; virtual;

function GetState: string; virtual;

function GetFormType: string; virtual;

function IsDefaultFilename: Boolean;

procedure OpenWindow(Sender: TObject); virtual;

procedure CollectClasses(StringList: TStringList); virtual;

procedure ToMainPanel;

procedure SetActiveControl(AControl: TWinControl);

function MyActiveControl: TWinControl;

procedure SaveIn(const Dir: string); virtual;

function GetSaveAsName: string; virtual;

procedure Save(WithBackup: Boolean); virtual;

procedure DoExport; virtual;

procedure Print; virtual;

procedure Search; virtual;

procedure SearchAgain; virtual;

procedure Replace; virtual;

procedure Undo; virtual;

procedure Redo; virtual;

procedure CutToClipboard; virtual;

procedure CopyToClipboard; virtual;

procedure PasteFromClipboard; virtual;

procedure SetFont(AFont: TFont); virtual;

function GetFont: TFont; virtual;

procedure SetFontSize(Delta: Integer); virtual;

procedure Enter(Sender: TObject); virtual;

procedure SetState(var State: string); virtual;

function GetAllPathnames: TStringList; virtual;

function GetAllClassnames: TStringList; virtual;

procedure ChangeStyle; virtual;

procedure DPIChanged; virtual;

property Number: Integer read FNumber;

property HasFocus: Boolean read FHasFocus;

property Pathname: string read FPathname write FPathname;

property Partner: TFForm read FPartner write FPartner;

property FormTag: Integer read FFormTag write FFormTag;

property LockEnter: Boolean read FLockEnter write FLockEnter;

property AlreadySavedAs: Boolean read FAlreadySavedAs write FAlreadySavedAs;

property Modified: Boolean read GetModified write SetModified;

end;

Windows,

SysUtils,

JvGnugettext,

UStringRessources,

UUtils,

UJava,

UConfiguration,

UTabObject;

constructor TFForm.Create(AOwner: TComponent);

inherited Create(AOwner);

FPartner:= nil;

Inc(FFormNumber);

FNumber:= FFormNumber;

FAlreadySavedAs:= False;

FLockEnter:= False;

OnClose:= FormClose;

OnMouseActivate:= FormMouseActivate;

ParentFont:= False;

// this garanties, that the form is scaled to effectiv dpi

// scaling is not done fore every position, see: procedure TCustomForm.SetWindowToMonitor

// SetBounds calls TCustomForm.WMDpiChanged

Position:= poScreenCenter;

end;

procedure TFForm.FormActivate(Sender: TObject);

FHasFocus := True;

end;

procedure TFForm.FormClose(Sender: TObject; var AAction: TCloseAction);

try

FJava.DeleteTabAndWindow(Number);

if not IsDefaultFilename and (FJava.ProjectFilename = '') then

FJava.RearrangeFileHistory(Pathname);

finally

FJava.TDIFormsList.Remove(Self);

if Assigned(FJava.myTabBar.SelectedTab) and Assigned(FJava.myTabBar.SelectedTab.Data)

then FJava.ActiveTDIChild:= TTabObject(FJava.myTabBar.SelectedTab.Data).Form

else FJava.ActiveTDIChild:= nil;

AAction:= caFree;

end;

end;

procedure TFForm.FormDeactivate(Sender: TObject);

FHasFocus := False;

end;

procedure TFForm.FormMouseActivate(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y, HitTest: Integer;

var MouseActivate: TMouseActivate);

if (FJava.ActiveTDIChild <> Self) or (FJava.ActiveTool > 0) then

Enter(Self);

MouseActivate:= maActivate;

end;

procedure TFForm.Save(WithBackup: Boolean);

// in some descendet classes Save isn't needed

end;

procedure TFForm.SaveIn(const Dir: string);

// nothing to do

end;

function TFForm.GetSaveAsName: string;

Result:= '';

end;

function TFForm.GetFormType: string;

Result:= '';

end;

procedure TFForm.Print;

inherited Print; // because of GUI-Formular-Print

end;

function TFForm.GetState: string;

Result:= 'W' + IntToStr(Left) + ')' + IntToStr(Top) + ')' +

IntToStr(Width) + ')' + IntToStr(Height) + ')' +

WindowStateToStr(WindowState) + ')';

end;

procedure TFForm.SetState(var State: string);

var Posi: Integer;

if Copy(State, 1, 1) = 'W' then begin

Posi:= Pos(')', State); Delete(State, 1, Posi);

Posi:= Pos(')', State); Delete(State, 1, Posi);

Posi:= Pos(')', State); Delete(State, 1, Posi);

Posi:= Pos(')', State); Delete(State, 1, Posi);

Posi:= Pos(')', State);

WindowState:= StrToWindowState(Copy(State, 1, Posi - 1));

end;

end;

procedure TFForm.SetFont(AFont: TFont);

Font.Assign(AFont);

end;

function TFForm.GetFont: TFont;

Result:= Font;

end;

procedure TFForm.SetFontSize(Delta: Integer);

Font.Size:= Font.Size + Delta;

if Font.Size < 6 then Font.Size:= 6;

SetFont(Font);

end;

procedure TFForm.SetOptions;

// nothing to do

end;

procedure TFForm.Search;

// nothing to do

end;

procedure TFForm.SearchAgain;

// nothing to do

end;

procedure TFForm.Replace;

// nothing to do

end;

procedure TFForm.CutToClipboard;

// nothing to do

end;

procedure TFForm.CopyToClipboard;

// nothing to do

end;

procedure TFForm.PasteFromClipboard;

// nothing to do

end;

procedure TFForm.Undo;

// nothing to do

end;

procedure TFForm.Redo;

// nothing to do

end;

procedure TFForm.OpenWindow(Sender: TObject);

var Animation: Boolean;

LockWindow(Self.Handle);

try

try

Animation:= GetAnimation;

if Animation then

SetAnimation(False);

if Parent = FJava.MainPanel then begin

if Left > FJava.Width - 200 then

Left:= FJava.Width - 200;

end;

if not Visible then begin

Visible:= True;

FJava.AddToWindowMenuAndTabBar(Number, OpenWindow, Self);

end;

if Animation then

SetAnimation(True);

BringToFront;

Enter(Self);

except

on E: Exception do

FConfiguration.Log('OpenWindow: ' + Pathname, E);

end;

finally

UnlockWindow;

end;

end;

procedure TFForm.Enter(Sender: TObject);

FJava.ActiveTool:= -1;

FJava.SetSelectedTabAndWindow(Number);

FJava.MyTabBarColorize;

FJava.ActiveTDIChild:= Self;

FJava.UpdateMenuItems(Self);

ChangeStyle;

end;

procedure TFForm.UpdateState;

with FJava do begin

DisableMI(MIUndo);

DisableTB(TBUndo);

DisableMI(MIRedo);

DisableTB(TBRedo);

DisableMI(MICopyRTF);

DisableMI(MICopyHTML);

DisableMI(MICopyHTMLAsText);

DisableMI(MICopyNumbered);

DisableMI(MICopyRtfNumbered);

end;

end;

procedure TFForm.SetModified(Modified: Boolean);

FModified:= Modified;

FJava.TabModified(Number, Modified);

end;

function TFForm.GetModified: Boolean;

Result:= FModified;

end;

procedure TFForm.ChangeStyle;

// nothing to do

end;

procedure TFForm.DPIChanged;

ScaleForCurrentDPI;

end;

procedure TFForm.DoExport;

// nothing to do

end;

procedure TFForm.CollectClasses(StringList: TStringList);

// nothing to do

end;

function TFForm.IsDefaultFilename: Boolean;

var Posi: Integer; Str, Default: string;

Result:= False;

if Assigned(FConfiguration) then

if not FConfiguration.AcceptDefaultname then begin

Default:= UpperCase(_(LNGFile));

Str:= UpperCase(ExtractFileName(Pathname));

if Copy(Str, 1, Length(Default)) = Default then begin

Delete(Str, 1, Length(Default));

Posi:= Pos('.', Str);

Delete(Str, Posi, Length(Str));

Result:= TryStrToInt(Str, Posi);

end

else

Result:= False;

end;

end;

function TFForm.GetAllPathnames: TStringList;

Result:= TStringList.Create;

end;

function TFForm.GetAllClassnames: TStringList;

Result:= TStringList.Create;

end;

procedure TFForm.WMSize(var Msg: TMessage);

inherited;

if Msg.WParam = SIZE_MAXIMIZED then

FConfiguration.WindowStateMaximized:= True;

end;

procedure TFForm.ToMainPanel;

Align:= alClient;

BorderStyle:= bsNone;

BorderIcons:= [];

Parent:= FJava.MainPanel;

end;

function TFForm.MyActiveControl: TWinControl;

Result:= Application.MainForm.ActiveControl;

end;

procedure TFForm.SetActiveControl(AControl: TWinControl);

if Assigned(Parent) then

Application.MainForm.ActiveControl:= AControl;

end;

TFForm.FFormNumber:= 0;

end.