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

IDE: indentiation

Browse Source 
git-svn-id: trunk@45217 -
This commit is contained in:
mattias 2014-05-28 23:12:11 +00:00
parent 8844f15f3a
commit 5656db6508
8 changed files with 74 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
components/ideintf/componenttreeview.pas
View File

@ -63,6 +63,12 @@ type
procedure UpdateComponentNodesValues; virtual;
function CreateNodeCaption(APersistent: TPersistent; DefaultName: string = ''): string; virtual;
public
ImgIndexForm: Integer;
ImgIndexComponent: Integer;
ImgIndexControl: Integer;
ImgIndexBox: Integer;
ImgIndexCollection: Integer;
ImgIndexItem: Integer;
property Selection: TPersistentSelectionList read GetSelection
write SetSelection;
property PropertyEditorHook: TPropertyEditorHook
@ -535,26 +541,27 @@ function TComponentTreeView.GetImageFor(APersistent: TPersistent): integer;
begin
if Assigned(APersistent) then
begin
if (APersistent is TControl) and (csAcceptsControls in TControl(APersistent).ControlStyle) then
Result := 3
if (APersistent is TControl)
and (csAcceptsControls in TControl(APersistent).ControlStyle) then
Result := ImgIndexBox
else
if (APersistent is TControl) then
Result := 2
Result := ImgIndexControl
else
if (APersistent is TComponent) then
Result := 1
Result := ImgIndexComponent
else
if (APersistent is TCollection) then
Result := 4
Result := ImgIndexCollection
else
if (APersistent is TCollectionItem) then
Result := 5;
Result := ImgIndexItem;
end
else
Result := -1;
// finally, ask the designer such as TDesignerMediator to override it, if any
if assigned(OnComponentGetImageIndex) then
if Assigned(OnComponentGetImageIndex) then
OnComponentGetImageIndex(APersistent, Result);
end;
@ -583,17 +590,17 @@ begin
Bitmap := TPortableNetworkGraphic.Create;
try
Bitmap.LoadFromResourceName(HInstance, 'oi_form');
FImageList.Add(Bitmap, nil);
ImgIndexForm:=FImageList.Add(Bitmap, nil);
Bitmap.LoadFromResourceName(HInstance, 'oi_comp');
FImageList.Add(Bitmap, nil);
ImgIndexComponent:=FImageList.Add(Bitmap, nil);
Bitmap.LoadFromResourceName(HInstance, 'oi_control');
FImageList.Add(Bitmap, nil);
ImgIndexControl:=FImageList.Add(Bitmap, nil);
Bitmap.LoadFromResourceName(HInstance, 'oi_box');
FImageList.Add(Bitmap, nil);
ImgIndexBox:=FImageList.Add(Bitmap, nil);
Bitmap.LoadFromResourceName(HInstance, 'oi_collection');
FImageList.Add(Bitmap, nil);
ImgIndexCollection:=FImageList.Add(Bitmap, nil);
Bitmap.LoadFromResourceName(HInstance, 'oi_item');
FImageList.Add(Bitmap, nil);
ImgIndexItem:=FImageList.Add(Bitmap, nil);
finally
Bitmap.Free;
end;

6
components/ideintf/formeditingintf.pas
View File

@ -78,7 +78,7 @@ type
procedure MouseDown({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}p: TPoint; var {%H-}Handled: boolean); virtual;
procedure MouseMove({%H-}Shift: TShiftState; {%H-}p: TPoint; var {%H-}Handled: boolean); virtual;
procedure MouseUp({%H-}Button: TMouseButton; {%H-}Shift: TShiftState; {%H-}p: TPoint; var {%H-}Handled: boolean); virtual;
procedure OiNodeGetImageIndex(APersistent: TPersistent; var AIndex: integer); virtual;
procedure GetObjInspNodeImageIndex({%H-}APersistent: TPersistent; var {%H-}AIndex: integer); virtual;
property LCLForm: TForm read FLCLForm write SetLCLForm;
property Designer: TComponentEditorDesigner read FDesigner write SetDesigner;
@ -461,7 +461,7 @@ begin
if ComponentIsIcon(Child) then
OffsetRect(ChildBounds,ScrollOffset.X,
ScrollOffset.Y)
else///x2nie
else
OffsetRect(ChildBounds,ClientArea.Left+ScrollOffset.X,
ClientArea.Top+ScrollOffset.Y);
//DebugLn(['TDesignerMediator.ComponentAtPos ChildBounds=',dbgs(ChildBounds),' p=',dbgs(p)]);
@ -531,7 +531,7 @@ begin
end;
procedure TDesignerMediator.OiNodeGetImageIndex(APersistent: TPersistent;
procedure TDesignerMediator.GetObjInspNodeImageIndex(APersistent: TPersistent;
var AIndex: integer);
begin

6
components/ideintf/objectinspector.pp
View File

@ -616,6 +616,7 @@ type
StatusBar: TStatusBar;
procedure AvailComboBoxCloseUp(Sender: TObject);
procedure ComponentTreeDblClick(Sender: TObject);
procedure ComponentTreeGetNodeImageIndex(APersistent: TPersistent; var AIndex: integer);
procedure ComponentTreeKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure ComponentTreeSelectionChanged(Sender: TObject);
procedure OnGridKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
@ -637,7 +638,6 @@ type
procedure OnShowStatusBarPopupMenuItemClick(Sender: TObject);
procedure OnShowOptionsPopupMenuItemClick(Sender: TObject);
procedure OnMainPopupMenuPopup(Sender: TObject);
procedure OnVTNodeGetImageIndex(APersistent: TPersistent; var AIndex: integer);
procedure RestrictedPageShow(Sender: TObject);
procedure WidgetSetRestrictedPaint(Sender: TObject);
procedure ComponentRestrictedPaint(Sender: TObject);
@ -4094,7 +4094,7 @@ begin
OnDblClick := @ComponentTreeDblClick;
OnKeyDown := @ComponentTreeKeyDown;
OnSelectionChanged := @ComponentTreeSelectionChanged;
OnComponentGetImageIndex := @OnVTNodeGetImageIndex;
OnComponentGetImageIndex := @ComponentTreeGetNodeImageIndex;
OnModified := @DoModified;
Scrollbars := ssAutoBoth;
PopupMenu := MainPopupMenu;
@ -5514,7 +5514,7 @@ begin
FavoriteGrid.Favorites:=FFavorites;
end;
procedure TObjectInspectorDlg.OnVTNodeGetImageIndex(
procedure TObjectInspectorDlg.ComponentTreeGetNodeImageIndex(
APersistent: TPersistent; var AIndex: integer);
begin
//ask TMediator

22
designer/controlselection.pp
View File

@ -656,11 +656,10 @@ begin
begin
if Owner.Mediator.ComponentIsIcon(TComponent(FPersistent)) then
begin
Owner.Mediator.SetBounds(TComponent(FPersistent),Rect( ALeft, ATop, ALeft+AWidth, ATop+AHeight));//x2nie
Owner.Mediator.SetBounds(TComponent(FPersistent),
Bounds(ALeft, ATop, AWidth, AHeight));
end
else
begin
else begin
Owner.Mediator.GetBounds(TComponent(FPersistent),OldBounds);
ParentOffset:=Owner.Mediator.GetComponentOriginOnForm(TComponent(FPersistent));
dec(ParentOffset.X,OldBounds.Left);
@ -687,11 +686,10 @@ begin
if Owner.Mediator<>nil then begin
if Owner.Mediator.ComponentIsIcon(TComponent(FPersistent)) then
begin
GetComponentBounds(TComponent(FPersistent),ALeft, ATop, AWidth, AHeight);//x2nie
GetComponentBounds(TComponent(FPersistent),ALeft, ATop, AWidth, AHeight);
end
else
begin
ALeftTop:=Owner.Mediator.GetComponentOriginOnForm(TComponent(FPersistent));
Owner.Mediator.GetBounds(TComponent(FPersistent),CurBounds);
ALeft:=ALeftTop.X;
@ -735,9 +733,7 @@ begin
begin
GetComponentBounds(TComponent(FPersistent),
FOldLeft,FOldTop,FOldWidth,FOldHeight);
end
else
begin
end else begin
Owner.Mediator.GetBounds(TComponent(FPersistent),r);
FOldLeft:=r.Left;
FOldTop:=r.Top;
@ -1641,9 +1637,7 @@ begin
if not PersistentAlignable(AComponent) then continue;
if IsSelected(AComponent) then continue;
if FMediator <> nil then
begin
CurLeft := FMediator.GetComponentOriginOnForm(AComponent).X;
end
CurLeft := FMediator.GetComponentOriginOnForm(AComponent).X
else
CurLeft:=GetParentFormRelativeTopLeft(AComponent).X;
CurDist:=Abs(CurLeft-NearestInt.OldValue);
@ -1691,9 +1685,7 @@ begin
if not PersistentAlignable(AComponent) then continue;
if IsSelected(AComponent) then continue;
if FMediator <> nil then
begin
CurTop := FMediator.GetComponentOriginOnForm(AComponent).Y;
end
CurTop := FMediator.GetComponentOriginOnForm(AComponent).Y
else
CurTop:=GetParentFormRelativeTopLeft(AComponent).Y;
CurDist:=Abs(CurTop-NearestInt.OldValue);

3
designer/designer.pp
View File

@ -3611,9 +3611,6 @@ begin
end;
function TDesigner.GetParentFormRelativeClientOrigin(AComponent: TComponent): TPoint;
var
CurClientArea: TRect;
ScrollOffset: TPoint;
begin
if Mediator<>nil then begin
Result:=Mediator.GetComponentOriginOnForm(AComponent);

10
examples/designnonlcl/mywidgetdesigner.pas
View File

@ -65,7 +65,7 @@ type
procedure InvalidateRect(Sender: TObject; ARect: TRect; Erase: boolean);
property MyForm: TMyForm read FMyForm;
public
procedure OiNodeGetImageIndex(APersistent: TPersistent; var AIndex: integer); override;
procedure GetObjInspNodeImageIndex(APersistent: TPersistent; var AIndex: integer); override;
end;
{ TFileDescPascalUnitWithMyForm }
@ -140,18 +140,18 @@ begin
LCLIntf.InvalidateRect(LCLForm.Handle,@ARect,Erase);
end;
procedure TMyWidgetMediator.OiNodeGetImageIndex(APersistent: TPersistent;
procedure TMyWidgetMediator.GetObjInspNodeImageIndex(APersistent: TPersistent;
var AIndex: integer);
begin
if Assigned(APersistent) then
begin
if (APersistent is TMyWidget) and (TMyWidget(APersistent).AcceptChildrenAtDesignTime) then
AIndex := 3
AIndex := FormEditingHook.GetCurrentObjectInspector.ComponentTree.ImgIndexBox
else
if (APersistent is TMyWidget) then
AIndex := 2
AIndex := FormEditingHook.GetCurrentObjectInspector.ComponentTree.ImgIndexControl
else
inherited OiNodeGetImageIndex(APersistent, AIndex);
inherited;
end
end;

2
ide/customformeditor.pp
View File

@ -2423,7 +2423,7 @@ begin
//ask TMediator
if DesignerForm is TNonControlDesignerForm then
TNonControlDesignerForm(DesignerForm).Mediator.OiNodeGetImageIndex(APersistent, AImageIndex);
TNonControlDesignerForm(DesignerForm).Mediator.GetObjInspNodeImageIndex(APersistent, AImageIndex);
end;