paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-02 22:27:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: less hints

Browse Source 
git-svn-id: trunk@49610 -
This commit is contained in:
mattias 2015-08-07 16:36:17 +00:00
parent 4bf196ee57
commit 415968937e
7 changed files with 9 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
designer/controlselection.pp
View File

@ -43,7 +43,7 @@ uses
// IDEIntf
PropEditUtils, ComponentEditors, FormEditingIntf,
// IDE
EnvironmentOpts, NonControlDesigner, DesignerProcs;
EnvironmentOpts, DesignerProcs;
type
TArrSize = array of array [0 .. 3] of integer;

2
designer/customnonformdesigner.pas
View File

@ -52,7 +52,7 @@ type
destructor Destroy; override;
procedure DoLoadBounds; virtual;
procedure DoSaveBounds; virtual;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer); virtual;
procedure SetBounds({%H-}ALeft, {%H-}ATop, {%H-}AWidth, {%H-}AHeight: integer); virtual;
procedure Paint; virtual;
public
property LookupRoot: TComponent read GetLookupRoot write SetLookupRoot;

5
designer/designer.pp
View File

@ -47,7 +47,7 @@ uses
FormEditingIntf, ComponentReg,
// IDE
LazarusIDEStrConsts, EnvironmentOpts, IDECommands, LazIDEIntf, ProjectIntf,
LazFileUtils, LazFileCache, NonControlDesigner, FrameDesigner, AlignCompsDlg,
LazFileUtils, LazFileCache, AlignCompsDlg,
SizeCompsDlg, ScaleCompsDlg, TabOrderDlg, AnchorEditor, DesignerProcs,
CustomFormEditor, AskCompNameDlg, ControlSelection, ChangeClassDialog,
EditorOptions;
@ -422,6 +422,7 @@ implementation
type
TCustomFormAccess = class(TCustomForm);
TControlAccess = class(TControl);
TWinControlAccess = class(TWinControl);
TComponentAccess = class(TComponent);
{ TComponentSearch }
@ -3106,7 +3107,7 @@ begin
ADDC.Canvas.Pen.Color := GridColor;
ADDC.Canvas.Pen.Width := 1;
ADDC.Canvas.Pen.Style := psSolid;
DrawGrid(ADDC.Canvas.Handle, TControlAccess(AWinControl).GetLogicalClientRect,
DrawGrid(ADDC.Canvas.Handle, TWinControlAccess(AWinControl).GetLogicalClientRect,
GridSizeX, GridSizeY);
end;

4
ide/componentlist.pas
View File

@ -86,8 +86,8 @@ type
FKeepSelected: Boolean;
procedure ClearSelection;
procedure SelectionWasChanged;
procedure ComponentWasAdded(ALookupRoot, AComponent: TComponent;
ARegisteredComponent: TRegisteredComponent);
procedure ComponentWasAdded({%H-}ALookupRoot, {%H-}AComponent: TComponent;
{%H-}ARegisteredComponent: TRegisteredComponent);
procedure DoComponentInheritence(Comp: TRegisteredComponent);
procedure UpdateComponents;
procedure UpdateButtonState;

4
ide/componentpalette.pas
View File

@ -126,8 +126,8 @@ type
function GetUnregisteredIcon: TCustomBitmap;
function GetSelectButtonIcon: TCustomBitmap;
function SelectAButton(Button: TSpeedButton): boolean;
procedure ComponentWasAdded(ALookupRoot, AComponent: TComponent;
ARegisteredComponent: TRegisteredComponent);
procedure ComponentWasAdded({%H-}ALookupRoot, {%H-}AComponent: TComponent;
{%H-}ARegisteredComponent: TRegisteredComponent);
procedure CheckComponentDesignerVisible(AComponent: TComponent; var Invisible: boolean);
public
constructor Create;

2
ide/environmentopts.pp
View File

@ -921,7 +921,6 @@ end;
procedure TDesktopOptList.SaveToXML(aXMLCfg: TRttiXMLConfig;
aConfigStore: TXMLOptionsStorage; Index: Integer);
var
I: Integer;
CurPath: String;
begin
CurPath := 'Desktops/';
@ -933,7 +932,6 @@ end;
procedure TDesktopOptList.LoadFromXML(aXMLCfg: TRttiXMLConfig;
aConfigStore: TXMLOptionsStorage; Index: Integer);
var
I: Integer;
CurPath: String;
xDesktop: TDesktopOpt;
begin

1
ide/main.pp
View File

@ -8039,7 +8039,6 @@ end;
procedure TMainIDE.DoShowDesignerFormOfSrc(AEditor: TSourceEditorInterface; out
AForm: TCustomForm);
var
ActiveSourceEditor: TSourceEditor;
ActiveUnitInfo: TUnitInfo;
UnitCodeBuf: TCodeBuffer;
begin