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

Designer: make some AnchorEditor public functions private.

Browse Source 
git-svn-id: trunk@30327 -
This commit is contained in:
juha 2011-04-16 17:15:45 +00:00
parent 9d42901baa
commit 7d2cf39b54
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
designer/anchoreditor.pas
View File

@ -139,26 +139,26 @@ type
procedure SiblingComboBoxChange(Sender: TObject); procedure SiblingComboBoxChange(Sender: TObject);
procedure ReferenceSideButtonClicked(Sender: TObject); procedure ReferenceSideButtonClicked(Sender: TObject);
private private
Values: TAnchorDesignerValues;
FSelection: TPersistentSelectionList; FSelection: TPersistentSelectionList;
FSelectedControlsList: TList; FSelectedControlsList: TList;
FUpdating: Boolean; FUpdating: Boolean;
protected procedure Refresh(Force: boolean);
procedure KeyUp(var Key: Word; Shift: TShiftState); override; procedure OnRefreshPropertyValues;
procedure OnSetSelection(const ASelection: TPersistentSelectionList);
function GetSelectedControls: TList;
function FindSibling(const Sibling: string): TControl;
procedure FillComboBoxWithSiblings(AComboBox: TComboBox); procedure FillComboBoxWithSiblings(AComboBox: TComboBox);
function AnchorDesignerNoSiblingText: string; function AnchorDesignerNoSiblingText: string;
function AnchorDesignerNeighbourText(direction: TAnchorKind): string; function AnchorDesignerNeighbourText(direction: TAnchorKind): string;
public
Values: TAnchorDesignerValues;
destructor Destroy; override;
procedure Refresh(Force: boolean);
procedure OnRefreshPropertyValues;
function GetSelectedControls: TList;
function FindSibling(const Sibling: string): TControl;
class function ControlToStr(AControl: TControl): string;
procedure CollectValues(const ASelection: TList; procedure CollectValues(const ASelection: TList;
var TheValues: TAnchorDesignerValues; var TheValues: TAnchorDesignerValues;
var SelectedControlCount: integer); var SelectedControlCount: integer);
procedure OnSetSelection(const ASelection: TPersistentSelectionList); protected
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
public
destructor Destroy; override;
class function ControlToStr(AControl: TControl): string;
property Selection: TPersistentSelectionList read FSelection; property Selection: TPersistentSelectionList read FSelection;
end; end;
@ -767,7 +767,7 @@ var
begin begin
//debugln('TAnchorDesigner.Refresh A '); //debugln('TAnchorDesigner.Refresh A ');
if not Force then begin if not Force then begin
// check if uddate is needed // check if update is needed
if not IsVisible then exit; if not IsVisible then exit;
end; end;
if FUpdating then exit; if FUpdating then exit;