paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 04:55:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: clean up

Browse Source 
git-svn-id: trunk@40695 -
This commit is contained in:
mattias 2013-04-02 10:11:26 +00:00
parent a85c98d0a8
commit 51d0aff5e3
3 changed files with 25 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
designer/controlselection.pp
View File

@ -74,7 +74,7 @@ type
public
procedure SaveBounds;
procedure Move(NewLeft, NewTop: integer);
procedure GetRect(var ARect: TRect);
procedure GetRect(out ARect: TRect);
procedure InvalidateOnForm(AForm: TCustomForm);
property Positions: TGrabPositions read FPositions write FPositions;
@ -144,7 +144,7 @@ type
destructor Destroy; override;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: integer);
procedure SetFormRelativeBounds(ALeft, ATop, AWidth, AHeight: integer);
procedure GetFormRelativeBounds(var ALeft, ATop, AWidth, AHeight: integer;
procedure GetFormRelativeBounds(out ALeft, ATop, AWidth, AHeight: integer;
StoreAsUsed: boolean = false);
procedure SetUsedBounds(ALeft, ATop, AWidth, AHeight: integer);
procedure SaveBounds;
@ -328,7 +328,7 @@ type
function GetSnapping: boolean;
function GetVisible: boolean;
procedure DoChangeProperties;
procedure GrabberMove(Grabber: TGrabber; const OldRect, NewRect: TRect);
procedure GrabberMove({%H-}Grabber: TGrabber; const OldRect, NewRect: TRect);
procedure SetActiveGrabber(AGrabber: TGrabber);
procedure SetCacheGuideLines(const AValue: boolean);
procedure SetCustomForm;
@ -375,7 +375,7 @@ type
public
constructor Create; reintroduce;
destructor Destroy; override;
procedure OnIdle(Sender: TObject; var Done: Boolean);
procedure OnIdle(Sender: TObject; var {%H-}Done: Boolean);
procedure BeginUpdate;
procedure EndUpdate;
@ -548,7 +548,7 @@ begin
if Assigned(FOnMove) then FOnMove(Self,OldRect,NewRect);
end;
procedure TGrabber.GetRect(var ARect: TRect);
procedure TGrabber.GetRect(out ARect: TRect);
begin
ARect.Left:=FLeft;
ARect.Top:=FTop;
@ -637,7 +637,7 @@ begin
end;
end;
procedure TSelectedControl.GetFormRelativeBounds(var ALeft, ATop, AWidth,
procedure TSelectedControl.GetFormRelativeBounds(out ALeft, ATop, AWidth,
AHeight: integer; StoreAsUsed: boolean);
var
ALeftTop: TPoint;
@ -3137,6 +3137,8 @@ var
g: TGuideLineType;
begin
if (Count=0) or (FForm=nil) or LookupRootSelected then exit;
for g:=Low(TGuideLineType) to high(TGuideLineType) do
Line[g]:=Rect(0,0,0,0);
LineExists[glLeft]:=GetLeftGuideLine(Line[glLeft]);
LineExists[glRight]:=GetRightGuideLine(Line[glRight]);
LineExists[glTop]:=GetTopGuideLine(Line[glTop]);

2
designer/customnonformdesigner.pas
View File

@ -30,7 +30,7 @@ unit CustomNonFormDesigner;
interface
uses
Classes, SysUtils, Math, LCLProc, Graphics, GraphType, Forms, Controls,
Classes, SysUtils, LCLProc, Graphics, GraphType, Forms, Controls,
IDEProcs;
type

30
designer/jitforms.pp
View File

@ -121,21 +121,21 @@ type
procedure DoRenameUnitNameOfClass(JITClass: TClass;
const NewUnitName: ShortString);
// TReader events
procedure ReaderFindMethod(Reader: TReader; const FindMethodName: Ansistring;
var Address: Pointer; var Error: Boolean);
procedure ReaderFindMethod({%H-}Reader: TReader; const {%H-}FindMethodName: Ansistring;
var {%H-}Address: Pointer; var {%H-}Error: Boolean);
procedure ReaderSetMethodProperty(Reader: TReader; Instance: TPersistent;
PropInfo: PPropInfo; const TheMethodName: string; var Handled: boolean);
procedure ReaderPropertyNotFound(Reader: TReader; Instance: TPersistent;
var PropName: string; IsPath: Boolean; var Handled, Skip: Boolean);
procedure ReaderSetName(Reader: TReader; Component: TComponent;
procedure ReaderSetName({%H-}Reader: TReader; {%H-}Component: TComponent;
var NewName: Ansistring);
procedure ReaderReferenceName(Reader: TReader; var RefName: Ansistring);
procedure ReaderAncestorNotFound(Reader: TReader;
procedure ReaderReferenceName({%H-}Reader: TReader; var RefName: Ansistring);
procedure ReaderAncestorNotFound({%H-}Reader: TReader;
const ComponentName: Ansistring; ComponentClass: TPersistentClass;
var Component: TComponent);
procedure ReaderError(Reader: TReader; const ErrorMsg: Ansistring;
var Handled: Boolean);
procedure ReaderFindComponentClass(Reader: TReader;
procedure ReaderFindComponentClass({%H-}Reader: TReader;
const FindClassName: Ansistring; var ComponentClass: TComponentClass);
procedure ReaderCreateComponent(Reader: TReader;
ComponentClass: TComponentClass; var Component: TComponent);
@ -144,7 +144,7 @@ type
// some useful functions
function GetItem(Index:integer):TComponent;
function OnFindGlobalComponent(const AName:AnsiString):TComponent;
function OnFindGlobalComponent(const {%H-}AName:AnsiString):TComponent;
procedure InitReading;
procedure CreateReader(BinStream: TStream;
UnitResourcefileFormat: TUnitResourcefileFormatClass;
@ -170,7 +170,7 @@ type
UnitResourcefileFormat: TUnitResourcefileFormatClass;
AncestorClass: TClass;
const NewUnitName: ShortString;
Interactive, Visible, DisableAutoSize: Boolean;
{%H-}Interactive, Visible, DisableAutoSize: Boolean;
ContextObj: TObject): integer;
procedure DestroyJITComponent(JITComponent: TComponent);
procedure DestroyJITComponent(Index: integer);
@ -179,7 +179,7 @@ type
function FindComponentByClassName(const AClassName: shortstring): integer;
function FindComponentByClass(AClass: TComponentClass): integer;
function FindComponentByName(const AName: shortstring): integer;
procedure GetUnusedNames(var ComponentName, ComponentClassName: shortstring);
procedure GetUnusedNames(out ComponentName: shortstring; var ComponentClassName: shortstring);
function CreateNewMethod(JITComponent: TComponent;
const AName: ShortString): TMethod;
procedure RemoveMethod(JITComponent: TComponent; const AName: ShortString);
@ -320,17 +320,17 @@ type
procedure SetComponentDesignMode(AComponent: TComponent; Value: Boolean);
begin
TSetDesigningComponent.SetDesigningOfComponent(AComponent, True);
TSetDesigningComponent.SetDesigningOfComponent(AComponent, Value);
end;
procedure SetComponentDesignInstanceMode(AComponent: TComponent; Value: Boolean);
begin
TSetDesigningComponent.SetDesignInstanceOfComponent(AComponent, True);
TSetDesigningComponent.SetDesignInstanceOfComponent(AComponent, Value);
end;
procedure SetComponentInlineMode(AComponent: TComponent; Value: Boolean);
begin
TSetDesigningComponent.SetInlineOfComponent(AComponent, True);
TSetDesigningComponent.SetInlineOfComponent(AComponent, Value);
end;
procedure SetComponentAncestorMode(AComponent: TComponent; Value: Boolean);
@ -796,8 +796,8 @@ begin
dec(Result);
end;
procedure TJITComponentList.GetUnusedNames(
var ComponentName,ComponentClassName:shortstring);
procedure TJITComponentList.GetUnusedNames(out ComponentName: shortstring;
var ComponentClassName: shortstring);
var a:integer;
ComponentPrefix: String;
begin
@ -853,6 +853,7 @@ function TJITComponentList.AddJITComponentFromStream(BinStream: TStream;
FCurReadStreamClass:=StreamClass;
DestroyDriver:=false;
InitReading;
Reader:=nil;
CreateReader(AStream,UnitResourcefileFormat,Reader,DestroyDriver);
{$IFDEF VerboseJITForms}
DebugLn(['TJITComponentList.AddJITComponentFromStream.ReadStream Reading: FCurReadJITComponent=',DbgSName(FCurReadJITComponent),' StreamClass=',DbgSName(StreamClass)]);
@ -1305,6 +1306,7 @@ begin
FCurReadJITComponent:=nil;
FCurReadClass:=nil;
FCurReadStreamClass:=nil;
Reader:=nil;
try
DestroyDriver:=false;
InitReading;