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

IDE: fixed updating statusbar on source editor page change via keyboard, fixed typo

Browse Source 
git-svn-id: trunk@13110 -
This commit is contained in:
mattias 2007-12-01 23:47:14 +00:00
parent 2261662fc3
commit cdde9e222b
4 changed files with 14 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
designer/controlselection.pp
View File

@ -399,7 +399,7 @@ type
function ParentLevel: integer;
function OnlyNonVisualPersistentsSelected: boolean;
function OnlyVisualComponentsSelected: boolean;
function OnlyInvisiblePersistensSelected: boolean;
function OnlyInvisiblePersistentsSelected: boolean;
function OnlyBoundLessComponentsSelected: boolean;
function LookupRootSelected: boolean;
@ -436,7 +436,7 @@ type
procedure InvalidateGuideLinesCache;
// grabbers and markers
property GrabberSize:integer read FGrabberSize write SetGrabberSize;
property GrabberSize: integer read FGrabberSize write SetGrabberSize;
property GrabberColor: TColor read GetGrabberColor;
procedure DrawGrabbers(DC: TDesignerDeviceContext);
function GrabberAtPos(X,Y: integer):TGrabber;
@ -1121,6 +1121,7 @@ begin
if FControls.Count>=1 then begin
Items[0].GetFormRelativeBounds(FRealLeft,FRealTop,FRealWidth,FRealHeight,
true);
//DebugLn(['TControlSelection.UpdateRealBounds ',FRealLeft,',',FRealTop]);
for i:=1 to FControls.Count-1 do begin
Items[i].GetFormRelativeBounds(
NextRealLeft,NextRealTop,NextRealWidth,NextRealHeight,true);
@ -2144,17 +2145,16 @@ var
RestoreBrush:=true;
end;
DC.Canvas.FillRect(Rect(RLeft,RTop,RRight,RBottom));
//DC.Canvas.TextOut(RLeft,RTop,dbgs(ord(g)));
end;
begin
if (Count=0) or (FForm=nil) or LookupRootSelected
or OnlyInvisiblePersistensSelected then exit;
or OnlyInvisiblePersistentsSelected then exit;
Diff:=DC.FormOrigin;
{writeln('[DrawGrabbers] '
,' DC=',Diff.X,',',Diff.Y
,' Grabber1=',FGrabbers[0].Left,',',FGrabbers[0].Top);}
//debugln(['[DrawGrabbers] ',' DC=',Diff.X,',',Diff.Y,' Grabber1=',FGrabbers[0].Left,',',FGrabbers[0].Top]);
RestoreBrush:=false;
for g:=Low(TGrabIndex) to High(TGrabIndex) do
@ -2499,7 +2499,7 @@ begin
Result:=cssOnlyVisualNeedsSelected in FStates;
end;
function TControlSelection.OnlyInvisiblePersistensSelected: boolean;
function TControlSelection.OnlyInvisiblePersistentsSelected: boolean;
var i: integer;
begin
if cssOnlyInvisibleNeedsUpdate in FStates then begin

8
designer/designer.pp
View File

@ -535,7 +535,7 @@ procedure TDesigner.SelectParentOfSelection;
var
i: Integer;
begin
if ControlSelection.OnlyInvisiblePersistensSelected then exit;
if ControlSelection.OnlyInvisiblePersistentsSelected then exit;
if ControlSelection.LookupRootSelected then begin
SelectOnlyThisComponent(FLookupRoot);
@ -670,7 +670,7 @@ var
begin
Result := false;
if ControlSelection.Count = 0 then exit;
if ControlSelection.OnlyInvisiblePersistensSelected then exit;
if ControlSelection.OnlyInvisiblePersistentsSelected then exit;
AllComponentsStream:=TMemoryStream.Create;
try
@ -1789,7 +1789,7 @@ Begin
Handled:=true;
case TheMessage.CharCode of
VK_DELETE:
if not ControlSelection.OnlyInvisiblePersistensSelected then
if not ControlSelection.OnlyInvisiblePersistentsSelected then
DoDeleteSelectedPersistents;
VK_UP:
@ -2795,7 +2795,7 @@ begin
and (ControlSelection.SelectionForm=Form);
LookupRootIsSelected:=ControlSelection.LookupRootSelected;
OnlyNonVisualsAreSelected := ControlSelection.OnlyNonVisualPersistentsSelected;
SelectionVisible:=not ControlSelection.OnlyInvisiblePersistensSelected;
SelectionVisible:=not ControlSelection.OnlyInvisiblePersistentsSelected;
CompsAreSelected:=ControlSelIsNotEmpty and SelectionVisible
and not LookupRootIsSelected;
OneControlSelected := ControlSelIsNotEmpty and ControlSelection[0].IsTControl;

1
designer/designerprocs.pas
View File

@ -127,6 +127,7 @@ begin
end else begin
Result:=Parent.ClientOrigin;
FormOrigin:=ParentForm.ClientOrigin;
//DebugLn(['GetParentFormRelativeTopLeft Component=',dbgsName(Component),' Parent=',dbgsName(Parent),' ',dbgs(Result),' ParentForm=',dbgsName(ParentForm),' ',dbgs(FormOrigin)]);
Result.X:=Result.X-FormOrigin.X+TControl(Component).Left;
Result.Y:=Result.Y-FormOrigin.Y+TControl(Component).Top;
end;

2
ide/uniteditor.pp
View File

@ -4363,6 +4363,7 @@ Begin
Notebook.PageIndex := Notebook.PageIndex+1
else
NoteBook.PageIndex := 0;
NotebookPageChanged(Self);
End;
Procedure TSourceNotebook.PrevEditor;
@ -4372,6 +4373,7 @@ Begin
Notebook.PageIndex := Notebook.PageIndex-1
else
NoteBook.PageIndex := NoteBook.PageCount-1;
NotebookPageChanged(Self);
End;
procedure TSourceNotebook.MoveEditor(OldPageIndex, NewPageIndex: integer);