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

fixed TControl.Show in design mode

Browse Source 
git-svn-id: trunk@2893 -
This commit is contained in:
mattias 2002-08-18 08:55:39 +00:00
parent e3b206d568
commit 6c7f62b288
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ide/main.pp
View File

@ -5743,7 +5743,7 @@ end;
procedure TMainIDE.UpdateCaption; procedure TMainIDE.UpdateCaption;
var NewCaption:string; var NewCaption:string;
begin begin
NewCaption := 'Lazarus Editor v'+Version_String; NewCaption := 'Lazarus Editor v'+lisLazarusVersionString;
if Project1<>nil then begin if Project1<>nil then begin
if Project1.Title<>'' then if Project1.Title<>'' then
NewCaption:=NewCaption +' - '+Project1.Title NewCaption:=NewCaption +' - '+Project1.Title
@ -6915,6 +6915,8 @@ var
SectionCaretXY: TPoint; SectionCaretXY: TPoint;
InsertAlphabetically: boolean; InsertAlphabetically: boolean;
DummyResult: Boolean; DummyResult: Boolean;
SelectedStartPos: TPoint;
SelectedEndPos: TPoint;
begin begin
FOpenEditorsOnCodeToolChange:=true; FOpenEditorsOnCodeToolChange:=true;
try try
@ -6957,8 +6959,10 @@ begin
end else begin end else begin
// the user has selected text // the user has selected text
// -> check if the selection is only part of the maximum bounds // -> check if the selection is only part of the maximum bounds
if (CompareCaret(ActiveSrcEdit.EditorComponent.BlockBegin,StartPos)<0) SelectedStartPos:=ActiveSrcEdit.EditorComponent.BlockBegin;
or (CompareCaret(ActiveSrcEdit.EditorComponent.BlockEnd,EndPos)>0) SelectedEndPos:=ActiveSrcEdit.EditorComponent.BlockEnd;
if (CompareCaret(SelectedStartPos,StartPos)>0)
or (CompareCaret(SelectedEndPos,EndPos)<0)
then begin then begin
MessageDlg('Selection exceeds string constant', MessageDlg('Selection exceeds string constant',
'Hint: The Make Resourcestring Function expects a string constant.'#13 'Hint: The Make Resourcestring Function expects a string constant.'#13
@ -6966,6 +6970,8 @@ begin
mtError,[mbCancel],0); mtError,[mbCancel],0);
exit; exit;
end; end;
StartPos:=SelectedStartPos;
EndPos:=SelectedEndPos;
end; end;
end else begin end else begin
DoJumpToCodeToolBossError; DoJumpToCodeToolBossError;
@ -7881,6 +7887,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.484 2003/03/13 10:11:41 mattias
fixed TControl.Show in design mode
Revision 1.483 2003/03/11 22:56:41 mattias Revision 1.483 2003/03/11 22:56:41 mattias
added visiblechanging added visiblechanging