mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-13 07:49:25 +02:00
MG: new IDE window layout system
git-svn-id: trunk@839 -
This commit is contained in:
lazarus
parent
b51eaa2182
commit
357b2f44d7
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -126,6 +126,7 @@ ide/formeditor.pp svneol=native#text/pascal
|
||||
ide/global.inc svneol=native#text/pascal
|
||||
ide/global.pp svneol=native#text/pascal
|
||||
ide/idecomp.pp svneol=native#text/pascal
|
||||
ide/ideoptiondefs.pas svneol=native#text/pascal
|
||||
ide/ideprocs.pp svneol=native#text/pascal
|
||||
ide/include/freebsd/lazconf.inc svneol=native#text/pascal
|
||||
ide/include/ide.inc svneol=native#text/pascal
|
||||
|
||||
790
ide/ideoptiondefs.pas
Normal file
790
ide/ideoptiondefs.pas
Normal file
@ -0,0 +1,790 @@
|
||||
{ $Id$ }
|
||||
{
|
||||
/***************************************************************************
|
||||
ideoptionsdefs.pp - Toolbar
|
||||
-----------------------------
|
||||
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
/***************************************************************************
|
||||
* *
|
||||
* This program is free software; you can redistribute it and/or modify *
|
||||
* it under the terms of the GNU General Public License as published by *
|
||||
* the Free Software Foundation; either version 2 of the License, or *
|
||||
* (at your option) any later version. *
|
||||
* *
|
||||
***************************************************************************/
|
||||
}
|
||||
unit IDEOptionDefs;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, XMLCfg, Forms, Controls, StdCtrls, Buttons;
|
||||
|
||||
const
|
||||
DefaultMainIDEName = 'MainIDE';
|
||||
DefaultSourceNoteBookName = 'SourceNotebook';
|
||||
DefaultMessagesViewName = 'MessagesView';
|
||||
|
||||
type
|
||||
{ TIDEWindowLayout stores information about the position, min/maximized state
|
||||
and similar things for an IDE window or dialog, like the source editor,
|
||||
the object inspector, the main bar or the message view.
|
||||
}
|
||||
TIDEWindowPlacement = (
|
||||
iwpUseWindowManagerSetting, // leave window position, where window manager
|
||||
// creates the window
|
||||
iwpDefault, // set window to the default position
|
||||
iwpRestoreWindowGeometry, // save window geometry at end and restore it
|
||||
// at start
|
||||
iwpDocked, // dock into other IDE window
|
||||
iwpCustomPosition // set window to custom position
|
||||
);
|
||||
TIDEWindowPlacements = set of TIDEWindowPlacement;
|
||||
TIDEWindowDockMode = (iwdmDefault, iwdmLeft, iwdmRight, iwdmTop, iwdmBottom);
|
||||
TIDEWindowDockModes = set of TIDEWindowDockMode;
|
||||
TIDEWindowState = (iwsNormal, iwsMaximized, iwsMinimized, iwsHidden);
|
||||
TIDEWindowStates = set of TIDEWindowState;
|
||||
|
||||
TIDEWindowLayout = class;
|
||||
TOnGetDefaultIDEWindowPos = procedure(Sender: TIDEWindowLayout;
|
||||
var Bounds: TRect) of object;
|
||||
TOnApplyIDEWindowLayout = procedure(Layout: TIDEWindowLayout) of object;
|
||||
|
||||
TIDEWindowLayout = class
|
||||
private
|
||||
fWindowPlacement: TIDEWindowPlacement;
|
||||
fWindowPlacementsAllowed: TIDEWindowPlacements;
|
||||
fLeft: integer;
|
||||
fTop: integer;
|
||||
fWidth: integer;
|
||||
fHeight: integer;
|
||||
fWindowState: TIDEWindowState;
|
||||
fWindowStatesAllowed: TIDEWindowStates;
|
||||
fForm: TForm;
|
||||
fDockParent: string;
|
||||
fDockChilds: TStringList;
|
||||
fDockMode: TIDEWindowDockMode;
|
||||
fDockModesAllowed: TIDEWindowDockModes;
|
||||
fFormID: string;
|
||||
fOnGetDefaultIDEWindowPos: TOnGetDefaultIDEWindowPos;
|
||||
fOnApply: TOnApplyIDEWindowLayout;
|
||||
fDefaultWindowPlacement: TIDEWindowPlacement;
|
||||
function GetFormID: string;
|
||||
procedure SetFormID(const AValue: string);
|
||||
procedure SetOnGetDefaultIDEWindowPos(const AValue: TOnGetDefaultIDEWindowPos);
|
||||
procedure SetDockModesAllowed(const AValue: TIDEWindowDockModes);
|
||||
procedure SetWindowPlacementsAllowed(const AValue: TIDEWindowPlacements);
|
||||
procedure SetWindowStatesAllowed(const AValue: TIDEWindowStates);
|
||||
procedure SetDockMode(const AValue: TIDEWindowDockMode);
|
||||
procedure SetDockParent(const AValue: string);
|
||||
procedure SetForm(const AValue: TForm);
|
||||
procedure SetWindowState(const AValue: TIDEWindowState);
|
||||
procedure SetLeft(const AValue: integer);
|
||||
procedure SetTop(const AValue: integer);
|
||||
procedure SetWidth(const AValue: integer);
|
||||
procedure SetHeight(const AValue: integer);
|
||||
procedure SetWindowPlacement(const AValue: TIDEWindowPlacement);
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
procedure Clear;
|
||||
procedure Apply;
|
||||
procedure GetCurrentPosition;
|
||||
procedure Assign(Layout: TIDEWindowLayout);
|
||||
procedure ReadCurrentCoordinates;
|
||||
procedure LoadFromXMLConfig(XMLConfig: TXMLConfig; const Path: string);
|
||||
procedure SaveToXMLConfig(XMLConfig: TXMLConfig; const Path: string);
|
||||
function CustomCoordinatesAreValid: boolean;
|
||||
property FormID: string read GetFormID write SetFormID;
|
||||
property WindowPlacement: TIDEWindowPlacement
|
||||
read fWindowPlacement write SetWindowPlacement;
|
||||
property WindowPlacementsAllowed: TIDEWindowPlacements
|
||||
read fWindowPlacementsAllowed write SetWindowPlacementsAllowed;
|
||||
property DefaultWindowPlacement: TIDEWindowPlacement
|
||||
read fDefaultWindowPlacement write fDefaultWindowPlacement;
|
||||
property Left: integer read fLeft write SetLeft;
|
||||
property Top: integer read fTop write SetTop;
|
||||
property Width: integer read fWidth write SetWidth;
|
||||
property Height: integer read fHeight write SetHeight;
|
||||
property WindowState: TIDEWindowState
|
||||
read fWindowState write SetWindowState;
|
||||
property WindowStatesAllowed: TIDEWindowStates
|
||||
read fWindowStatesAllowed write SetWindowStatesAllowed;
|
||||
property Form: TForm read fForm write SetForm;
|
||||
property DockParent: string
|
||||
read fDockParent write SetDockParent; // for format see GetFormId
|
||||
property DockMode: TIDEWindowDockMode read fDockMode write SetDockMode;
|
||||
property DockModesAllowed: TIDEWindowDockModes
|
||||
read fDockModesAllowed write SetDockModesAllowed;
|
||||
property DockChilds: TStringList read fDockChilds; // list of FormIDs
|
||||
property OnGetDefaultIDEWindowPos: TOnGetDefaultIDEWindowPos
|
||||
read fOnGetDefaultIDEWindowPos write SetOnGetDefaultIDEWindowPos;
|
||||
property OnApply: TOnApplyIDEWindowLayout read fOnApply write fOnApply;
|
||||
end;
|
||||
|
||||
TIDEWindowLayoutList = class(TList)
|
||||
private
|
||||
function GetItems(Index: Integer): TIDEWindowLayout;
|
||||
procedure SetItems(Index: Integer; const AValue: TIDEWindowLayout);
|
||||
public
|
||||
procedure Clear; override;
|
||||
procedure Delete(Index: Integer);
|
||||
procedure ApplyAll;
|
||||
procedure StoreWindowPositions;
|
||||
procedure Assign(SrcList: TIDEWindowLayoutList);
|
||||
function IndexOf(const FormID: string): integer;
|
||||
function ItemByForm(AForm: TForm): TIDEWindowLayout;
|
||||
function ItemByFormID(const FormID: string): TIDEWindowLayout;
|
||||
property Items[Index: Integer]: TIDEWindowLayout
|
||||
read GetItems write SetItems; default;
|
||||
procedure LoadFromXMLConfig(XMLConfig: TXMLConfig; const Path: string);
|
||||
procedure SaveToXMLConfig(XMLConfig: TXMLConfig; const Path: string);
|
||||
end;
|
||||
|
||||
// ---------------------------------------------------------------------------
|
||||
TOnApplyWindowPos = procedure(Layout: TIDEWindowLayout) of object;
|
||||
|
||||
TIDEWindowSetupLayoutComponent = class(TGroupBox)
|
||||
RestoreWindowGeometryRadioButton: TRadioButton;
|
||||
DefaultRadioButton: TRadioButton;
|
||||
CustomPositionRadioButton: TRadioButton;
|
||||
LeftLabel: TLabel;
|
||||
LeftEdit: TEdit;
|
||||
TopLabel: TLabel;
|
||||
TopEdit: TEdit;
|
||||
WidthLabel: TLabel;
|
||||
WidthEdit: TEdit;
|
||||
HeightLabel: TLabel;
|
||||
HeightEdit: TEdit;
|
||||
UseWindowManagerSettingRadioButton: TRadioButton;
|
||||
DockedRadioButton: TRadioButton;
|
||||
ApplyButton: TButton;
|
||||
GetWindowPositionButton: TButton;
|
||||
procedure RadioButtonClick(Sender: TObject);
|
||||
procedure ApplyButtonClick(Sender: TObject);
|
||||
procedure GetWindowPositionButtonClick(Sender: TObject);
|
||||
private
|
||||
fOnApplyWindowPos: TOnApplyWindowPos;
|
||||
fLayout: TIDEWindowLayout;
|
||||
fUpdateRadioButtons: boolean;
|
||||
function GetLayout: TIDEWindowLayout;
|
||||
procedure SetLayout(const AValue: TIDEWindowLayout);
|
||||
function GetPlacementRadioButtons(APlacement: TIDEWindowPlacement
|
||||
): TRadioButton;
|
||||
procedure SetPlacementRadioButtons(APlacement: TIDEWindowPlacement;
|
||||
const AValue: TRadioButton);
|
||||
procedure LoadFrom(AnLayout: TIDEWindowLayout);
|
||||
public
|
||||
constructor Create(TheOwner: TComponent); override;
|
||||
procedure Save;
|
||||
procedure SaveTo(AnLayout: TIDEWindowLayout);
|
||||
property Layout: TIDEWindowLayout read GetLayout write SetLayout;
|
||||
property PlacementRadioButtons[APlacement: TIDEWindowPlacement]: TRadioButton
|
||||
read GetPlacementRadioButtons write SetPlacementRadioButtons;
|
||||
property OnApplyWindowPos: TOnApplyWindowPos
|
||||
read fOnApplyWindowPos write fOnApplyWindowPos;
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
IDEWindowDockModeNames: array[TIDEWindowDockMode] of string = (
|
||||
'Default', 'Left', 'Right', 'Top', 'Bottom'
|
||||
);
|
||||
IDEWindowPlacementNames: array[TIDEWindowPlacement] of string = (
|
||||
'UseWindowManagerSetting',
|
||||
'Default',
|
||||
'RestoreWindowGeometry',
|
||||
'Docked',
|
||||
'CustomPosition'
|
||||
);
|
||||
IDEWindowStateNames: array[TIDEWindowState] of string = (
|
||||
'Normal', 'Maximized', 'Minimized', 'Hidden'
|
||||
);
|
||||
|
||||
function StrToIDEWindowDockMode(const s: string): TIDEWindowDockMode;
|
||||
function StrToIDEWindowPlacement(const s: string): TIDEWindowPlacement;
|
||||
function StrToIDEWindowState(const s: string): TIDEWindowState;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
function StrToIDEWindowDockMode(const s: string): TIDEWindowDockMode;
|
||||
begin
|
||||
for Result:=Low(TIDEWindowDockMode) to High(TIDEWindowDockMode) do
|
||||
if AnsiCompareText(s,IDEWindowDockModeNames[Result])=0 then exit;
|
||||
Result:=iwdmDefault;
|
||||
end;
|
||||
|
||||
function StrToIDEWindowPlacement(const s: string): TIDEWindowPlacement;
|
||||
begin
|
||||
for Result:=Low(TIDEWindowPlacement) to High(TIDEWindowPlacement) do
|
||||
if AnsiCompareText(s,IDEWindowPlacementNames[Result])=0 then exit;
|
||||
Result:=iwpDefault;
|
||||
end;
|
||||
|
||||
function StrToIDEWindowState(const s: string): TIDEWindowState;
|
||||
begin
|
||||
for Result:=Low(TIDEWindowState) to High(TIDEWindowState) do
|
||||
if AnsiCompareText(s,IDEWindowStateNames[Result])=0 then exit;
|
||||
Result:=iwsNormal;
|
||||
end;
|
||||
|
||||
{ TIDEWindowLayout }
|
||||
|
||||
constructor TIDEWindowLayout.Create;
|
||||
begin
|
||||
inherited Create;
|
||||
fDockChilds:=TStringList.Create;
|
||||
fDefaultWindowPlacement:=iwpDefault;
|
||||
Clear;
|
||||
fWindowPlacementsAllowed:=
|
||||
[Low(TIDEWindowPlacement)..High(TIDEWindowPlacement)];
|
||||
fWindowStatesAllowed:=[Low(TIDEWindowState)..High(TIDEWindowState)];
|
||||
fDockModesAllowed:=[Low(TIDEWindowDockMode)..High(TIDEWindowDockMode)];
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.LoadFromXMLConfig(XMLConfig: TXMLConfig;
|
||||
const Path: string);
|
||||
var
|
||||
P, DockChild: string;
|
||||
DockChildCount, i: integer;
|
||||
begin
|
||||
// set all values to default
|
||||
Clear;
|
||||
// read settings
|
||||
// build path
|
||||
P:=GetFormID;
|
||||
if P='' then exit;
|
||||
P:=Path+P+'/';
|
||||
// placement
|
||||
fWindowPlacement:=StrToIDEWindowPlacement(XMLConfig.GetValue(
|
||||
P+'WindowPlacement/Value',IDEWindowPlacementNames[fWindowPlacement]));
|
||||
// custom position
|
||||
fLeft:=XMLConfig.GetValue(P+'CustomPosition/Left',fLeft);
|
||||
fTop:=XMLConfig.GetValue(P+'CustomPosition/Top',fTop);
|
||||
fWidth:=XMLConfig.GetValue(P+'CustomPosition/Width',fWidth);
|
||||
fHeight:=XMLConfig.GetValue(P+'CustomPosition/Height',fHeight);
|
||||
// state
|
||||
fWindowState:=StrToIDEWindowState(XMLConfig.GetValue(
|
||||
P+'WindowState/Value',IDEWindowStateNames[fWindowState]));
|
||||
// docking
|
||||
fDockParent:=XMLConfig.GetValue(P+'Docking/Parent','');
|
||||
DockChildCount:=XMLConfig.GetValue(P+'Docking/ChildCount',0);
|
||||
for i:=0 to DockChildCount-1 do begin
|
||||
DockChild:=XMLConfig.GetValue(P+'Docking/Child'+IntToStr(i),'');
|
||||
if DockChild<>'' then begin
|
||||
fDockChilds.Add(DockChild);
|
||||
end;
|
||||
end;
|
||||
fDockMode:=StrToIDEWindowDockMode(XMLConfig.GetValue(
|
||||
P+'DockMode/Value',IDEWindowDockModeNames[fDockMode]));
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SaveToXMLConfig(XMLConfig: TXMLConfig;
|
||||
const Path: string);
|
||||
var
|
||||
P: string;
|
||||
i: integer;
|
||||
begin
|
||||
// build path
|
||||
P:=GetFormID;
|
||||
if P='' then exit;
|
||||
P:=Path+P+'/';
|
||||
// placement
|
||||
XMLConfig.SetValue(P+'WindowPlacement/Value',
|
||||
IDEWindowPlacementNames[fWindowPlacement]);
|
||||
// custom position
|
||||
XMLConfig.SetValue(P+'CustomPosition/Left',fLeft);
|
||||
XMLConfig.SetValue(P+'CustomPosition/Top',fTop);
|
||||
XMLConfig.SetValue(P+'CustomPosition/Width',fWidth);
|
||||
XMLConfig.SetValue(P+'CustomPosition/Height',fHeight);
|
||||
// state
|
||||
XMLConfig.SetValue(P+'WindowState/Value',IDEWindowStateNames[fWindowState]);
|
||||
// docking
|
||||
XMLConfig.SetValue(P+'Docking/Parent',fDockParent);
|
||||
XMLConfig.SetValue(P+'Docking/ChildCount',fDockChilds.Count);
|
||||
for i:=0 to fDockChilds.Count-1 do begin
|
||||
XMLConfig.SetValue(P+'Docking/Child'+IntToStr(i),fDockChilds[i]);
|
||||
end;
|
||||
XMLConfig.SetValue(P+'DockMode/Value',IDEWindowDockModeNames[fDockMode]);
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetWindowPlacement(
|
||||
const AValue: TIDEWindowPlacement);
|
||||
begin
|
||||
fWindowPlacement:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetHeight(const AValue: integer);
|
||||
begin
|
||||
fHeight:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetLeft(const AValue: integer);
|
||||
begin
|
||||
fLeft:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetTop(const AValue: integer);
|
||||
begin
|
||||
fTop:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetWidth(const AValue: integer);
|
||||
begin
|
||||
fWidth:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetWindowState(const AValue: TIDEWindowState);
|
||||
begin
|
||||
fWindowState:=AValue;
|
||||
end;
|
||||
|
||||
function TIDEWindowLayout.CustomCoordinatesAreValid: boolean;
|
||||
begin
|
||||
Result:=(Width>0) and (Height>0) and (Left>10-Width) and (Top>10-Height);
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetForm(const AValue: TForm);
|
||||
begin
|
||||
if fForm=AValue then exit;
|
||||
fForm:=AValue;
|
||||
end;
|
||||
|
||||
function TIDEWindowLayout.GetFormID: string;
|
||||
begin
|
||||
if FForm=nil then
|
||||
Result:=fFormID
|
||||
else
|
||||
Result:=FForm.Name;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetDockParent(const AValue: string);
|
||||
begin
|
||||
fDockParent:=AValue;
|
||||
end;
|
||||
|
||||
destructor TIDEWindowLayout.Destroy;
|
||||
begin
|
||||
fDockChilds.Free;
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetDockMode(const AValue: TIDEWindowDockMode);
|
||||
begin
|
||||
fDockMode:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetWindowStatesAllowed(
|
||||
const AValue: TIDEWindowStates);
|
||||
begin
|
||||
fWindowStatesAllowed:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetWindowPlacementsAllowed(
|
||||
const AValue: TIDEWindowPlacements);
|
||||
begin
|
||||
fWindowPlacementsAllowed:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetDockModesAllowed(
|
||||
const AValue: TIDEWindowDockModes);
|
||||
begin
|
||||
fDockModesAllowed:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetOnGetDefaultIDEWindowPos(
|
||||
const AValue: TOnGetDefaultIDEWindowPos);
|
||||
begin
|
||||
fOnGetDefaultIDEWindowPos:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.Clear;
|
||||
begin
|
||||
fWindowPlacement:=fDefaultWindowPlacement;
|
||||
fLeft:=0;
|
||||
fTop:=0;
|
||||
fWidth:=0;
|
||||
fHeight:=0;
|
||||
fWindowState:=iwsNormal;
|
||||
fDockParent:='';
|
||||
fDockChilds.Clear;
|
||||
fDockMode:=iwdmDefault;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.SetFormID(const AValue: string);
|
||||
begin
|
||||
if Form=nil then
|
||||
fFormID:=AValue;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.Apply;
|
||||
begin
|
||||
if Assigned(OnApply) then OnApply(Self);
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.ReadCurrentCoordinates;
|
||||
begin
|
||||
if Form<>nil then begin
|
||||
Left:=Form.Left;
|
||||
Top:=Form.Top;
|
||||
Width:=Form.Width;
|
||||
Height:=Form.Height;
|
||||
end else begin
|
||||
Left:=0;
|
||||
Top:=0;
|
||||
Width:=0;
|
||||
Height:=0;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.Assign(Layout: TIDEWindowLayout);
|
||||
begin
|
||||
Clear;
|
||||
fWindowPlacement:=Layout.fWindowPlacement;
|
||||
fWindowPlacementsAllowed:=Layout.fWindowPlacementsAllowed;
|
||||
fLeft:=Layout.fLeft;
|
||||
fTop:=Layout.fTop;
|
||||
fWidth:=Layout.fWidth;
|
||||
fHeight:=Layout.fHeight;
|
||||
fWindowState:=Layout.fWindowState;
|
||||
fWindowStatesAllowed:=Layout.fWindowStatesAllowed;
|
||||
fForm:=Layout.fForm;
|
||||
fDockParent:=Layout.fDockParent;
|
||||
fDockChilds.Assign(Layout.fDockChilds);
|
||||
fDockMode:=Layout.fDockMode;
|
||||
fDockModesAllowed:=Layout.fDockModesAllowed;
|
||||
fFormID:=Layout.fFormID;
|
||||
fOnGetDefaultIDEWindowPos:=Layout.fOnGetDefaultIDEWindowPos;
|
||||
fOnApply:=Layout.fOnApply;
|
||||
fDefaultWindowPlacement:=Layout.fDefaultWindowPlacement;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayout.GetCurrentPosition;
|
||||
begin
|
||||
if WindowPlacement=iwpRestoreWindowGeometry then
|
||||
ReadCurrentCoordinates;
|
||||
end;
|
||||
|
||||
{ TIDEWindowLayoutList }
|
||||
|
||||
procedure TIDEWindowLayoutList.Clear;
|
||||
var i: integer;
|
||||
begin
|
||||
for i:=0 to Count-1 do Items[i].Free;
|
||||
inherited Clear;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayoutList.Delete(Index: Integer);
|
||||
begin
|
||||
Items[Index].Free;
|
||||
inherited Delete(Index);
|
||||
end;
|
||||
|
||||
function TIDEWindowLayoutList.GetItems(Index: Integer): TIDEWindowLayout;
|
||||
begin
|
||||
Result:=TIDEWindowLayout(inherited Items[Index]);
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayoutList.SetItems(Index: Integer;
|
||||
const AValue: TIDEWindowLayout);
|
||||
begin
|
||||
Items[Index]:=AValue;
|
||||
end;
|
||||
|
||||
function TIDEWindowLayoutList.IndexOf(const FormID: string): integer;
|
||||
begin
|
||||
Result:=Count-1;
|
||||
while (Result>=0) and (FormID<>Items[Result].GetFormID) do dec(Result);
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayoutList.LoadFromXMLConfig(XMLConfig: TXMLConfig;
|
||||
const Path: string);
|
||||
var i: integer;
|
||||
begin
|
||||
for i:=0 to Count-1 do
|
||||
Items[i].LoadFromXMLConfig(XMLConfig,Path);
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayoutList.SaveToXMLConfig(XMLConfig: TXMLConfig;
|
||||
const Path: string);
|
||||
var i: integer;
|
||||
begin
|
||||
for i:=0 to Count-1 do
|
||||
Items[i].SaveToXMLConfig(XMLConfig,Path);
|
||||
end;
|
||||
|
||||
function TIDEWindowLayoutList.ItemByForm(AForm: TForm): TIDEWindowLayout;
|
||||
var i: integer;
|
||||
begin
|
||||
i:=Count-1;
|
||||
while (i>=0) do begin
|
||||
Result:=Items[i];
|
||||
if Result.Form=AForm then exit;
|
||||
dec(i);
|
||||
end;
|
||||
Result:=nil;
|
||||
end;
|
||||
|
||||
function TIDEWindowLayoutList.ItemByFormID(const FormID: string
|
||||
): TIDEWindowLayout;
|
||||
var i: integer;
|
||||
begin
|
||||
i:=IndexOf(FormID);
|
||||
if i>=0 then
|
||||
Result:=Items[i]
|
||||
else
|
||||
Result:=nil;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayoutList.ApplyAll;
|
||||
var i: integer;
|
||||
begin
|
||||
for i:=0 to Count-1 do
|
||||
Items[i].Apply;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayoutList.StoreWindowPositions;
|
||||
var i: integer;
|
||||
begin
|
||||
for i:=0 to Count-1 do
|
||||
Items[i].GetCurrentPosition;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowLayoutList.Assign(SrcList: TIDEWindowLayoutList);
|
||||
var i: integer;
|
||||
NewLayout: TIDEWindowLayout;
|
||||
begin
|
||||
Clear;
|
||||
if SrcList=nil then exit;
|
||||
for i:=0 to SrcList.Count-1 do begin
|
||||
NewLayout:=TIDEWindowLayout.Create;
|
||||
NewLayout.Assign(SrcList[i]);
|
||||
Add(NewLayout);
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TIDEWindowSetupLayoutComponent }
|
||||
|
||||
procedure TIDEWindowSetupLayoutComponent.LoadFrom(AnLayout: TIDEWindowLayout);
|
||||
var
|
||||
CurY: integer;
|
||||
APlacement: TIDEWindowPlacement;
|
||||
|
||||
procedure SetLabelAndEdit(var ALabel: TLabel; var AnEdit: TEdit;
|
||||
const ACaption: string; x, y: integer);
|
||||
begin
|
||||
if iwpCustomPosition in AnLayout.WindowPlacementsAllowed then begin
|
||||
if ALabel=nil then ALabel:=TLabel.Create(Self);
|
||||
with ALabel do begin
|
||||
Parent:=Self;
|
||||
SetBounds(x,y,45,Height);
|
||||
Caption:=ACaption;
|
||||
Visible:=true;
|
||||
end;
|
||||
if AnEdit=nil then AnEdit:=TEdit.Create(Self);
|
||||
with AnEdit do begin
|
||||
Parent:=Self;
|
||||
SetBounds(x+ALabel.Width+3,y,40,Height);
|
||||
Text:='';
|
||||
Visible:=true;
|
||||
end;
|
||||
end else begin
|
||||
FreeAndNil(ALabel);
|
||||
FreeAndNil(AnEdit);
|
||||
end;
|
||||
end;
|
||||
|
||||
const
|
||||
RadioBtnCaptions: array[TIDEWindowPlacement] of string = (
|
||||
'Use windowmanager setting',
|
||||
'Default',
|
||||
'Restore window geometry',
|
||||
'Docked',
|
||||
'Custom position'
|
||||
);
|
||||
begin
|
||||
if AnLayout=nil then exit;
|
||||
CurY:=5;
|
||||
for APlacement:=Low(TIDEWindowPlacement) to High(TIDEWindowPlacement) do begin
|
||||
if APlacement in AnLayout.WindowPlacementsAllowed then begin
|
||||
if PlacementRadioButtons[APlacement]=nil then
|
||||
PlacementRadioButtons[APlacement]:=TRadioButton.Create(Self);
|
||||
with PlacementRadioButtons[APlacement] do begin
|
||||
Parent:=Self;
|
||||
SetBounds(5,CurY,Self.ClientWidth-10,Height);
|
||||
inc(CurY,Height+2);
|
||||
OnClick:=@RadioButtonClick;
|
||||
Caption:=RadioBtnCaptions[APlacement];
|
||||
Checked:=(APlacement=AnLayout.WindowPlacement);
|
||||
Visible:=true;
|
||||
end;
|
||||
case APlacement of
|
||||
iwpCustomPosition:
|
||||
begin
|
||||
// custom window position
|
||||
SetLabelAndEdit(LeftLabel,LeftEdit,'Left:',15,CurY);
|
||||
SetLabelAndEdit(TopLabel,TopEdit,'Top:',
|
||||
LeftEdit.Left+LeftEdit.Width+15,CurY);
|
||||
inc(CurY,LeftEdit.Height+3);
|
||||
SetLabelAndEdit(WidthLabel,WidthEdit,'Width:',15,CurY);
|
||||
SetLabelAndEdit(HeightLabel,HeightEdit,'Height:',
|
||||
WidthEdit.Left+WidthEdit.Width+15,CurY);
|
||||
inc(CurY,WidthEdit.Height+3);
|
||||
if AnLayout.CustomCoordinatesAreValid then begin
|
||||
LeftEdit.Text:=IntToStr(AnLayout.Left);
|
||||
TopEdit.Text:=IntToStr(AnLayout.Top);
|
||||
WidthEdit.Text:=IntToStr(AnLayout.Width);
|
||||
HeightEdit.Text:=IntToStr(AnLayout.Height);
|
||||
end else if AnLayout.Form<>nil then begin
|
||||
LeftEdit.Text:=IntToStr(AnLayout.Form.Left);
|
||||
TopEdit.Text:=IntToStr(AnLayout.Form.Top);
|
||||
WidthEdit.Text:=IntToStr(AnLayout.Form.Width);
|
||||
HeightEdit.Text:=IntToStr(AnLayout.Form.Height);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end else begin
|
||||
if PlacementRadioButtons[APlacement]<>nil then begin
|
||||
PlacementRadioButtons[APlacement].Free;
|
||||
PlacementRadioButtons[APlacement]:=nil;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
inc(CurY,2);
|
||||
if ApplyButton=nil then ApplyButton:=TButton.Create(Self);
|
||||
with ApplyButton do begin
|
||||
Parent:=Self;
|
||||
SetBounds(5,CurY,70,Height);
|
||||
OnClick:=@ApplyButtonClick;
|
||||
Caption:='Apply';
|
||||
Visible:=true;
|
||||
end;
|
||||
if iwpCustomPosition in AnLayout.WindowPlacementsAllowed then begin
|
||||
if GetWindowPositionButton=nil then
|
||||
GetWindowPositionButton:=TButton.Create(Self);
|
||||
with GetWindowPositionButton do begin
|
||||
Parent:=Self;
|
||||
SetBounds(85,CurY,110,Height);
|
||||
OnClick:=@GetWindowPositionButtonClick;
|
||||
Caption:='Get position';
|
||||
Visible:=true;
|
||||
end;
|
||||
end;
|
||||
//inc(CurY,ApplyButton.Height+7);
|
||||
end;
|
||||
|
||||
procedure TIDEWindowSetupLayoutComponent.SaveTo(AnLayout: TIDEWindowLayout);
|
||||
var
|
||||
APlacement: TIDEWindowPlacement;
|
||||
ARadioButton: TRadioButton;
|
||||
begin
|
||||
if AnLayout=nil then exit;
|
||||
if LeftEdit<>nil then
|
||||
AnLayout.Left:=StrToIntDef(LeftEdit.Text,0);
|
||||
if TopEdit<>nil then
|
||||
AnLayout.Top:=StrToIntDef(TopEdit.Text,0);
|
||||
if WidthEdit<>nil then
|
||||
AnLayout.Width:=StrToIntDef(WidthEdit.Text,0);
|
||||
if HeightEdit<>nil then
|
||||
AnLayout.Height:=StrToIntDef(HeightEdit.Text,0);
|
||||
for APlacement:=Low(TIDEWindowPlacement) to High(TIDEWindowPlacement) do
|
||||
begin
|
||||
ARadioButton:=GetPlacementRadioButtons(APlacement);
|
||||
if (ARadioButton<>nil) and ARadioButton.Checked then
|
||||
AnLayout.WindowPlacement:=APlacement;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TIDEWindowSetupLayoutComponent.Create(TheOwner: TComponent);
|
||||
begin
|
||||
inherited Create(TheOwner);
|
||||
fUpdateRadioButtons:=false;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowSetupLayoutComponent.RadioButtonClick(Sender: TObject);
|
||||
var APlacement: TIDEWindowPlacement;
|
||||
ARadioButton: TRadioButton;
|
||||
begin
|
||||
if fUpdateRadioButtons then exit;
|
||||
fUpdateRadioButtons:=true;
|
||||
for APlacement:=Low(TIDEWindowPlacement) to High(TIDEWindowPlacement) do
|
||||
begin
|
||||
ARadioButton:=GetPlacementRadioButtons(APlacement);
|
||||
if ARadioButton<>nil then
|
||||
ARadioButton.Checked:=(ARadioButton=Sender);
|
||||
end;
|
||||
fUpdateRadioButtons:=false;
|
||||
end;
|
||||
|
||||
function TIDEWindowSetupLayoutComponent.GetPlacementRadioButtons(
|
||||
APlacement: TIDEWindowPlacement): TRadioButton;
|
||||
begin
|
||||
case APlacement of
|
||||
iwpRestoreWindowGeometry: Result:=RestoreWindowGeometryRadioButton;
|
||||
iwpDefault: Result:=DefaultRadioButton;
|
||||
iwpCustomPosition: Result:=CustomPositionRadioButton;
|
||||
iwpUseWindowManagerSetting: Result:=UseWindowManagerSettingRadioButton;
|
||||
iwpDocked: Result:=DockedRadioButton;
|
||||
else
|
||||
Result:=nil;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowSetupLayoutComponent.SetPlacementRadioButtons(
|
||||
APlacement: TIDEWindowPlacement; const AValue: TRadioButton);
|
||||
begin
|
||||
case APlacement of
|
||||
iwpRestoreWindowGeometry: RestoreWindowGeometryRadioButton:=AValue;
|
||||
iwpDefault: DefaultRadioButton:=AValue;
|
||||
iwpCustomPosition: CustomPositionRadioButton:=AValue;
|
||||
iwpUseWindowManagerSetting: UseWindowManagerSettingRadioButton:=AValue;
|
||||
iwpDocked: DockedRadioButton:=AValue;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowSetupLayoutComponent.ApplyButtonClick(Sender: TObject);
|
||||
begin
|
||||
Save;
|
||||
if Assigned(OnApplyWindowPos) then OnApplyWindowPos(Layout);
|
||||
Layout.Apply;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowSetupLayoutComponent.GetWindowPositionButtonClick(
|
||||
Sender: TObject);
|
||||
begin
|
||||
if LeftEdit<>nil then
|
||||
LeftEdit.Text:=IntToStr(Layout.Form.Left);
|
||||
if TopEdit<>nil then
|
||||
TopEdit.Text:=IntToStr(Layout.Form.Top);
|
||||
if WidthEdit<>nil then
|
||||
WidthEdit.Text:=IntToStr(Layout.Form.Width);
|
||||
if HeightEdit<>nil then
|
||||
HeightEdit.Text:=IntToStr(Layout.Form.Height);
|
||||
end;
|
||||
|
||||
function TIDEWindowSetupLayoutComponent.GetLayout: TIDEWindowLayout;
|
||||
begin
|
||||
Result:=fLayout;
|
||||
end;
|
||||
|
||||
procedure TIDEWindowSetupLayoutComponent.SetLayout(
|
||||
const AValue: TIDEWindowLayout);
|
||||
begin
|
||||
fLayout:=AValue;
|
||||
LoadFrom(fLayout);
|
||||
end;
|
||||
|
||||
procedure TIDEWindowSetupLayoutComponent.Save;
|
||||
begin
|
||||
SaveTo(Layout);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -63,13 +63,16 @@ CheckHeap('TMainIDE created');
|
||||
SplashForm.StartTimer;
|
||||
Application.Run;
|
||||
SplashForm.Free;
|
||||
|
||||
|
||||
writeln('LAZARUS END');
|
||||
end.
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.28 2002/02/25 16:48:10 lazarus
|
||||
MG: new IDE window layout system
|
||||
|
||||
Revision 1.27 2002/01/29 18:55:27 lazarus
|
||||
Keith: Fixed duplicate compiler options on Win32
|
||||
|
||||
|
||||
@ -27,7 +27,8 @@ unit MsgView;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Controls, StdCtrls, Forms, LResources;
|
||||
Classes, SysUtils, Controls, StdCtrls, Forms, LResources, IDEOptionDefs,
|
||||
EnvironmentOpts;
|
||||
|
||||
type
|
||||
|
||||
@ -61,23 +62,27 @@ implementation
|
||||
|
||||
|
||||
{------------------------------------------------------------------------------}
|
||||
{ TMessagesView.Create }
|
||||
{ TMessagesView.Create }
|
||||
{------------------------------------------------------------------------------}
|
||||
constructor TMessagesView.Create(AOwner : TComponent);
|
||||
var ALayout: TIDEWindowLayout;
|
||||
Begin
|
||||
inherited Create(AOwner);
|
||||
if LazarusResources.Find(ClassName)=nil then begin
|
||||
Caption:='Compiler Messages';
|
||||
Caption:='Messages';
|
||||
MessageView := TListBox.Create(Self);
|
||||
With MessageView do Begin
|
||||
Parent:= Self;
|
||||
Align:= alClient;
|
||||
Visible:= true;
|
||||
Name := 'MessageView';
|
||||
|
||||
end;
|
||||
end;
|
||||
Name := DefaultMessagesViewName;
|
||||
LastSelectedIndex := -1;
|
||||
ALayout:=EnvironmentOptions.IDEWindowLayoutList.
|
||||
ItemByFormID(DefaultMessagesViewName);
|
||||
ALayout.Form:=TForm(Self);
|
||||
ALayout.Apply;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
@ -11,10 +11,11 @@
|
||||
------------------------------------------------------------------------------}
|
||||
constructor TCustomEdit.Create(AOwner : TComponent);
|
||||
begin
|
||||
inherited Create(AOwner);
|
||||
//FCompStyle is set here because TEdit inherits from this.
|
||||
//TCustomMemo also inherits from here but it's create changes fcompstyle to csMemo
|
||||
FCompStyle := csEdit;
|
||||
inherited Create(AOwner);
|
||||
//FCompStyle is set here because TEdit inherits from this.
|
||||
//TCustomMemo also inherits from here but it's create changes fcompstyle to csMemo
|
||||
FCompStyle := csEdit;
|
||||
Height:=23;
|
||||
end;
|
||||
|
||||
|
||||
@ -131,6 +132,9 @@ end;
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.5 2002/02/25 16:48:13 lazarus
|
||||
MG: new IDE window layout system
|
||||
|
||||
Revision 1.4 2001/06/04 09:32:17 lazarus
|
||||
MG: fixed bugs and cleaned up messages
|
||||
|
||||
|
||||
@ -326,6 +326,9 @@ end.
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.29 2002/02/25 16:48:13 lazarus
|
||||
MG: new IDE window layout system
|
||||
|
||||
Revision 1.28 2002/02/20 19:11:48 lazarus
|
||||
Minor tweaks, default font caching.
|
||||
|
||||
|
||||
@ -357,10 +357,19 @@ var FormatAtom, FormatTry: Cardinal;
|
||||
Result:=false;
|
||||
AllID:=gdk_atom_intern('TARGETS',0);
|
||||
SelData:=RequestSelectionData(ClipboardWidget,ClipboardType,AllID);
|
||||
{writeln('BBB2.2 ',HexStr(Cardinal(SelData.Selection),8),
|
||||
' ',HexStr(Cardinal(ClipboardTypeAtoms[ClipboardType]),8),
|
||||
' SelData.Target=',SelData.Target,' AllID=',AllID,
|
||||
' SelData.TheType=',SelData.TheType,' ',gdk_atom_intern('ATOM',0),
|
||||
' SelData.Length=',SelData.Length,
|
||||
' SelData.Format=',SelData.Format
|
||||
);}
|
||||
if (SelData.Selection<>ClipboardTypeAtoms[ClipboardType])
|
||||
or (SelData.Target<>AllID)
|
||||
or (SelData.TheType<>gdk_atom_intern('ATOM',0)) then
|
||||
or (SelData.TheType<>gdk_atom_intern('ATOM',0)) then begin
|
||||
SupportedCnt:=0;
|
||||
exit;
|
||||
end;
|
||||
SupportedCnt:=SelData.Length div (SelData.Format shr 3);
|
||||
SupportedFormats:=PGdkAtom(SelData.Data);
|
||||
end;
|
||||
@ -391,6 +400,8 @@ writeln('[TgtkObject.ClipboardGetData] A ClipboardWidget=',HexStr(Cardinal(Clipb
|
||||
FormatTry:=gdk_atom_intern('COMPOUND_TEXT',1);
|
||||
if IsFormatSupported(FormatTry) then
|
||||
FormatAtom:=FormatTry;
|
||||
if (SupportedCnt=0) then
|
||||
FormatAtom:=gdk_atom_intern('COMPOUND_TEXT',1);
|
||||
// then check for simple text format 'text/plain'
|
||||
FormatTry:=gdk_atom_intern('text/plain',1);
|
||||
if (FormatAtom=0) and IsFormatSupported(FormatTry) then
|
||||
@ -4368,6 +4379,9 @@ end;
|
||||
{ =============================================================================
|
||||
|
||||
$Log$
|
||||
Revision 1.61 2002/02/25 16:48:13 lazarus
|
||||
MG: new IDE window layout system
|
||||
|
||||
Revision 1.60 2002/02/03 00:24:01 lazarus
|
||||
TPanel implemented.
|
||||
Basic graphic primitives split into GraphType package, so that we can
|
||||
|
||||
Loading…
Reference in New Issue
Block a user