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

extended GridXY labels

Browse Source 
git-svn-id: trunk@5058 -
This commit is contained in:
mattias 2004-01-13 13:16:37 +00:00
parent 44c4de4ced
commit 33c6241dc6
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/environmentopts.pp
View File

@ -2274,7 +2274,7 @@ procedure TEnvironmentOptionsDialog.SetupFormEditorPage(Page: integer);
Parent:=GridGroupBox;
Left:=ShowGridCheckBox.Left;
Top:=SnapToGridCheckBox.Top+SnapToGridCheckBox.Height+5;
Width:=120;
Width:=150;
Caption:=dlgGridX;
end;
@ -3225,7 +3225,7 @@ begin
with GridSizeXLabel do begin
SetBounds(ShowGridCheckBox.Left,
SnapToGridCheckBox.Top+SnapToGridCheckBox.Height+5,120,Height);
SnapToGridCheckBox.Top+SnapToGridCheckBox.Height+5,150,Height);
end;
with GridSizeXComboBox do begin

6
ide/main.pp
View File

@ -8768,7 +8768,6 @@ begin
DoArrangeSourceEditorAndMessageView(false);
MessagesView.ClearTillLastSeparator;
MessagesView.AddSeparator;
writeln('TMainIDE.DoJumpToCodeToolBossError A ',CodeToolBoss.ErrorCode<>nil);
if CodeToolBoss.ErrorCode<>nil then begin
MessagesView.AddMsg(Project1.RemoveProjectPathFromFilename(
CodeToolBoss.ErrorCode.Filename)
@ -8786,13 +8785,11 @@ writeln('TMainIDE.DoJumpToCodeToolBossError A ',CodeToolBoss.ErrorCode<>nil);
ErrorCaret:=Point(CodeToolBoss.ErrorColumn,CodeToolBoss.ErrorLine);
ErrorFilename:=CodeToolBoss.ErrorCode.Filename;
ErrorTopLine:=CodeToolBoss.ErrorTopLine;
writeln('TMainIDE.DoJumpToCodeToolBossError B ',ErrorFilename,' ',CodeToolBoss.ErrorCode.IsVirtual);
OpenFlags:=[ofOnlyIfExists,ofUseCache];
if CodeToolBoss.ErrorCode.IsVirtual then
Include(OpenFlags,ofVirtualFile);
if DoOpenEditorFile(ErrorFilename,-1,OpenFlags)=mrOk
then begin
writeln('TMainIDE.DoJumpToCodeToolBossError C ',ErrorFilename);
ActiveSrcEdit:=SourceNoteBook.GetActiveSE;
MessagesView.ShowOnTop;
SourceNoteBook.ShowOnTop;
@ -10271,6 +10268,9 @@ end.
{ =============================================================================
$Log$
Revision 1.699 2004/01/13 13:16:37 mattias
extended GridXY labels
Revision 1.698 2004/01/11 11:32:46 mattias
updates defines for fpc 1.9.2