paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 10:18:05 +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 ReferenceSideButtonClicked(Sender: TObject);
private
Values: TAnchorDesignerValues;
FSelection: TPersistentSelectionList;
FSelectedControlsList: TList;
FUpdating: Boolean;
protected
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure Refresh(Force: boolean);
procedure OnRefreshPropertyValues;
procedure OnSetSelection(const ASelection: TPersistentSelectionList);
function GetSelectedControls: TList;
function FindSibling(const Sibling: string): TControl;
procedure FillComboBoxWithSiblings(AComboBox: TComboBox);
function AnchorDesignerNoSiblingText: 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;
var TheValues: TAnchorDesignerValues;
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;
end;
@ -767,7 +767,7 @@ var
begin
//debugln('TAnchorDesigner.Refresh A ');
if not Force then begin
// check if uddate is needed
// check if update is needed
if not IsVisible then exit;
end;
if FUpdating then exit;