mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-20 08:19:48 +02:00
fixed unitinfo layout
git-svn-id: trunk@9867 -
This commit is contained in:
mattias
parent
ef77b40e9f
commit
025627c932
@ -5867,7 +5867,6 @@ var
|
|||||||
FilenameNoPath: String;
|
FilenameNoPath: String;
|
||||||
LoadBufferFlags: TLoadBufferFlags;
|
LoadBufferFlags: TLoadBufferFlags;
|
||||||
DiskFilename: String;
|
DiskFilename: String;
|
||||||
NewSrcEdit: TSourceEditor;
|
|
||||||
|
|
||||||
function OpenResource: TModalResult;
|
function OpenResource: TModalResult;
|
||||||
begin
|
begin
|
||||||
@ -6049,11 +6048,7 @@ begin
|
|||||||
if ofRevert in Flags then
|
if ofRevert in Flags then
|
||||||
Include(LoadBufferFlags,lbfRevert);
|
Include(LoadBufferFlags,lbfRevert);
|
||||||
end;
|
end;
|
||||||
NewSrcEdit:=SourceNotebook.FindSourceEditorWithPageIndex(PageIndex);
|
|
||||||
if NewSrcEdit<>nil then DebugLn(['TMainIDE.DoOpenEditorFile AAA ',AFilename,' TopLine=',NewSrcEdit.EditorComponent.TopLine]);
|
|
||||||
Result:=LoadCodeBuffer(NewBuf,AFileName,LoadBufferFlags);
|
Result:=LoadCodeBuffer(NewBuf,AFileName,LoadBufferFlags);
|
||||||
NewSrcEdit:=SourceNotebook.FindSourceEditorWithPageIndex(PageIndex);
|
|
||||||
if NewSrcEdit<>nil then DebugLn(['TMainIDE.DoOpenEditorFile BBB ',AFilename,' TopLine=',NewSrcEdit.EditorComponent.TopLine]);
|
|
||||||
if Result<>mrOk then begin
|
if Result<>mrOk then begin
|
||||||
DebugLn(['TMainIDE.DoOpenEditorFile failed LoadCodeBuffer: ',AFilename]);
|
DebugLn(['TMainIDE.DoOpenEditorFile failed LoadCodeBuffer: ',AFilename]);
|
||||||
exit;
|
exit;
|
||||||
|
|||||||
@ -2108,9 +2108,9 @@ procedure TSourceEditor.OnCodeBufferChanged(Sender: TSourceLog;
|
|||||||
|
|
||||||
var StartPos, EndPos, MoveToPos: TPoint;
|
var StartPos, EndPos, MoveToPos: TPoint;
|
||||||
begin
|
begin
|
||||||
{ $IFDEF IDE_DEBUG}
|
{$IFDEF IDE_DEBUG}
|
||||||
writeln('[TSourceEditor.OnCodeBufferChanged] A ',FIgnoreCodeBufferLock,' ',SrcLogEntry<>nil);
|
writeln('[TSourceEditor.OnCodeBufferChanged] A ',FIgnoreCodeBufferLock,' ',SrcLogEntry<>nil);
|
||||||
{ $ENDIF}
|
{$ENDIF}
|
||||||
if FIgnoreCodeBufferLock>0 then exit;
|
if FIgnoreCodeBufferLock>0 then exit;
|
||||||
if SrcLogEntry<>nil then begin
|
if SrcLogEntry<>nil then begin
|
||||||
FEditor.BeginUpdate;
|
FEditor.BeginUpdate;
|
||||||
|
|||||||
@ -9,7 +9,6 @@ object UnitInfoDialog: TUnitInfoDialog
|
|||||||
BorderStyle = bsSizeToolWin
|
BorderStyle = bsSizeToolWin
|
||||||
Caption = 'UnitInfoDialog'
|
Caption = 'UnitInfoDialog'
|
||||||
OnCreate = FormCreate
|
OnCreate = FormCreate
|
||||||
OnResize = UnitInfoDlgResize
|
|
||||||
Position = poScreenCenter
|
Position = poScreenCenter
|
||||||
object OkButton: TBitBtn
|
object OkButton: TBitBtn
|
||||||
Left = 439
|
Left = 439
|
||||||
@ -198,7 +197,6 @@ object UnitInfoDialog: TUnitInfoDialog
|
|||||||
Color = clNone
|
Color = clNone
|
||||||
Font.Style = [fsBold]
|
Font.Style = [fsBold]
|
||||||
ParentColor = False
|
ParentColor = False
|
||||||
OnResize = UnitInfoDlgResize
|
|
||||||
end
|
end
|
||||||
object ClearIncludedBy: TButton
|
object ClearIncludedBy: TButton
|
||||||
AnchorSideTop.Control = UIncludedBy
|
AnchorSideTop.Control = UIncludedBy
|
||||||
|
|||||||
@ -4,84 +4,83 @@ LazarusResources.Add('TUnitInfoDialog','FORMDATA',[
|
|||||||
'TPF0'#15'TUnitInfoDialog'#14'UnitInfoDialog'#4'Left'#3']'#1#6'Height'#3#27#1
|
'TPF0'#15'TUnitInfoDialog'#14'UnitInfoDialog'#4'Left'#3']'#1#6'Height'#3#27#1
|
||||||
+#3'Top'#3#244#0#5'Width'#3#244#1#18'HorzScrollBar.Page'#3#243#1#18'VertScrol'
|
+#3'Top'#3#244#0#5'Width'#3#244#1#18'HorzScrollBar.Page'#3#243#1#18'VertScrol'
|
||||||
+'lBar.Page'#3#26#1#13'ActiveControl'#7#8'OkButton'#11'BorderStyle'#7#13'bsSi'
|
+'lBar.Page'#3#26#1#13'ActiveControl'#7#8'OkButton'#11'BorderStyle'#7#13'bsSi'
|
||||||
+'zeToolWin'#7'Caption'#6#14'UnitInfoDialog'#8'OnCreate'#7#10'FormCreate'#8'O'
|
+'zeToolWin'#7'Caption'#6#14'UnitInfoDialog'#8'OnCreate'#7#10'FormCreate'#8'P'
|
||||||
+'nResize'#7#17'UnitInfoDlgResize'#8'Position'#7#14'poScreenCenter'#0#7'TBitB'
|
+'osition'#7#14'poScreenCenter'#0#7'TBitBtn'#8'OkButton'#4'Left'#3#183#1#6'He'
|
||||||
+'tn'#8'OkButton'#4'Left'#3#183#1#6'Height'#2#28#3'Top'#3#242#0#5'Width'#2'7'
|
+'ight'#2#28#3'Top'#3#242#0#5'Width'#2'7'#7'Anchors'#11#7'akRight'#8'akBottom'
|
||||||
+#7'Anchors'#11#7'akRight'#8'akBottom'#0#8'AutoSize'#9#6'Cancel'#9#7'Caption'
|
+#0#8'AutoSize'#9#6'Cancel'#9#7'Caption'#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bk'
|
||||||
+#6#3'&OK'#7'Default'#9#4'Kind'#7#4'bkOK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0
|
+'OK'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#7'OnClick'#7#13'OkButtonClick'#8'T'
|
||||||
+#7'OnClick'#7#13'OkButtonClick'#8'TabOrder'#2#0#0#0#9'TNotebook'#8'Notebook'
|
+'abOrder'#2#0#0#0#9'TNotebook'#8'Notebook'#4'Left'#2#6#6'Height'#3#226#0#3'T'
|
||||||
+#4'Left'#2#6#6'Height'#3#226#0#3'Top'#2#6#5'Width'#3#232#1#5'Align'#7#5'alTo'
|
+'op'#2#6#5'Width'#3#232#1#5'Align'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLef'
|
||||||
+'p'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#20'BorderSpaci'
|
+'t'#7'akRight'#8'akBottom'#0#20'BorderSpacing.Around'#2#6#9'PageIndex'#2#0#0
|
||||||
+'ng.Around'#2#6#9'PageIndex'#2#0#0#5'TPage'#11'GeneralPage'#7'Caption'#6#11
|
+#5'TPage'#11'GeneralPage'#7'Caption'#6#11'GeneralPage'#0#6'TLabel'#6'ULines'
|
||||||
+'GeneralPage'#0#6'TLabel'#6'ULines'#4'Left'#2#12#6'Height'#2#13#3'Top'#2'\'#5
|
+#4'Left'#2#12#6'Height'#2#13#3'Top'#2'\'#5'Width'#2''''#9'Alignment'#7#14'ta'
|
||||||
+'Width'#2''''#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#6'ULines'#5'Col'
|
+'RightJustify'#7'Caption'#6#6'ULines'#5'Color'#7#6'clNone'#10'Font.Style'#11
|
||||||
+'or'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabe'
|
+#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#8'OutLines'#22'AnchorSideLeft.C'
|
||||||
+'l'#8'OutLines'#22'AnchorSideLeft.Control'#7#6'ULines'#19'AnchorSideLeft.Sid'
|
+'ontrol'#7#6'ULines'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'?'#6'H'
|
||||||
+'e'#7#9'asrBottom'#4'Left'#2'?'#6'Height'#2#13#3'Top'#2'\'#5'Width'#2'3'#18
|
+'eight'#2#13#3'Top'#2'\'#5'Width'#2'3'#18'BorderSpacing.Left'#2#12#7'Caption'
|
||||||
+'BorderSpacing.Left'#2#12#7'Caption'#6#8'OutLines'#5'Color'#7#6'clNone'#11'P'
|
+#6#8'OutLines'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'OutPat'
|
||||||
+'arentColor'#8#0#0#6'TLabel'#7'OutPath'#22'AnchorSideLeft.Control'#7#5'UPath'
|
+'h'#22'AnchorSideLeft.Control'#7#5'UPath'#19'AnchorSideLeft.Side'#7#9'asrBot'
|
||||||
+#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2':'#6'Height'#2#13#3'Top'#2
|
+'tom'#4'Left'#2':'#6'Height'#2#13#3'Top'#2'p'#5'Width'#2'.'#18'BorderSpacing'
|
||||||
+'p'#5'Width'#2'.'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutPath'#5'Colo'
|
+'.Left'#2#12#7'Caption'#6#7'OutPath'#5'Color'#7#6'clNone'#11'ParentColor'#8#0
|
||||||
+'r'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#5'UPath'#4'Left'#2#12#6'Heig'
|
+#0#6'TLabel'#5'UPath'#4'Left'#2#12#6'Height'#2#13#3'Top'#2'p'#5'Width'#2'"'#9
|
||||||
+'ht'#2#13#3'Top'#2'p'#5'Width'#2'"'#9'Alignment'#7#14'taRightJustify'#7'Capt'
|
+'Alignment'#7#14'taRightJustify'#7'Caption'#6#5'UPath'#5'Color'#7#6'clNone'
|
||||||
+'ion'#6#5'UPath'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'Paren'
|
+#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#11'UIncludedB'
|
||||||
+'tColor'#8#0#0#6'TLabel'#11'UIncludedBy'#4'Left'#2#12#6'Height'#2#13#3'Top'#3
|
+'y'#4'Left'#2#12#6'Height'#2#13#3'Top'#3#132#0#5'Width'#2'H'#9'Alignment'#7
|
||||||
+#132#0#5'Width'#2'H'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#11'UIncl'
|
+#14'taRightJustify'#7'Caption'#6#11'UIncludedBy'#5'Color'#7#6'clNone'#10'Fon'
|
||||||
+'udedBy'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8
|
+'t.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#13'OutIncludedBy'#22
|
||||||
+#0#0#6'TLabel'#13'OutIncludedBy'#22'AnchorSideLeft.Control'#7#11'UIncludedBy'
|
+'AnchorSideLeft.Control'#7#11'UIncludedBy'#19'AnchorSideLeft.Side'#7#9'asrBo'
|
||||||
+#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'`'#6'Height'#2#13#3'Top'#3
|
+'ttom'#4'Left'#2'`'#6'Height'#2#13#3'Top'#3#132#0#5'Width'#2'T'#18'BorderSpa'
|
||||||
+#132#0#5'Width'#2'T'#18'BorderSpacing.Left'#2#12#7'Caption'#6#13'OutIncluded'
|
+'cing.Left'#2#12#7'Caption'#6#13'OutIncludedBy'#5'Color'#7#6'clNone'#11'Pare'
|
||||||
+'By'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'OutSize'#22'Anch'
|
+'ntColor'#8#0#0#6'TLabel'#7'OutSize'#22'AnchorSideLeft.Control'#7#5'USize'#19
|
||||||
+'orSideLeft.Control'#7#5'USize'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Lef'
|
+'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'9'#6'Height'#2#13#3'Top'#2'H'
|
||||||
+'t'#2'9'#6'Height'#2#13#3'Top'#2'H'#5'Width'#2'-'#18'BorderSpacing.Left'#2#12
|
+#5'Width'#2'-'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'OutSize'#5'Color'#7
|
||||||
+#7'Caption'#6#7'OutSize'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'
|
+#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#5'USize'#4'Left'#2#12#6'Height'#2
|
||||||
+#5'USize'#4'Left'#2#12#6'Height'#2#13#3'Top'#2'H'#5'Width'#2'!'#9'Alignment'
|
+#13#3'Top'#2'H'#5'Width'#2'!'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6
|
||||||
+#7#14'taRightJustify'#7'Caption'#6#5'USize'#5'Color'#7#6'clNone'#10'Font.Sty'
|
+#5'USize'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'
|
||||||
+'le'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#10'UInProject'#4'Left'#2
|
+#8#0#0#6'TLabel'#10'UInProject'#4'Left'#2#12#6'Height'#2#13#3'Top'#2'4'#5'Wi'
|
||||||
+#12#6'Height'#2#13#3'Top'#2'4'#5'Width'#2':'#9'Alignment'#7#14'taRightJustif'
|
+'dth'#2':'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#10'UInProject'#5'C'
|
||||||
+'y'#7'Caption'#6#10'UInProject'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsB'
|
+'olor'#7#6'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLa'
|
||||||
+'old'#0#11'ParentColor'#8#0#0#6'TLabel'#12'OutInProject'#22'AnchorSideLeft.C'
|
+'bel'#12'OutInProject'#22'AnchorSideLeft.Control'#7#10'UInProject'#19'Anchor'
|
||||||
+'ontrol'#7#10'UInProject'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'R'
|
+'SideLeft.Side'#7#9'asrBottom'#4'Left'#2'R'#6'Height'#2#13#3'Top'#2'4'#5'Wid'
|
||||||
+#6'Height'#2#13#3'Top'#2'4'#5'Width'#2'F'#18'BorderSpacing.Left'#2#12#7'Capt'
|
+'th'#2'F'#18'BorderSpacing.Left'#2#12#7'Caption'#6#12'OutInProject'#5'Color'
|
||||||
+'ion'#6#12'OutInProject'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'
|
+#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#7'OutType'#22'AnchorSideLeft.Co'
|
||||||
+#7'OutType'#22'AnchorSideLeft.Control'#7#5'UType'#19'AnchorSideLeft.Side'#7#9
|
+'ntrol'#7#5'UType'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'='#6'Hei'
|
||||||
+'asrBottom'#4'Left'#2'='#6'Height'#2#13#3'Top'#2' '#5'Width'#2'1'#18'BorderS'
|
+'ght'#2#13#3'Top'#2' '#5'Width'#2'1'#18'BorderSpacing.Left'#2#12#7'Caption'#6
|
||||||
+'pacing.Left'#2#12#7'Caption'#6#7'OutType'#5'Color'#7#6'clNone'#11'ParentCol'
|
+#7'OutType'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#5'UType'#4
|
||||||
+'or'#8#0#0#6'TLabel'#5'UType'#4'Left'#2#12#6'Height'#2#13#3'Top'#2' '#5'Widt'
|
+'Left'#2#12#6'Height'#2#13#3'Top'#2' '#5'Width'#2'%'#9'Alignment'#7#14'taRig'
|
||||||
+'h'#2'%'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5'UType'#5'Color'#7#6
|
+'htJustify'#7'Caption'#6#5'UType'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'f'
|
||||||
+'clNone'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#0#0#6'TLabel'#7'Out'
|
+'sBold'#0#11'ParentColor'#8#0#0#6'TLabel'#7'OutName'#22'AnchorSideLeft.Contr'
|
||||||
+'Name'#22'AnchorSideLeft.Control'#7#5'UName'#19'AnchorSideLeft.Side'#7#9'asr'
|
+'ol'#7#5'UName'#19'AnchorSideLeft.Side'#7#9'asrBottom'#4'Left'#2'A'#6'Height'
|
||||||
+'Bottom'#4'Left'#2'A'#6'Height'#2#13#3'Top'#2#12#5'Width'#2'5'#18'BorderSpac'
|
+#2#13#3'Top'#2#12#5'Width'#2'5'#18'BorderSpacing.Left'#2#12#7'Caption'#6#7'O'
|
||||||
+'ing.Left'#2#12#7'Caption'#6#7'OutName'#5'Color'#7#6'clNone'#11'ParentColor'
|
+'utName'#5'Color'#7#6'clNone'#11'ParentColor'#8#0#0#6'TLabel'#5'UName'#4'Lef'
|
||||||
+#8#0#0#6'TLabel'#5'UName'#4'Left'#2#12#6'Height'#2#13#3'Top'#2#12#5'Width'#2
|
+'t'#2#12#6'Height'#2#13#3'Top'#2#12#5'Width'#2')'#9'Alignment'#7#14'taRightJ'
|
||||||
+')'#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#5'UName'#5'Color'#7#6'clN'
|
+'ustify'#7'Caption'#6#5'UName'#5'Color'#7#6'clNone'#10'Font.Style'#11#6'fsBo'
|
||||||
+'one'#10'Font.Style'#11#6'fsBold'#0#11'ParentColor'#8#8'OnResize'#7#17'UnitI'
|
+'ld'#0#11'ParentColor'#8#0#0#7'TButton'#15'ClearIncludedBy'#21'AnchorSideTop'
|
||||||
+'nfoDlgResize'#0#0#7'TButton'#15'ClearIncludedBy'#21'AnchorSideTop.Control'#7
|
+'.Control'#7#11'UIncludedBy'#4'Left'#2#12#6'Height'#2#26#3'Top'#3#152#0#5'Wi'
|
||||||
+#11'UIncludedBy'#4'Left'#2#12#6'Height'#2#26#3'Top'#3#152#0#5'Width'#2'k'#8
|
+'dth'#2'k'#8'AutoSize'#9#17'BorderSpacing.Top'#2#20#25'BorderSpacing.InnerBo'
|
||||||
+'AutoSize'#9#17'BorderSpacing.Top'#2#20#25'BorderSpacing.InnerBorder'#2#4#7
|
+'rder'#2#4#7'Caption'#6#15'ClearIncludedBy'#7'OnClick'#7#20'clearIncludedByC'
|
||||||
+'Caption'#6#15'ClearIncludedBy'#7'OnClick'#7#20'clearIncludedByClick'#8'TabO'
|
+'lick'#8'TabOrder'#2#0#0#0#0#5'TPage'#13'UnitPathsPage'#7'Caption'#6#13'Unit'
|
||||||
+'rder'#2#0#0#0#0#5'TPage'#13'UnitPathsPage'#7'Caption'#6#13'UnitPathsPage'#0
|
+'PathsPage'#0#5'TMemo'#12'UnitPathMemo'#4'Left'#2#6#6'Height'#3#184#0#3'Top'
|
||||||
+#5'TMemo'#12'UnitPathMemo'#4'Left'#2#6#6'Height'#3#184#0#3'Top'#2#6#5'Width'
|
+#2#6#5'Width'#3#216#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#8
|
||||||
+#3#216#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'#2#6#8'ReadOnly'#9#10
|
+'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#5'TPage'
|
||||||
+'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#5'TPage'#16'IncludePaths'
|
+#16'IncludePathsPage'#7'Caption'#6#16'IncludePathsPage'#0#5'TMemo'#15'Includ'
|
||||||
+'Page'#7'Caption'#6#16'IncludePathsPage'#0#5'TMemo'#15'IncludePathMemo'#4'Le'
|
+'ePathMemo'#4'Left'#2#6#6'Height'#3#184#0#3'Top'#2#6#5'Width'#3#216#1#5'Alig'
|
||||||
,'ft'#2#6#6'Height'#3#184#0#3'Top'#2#6#5'Width'#3#216#1#5'Align'#7#8'alClient'
|
,'n'#7#8'alClient'#20'BorderSpacing.Around'#2#6#8'ReadOnly'#9#10'ScrollBars'#7
|
||||||
+#20'BorderSpacing.Around'#2#6#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8
|
+#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#5'TPage'#21'CompleteUnitPathsPage'#7'C'
|
||||||
+'TabOrder'#2#0#0#0#0#5'TPage'#21'CompleteUnitPathsPage'#7'Caption'#6#21'Comp'
|
+'aption'#6#21'CompleteUnitPathsPage'#0#5'TMemo'#11'SrcPathMemo'#4'Left'#2#6#6
|
||||||
+'leteUnitPathsPage'#0#5'TMemo'#11'SrcPathMemo'#4'Left'#2#6#6'Height'#3#184#0
|
+'Height'#3#184#0#3'Top'#2#6#5'Width'#3#216#1#5'Align'#7#8'alClient'#20'Borde'
|
||||||
+#3'Top'#2#6#5'Width'#3#216#1#5'Align'#7#8'alClient'#20'BorderSpacing.Around'
|
+'rSpacing.Around'#2#6#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrd'
|
||||||
+#2#6#8'ReadOnly'#9#10'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#0#7
|
+'er'#2#0#0#0#0#0#7'TButton'#19'CodeToolsDefsButton'#21'AnchorSideTop.Control'
|
||||||
+'TButton'#19'CodeToolsDefsButton'#21'AnchorSideTop.Control'#7#8'OkButton'#24
|
+#7#8'OkButton'#24'AnchorSideBottom.Control'#7#8'OkButton'#21'AnchorSideBotto'
|
||||||
+'AnchorSideBottom.Control'#7#8'OkButton'#21'AnchorSideBottom.Side'#7#9'asrBo'
|
+'m.Side'#7#9'asrBottom'#4'Left'#2#6#6'Height'#2#28#3'Top'#3#242#0#5'Width'#3
|
||||||
+'ttom'#4'Left'#2#6#6'Height'#2#28#3'Top'#3#242#0#5'Width'#3#134#0#7'Anchors'
|
+#134#0#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#25'Borde'
|
||||||
+#11#5'akTop'#6'akLeft'#8'akBottom'#0#8'AutoSize'#9#25'BorderSpacing.InnerBor'
|
+'rSpacing.InnerBorder'#2#4#7'Caption'#6#19'CodeToolsDefsButton'#7'OnClick'#7
|
||||||
+'der'#2#4#7'Caption'#6#19'CodeToolsDefsButton'#7'OnClick'#7#24'CodeToolsDefs'
|
+#24'CodeToolsDefsButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#26'GotoIncludeD'
|
||||||
+'ButtonClick'#8'TabOrder'#2#2#0#0#7'TButton'#26'GotoIncludeDirectiveButton'
|
+'irectiveButton'#21'AnchorSideTop.Control'#7#8'OkButton'#23'AnchorSideRight.'
|
||||||
+#21'AnchorSideTop.Control'#7#8'OkButton'#23'AnchorSideRight.Control'#7#8'OkB'
|
+'Control'#7#8'OkButton'#24'AnchorSideBottom.Control'#7#8'OkButton'#21'Anchor'
|
||||||
+'utton'#24'AnchorSideBottom.Control'#7#8'OkButton'#21'AnchorSideBottom.Side'
|
+'SideBottom.Side'#7#9'asrBottom'#4'Left'#3#7#1#6'Height'#2#28#3'Top'#3#242#0
|
||||||
+#7#9'asrBottom'#4'Left'#3#7#1#6'Height'#2#28#3'Top'#3#242#0#5'Width'#3#166#0
|
+#5'Width'#3#166#0#7'Anchors'#11#5'akTop'#7'akRight'#8'akBottom'#0#8'AutoSize'
|
||||||
+#7'Anchors'#11#5'akTop'#7'akRight'#8'akBottom'#0#8'AutoSize'#9#19'BorderSpac'
|
+#9#19'BorderSpacing.Right'#2#10#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
|
||||||
+'ing.Right'#2#10#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#26'GotoInclu'
|
+#6#26'GotoIncludeDirectiveButton'#11'ModalResult'#2#6#7'OnClick'#7#31'GotoIn'
|
||||||
+'deDirectiveButton'#11'ModalResult'#2#6#7'OnClick'#7#31'GotoIncludeDirective'
|
+'cludeDirectiveButtonClick'#8'TabOrder'#2#3#0#0#0
|
||||||
+'ButtonClick'#8'TabOrder'#2#3#0#0#0
|
|
||||||
]);
|
]);
|
||||||
|
|||||||
@ -27,8 +27,10 @@ unit UnitInfoDlg;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, SysUtils, LCLType, Controls, StdCtrls, Forms, Buttons, FileProcs,
|
Classes, SysUtils, LCLProc, LCLType, Controls, StdCtrls, Forms, Buttons,
|
||||||
LazarusIDEStrConsts, CodeToolsDefPreview, CodeToolManager, ExtCtrls;
|
FileProcs, ExtCtrls,
|
||||||
|
CodeToolsDefPreview, CodeToolManager,
|
||||||
|
LazarusIDEStrConsts;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
|
||||||
@ -66,7 +68,6 @@ type
|
|||||||
procedure FormCreate(Sender: TObject);
|
procedure FormCreate(Sender: TObject);
|
||||||
procedure GotoIncludeDirectiveButtonClick(Sender: TObject);
|
procedure GotoIncludeDirectiveButtonClick(Sender: TObject);
|
||||||
procedure OkButtonClick(Sender: TObject);
|
procedure OkButtonClick(Sender: TObject);
|
||||||
procedure UnitInfoDlgResize(Sender: TObject);
|
|
||||||
procedure clearIncludedByClick(Sender: TObject);
|
procedure clearIncludedByClick(Sender: TObject);
|
||||||
private
|
private
|
||||||
FFilePath: string;
|
FFilePath: string;
|
||||||
@ -128,38 +129,6 @@ end;
|
|||||||
|
|
||||||
{ TUnitInfoDialog }
|
{ TUnitInfoDialog }
|
||||||
|
|
||||||
procedure TUnitInfoDialog.UnitInfoDlgResize(Sender: TObject);
|
|
||||||
var MaxLength: integer;
|
|
||||||
begin
|
|
||||||
MaxLength := UName.Width;
|
|
||||||
|
|
||||||
if UType.Width > MaxLength then
|
|
||||||
MaxLength := UType.Width;
|
|
||||||
|
|
||||||
if UInProject.Width > MaxLength then
|
|
||||||
MaxLength := UInProject.Width;
|
|
||||||
|
|
||||||
if USize.Width > MaxLength then
|
|
||||||
MaxLength := USize.Width;
|
|
||||||
|
|
||||||
if ULines.Width > MaxLength then
|
|
||||||
MaxLength := ULines.Width;
|
|
||||||
|
|
||||||
if UPath.Width > MaxLength then
|
|
||||||
MaxLength := UPath.Width;
|
|
||||||
|
|
||||||
if UIncludedBy.Width > MaxLength then
|
|
||||||
MaxLength := UIncludedBy.Width;
|
|
||||||
|
|
||||||
UName.Width := MaxLength;
|
|
||||||
UType.Width := MaxLength;
|
|
||||||
UInProject.Width := MaxLength;
|
|
||||||
USize.Width := MaxLength;
|
|
||||||
ULines.Width := MaxLength;
|
|
||||||
UPath.Width := MaxLength;
|
|
||||||
UIncludedBy.Width := MaxLength;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TUnitInfoDialog.CodeToolsDefsButtonClick(Sender: TObject);
|
procedure TUnitInfoDialog.CodeToolsDefsButtonClick(Sender: TObject);
|
||||||
begin
|
begin
|
||||||
DebugLn(['TUnitInfoDialog.CodeToolsDefsButtonClick FFilePath=',FFilePath]);
|
DebugLn(['TUnitInfoDialog.CodeToolsDefsButtonClick FFilePath=',FFilePath]);
|
||||||
|
|||||||
@ -84,7 +84,7 @@ begin
|
|||||||
AutoSizing := True;
|
AutoSizing := True;
|
||||||
try
|
try
|
||||||
CalcSize(NewWidth, NewHeight);
|
CalcSize(NewWidth, NewHeight);
|
||||||
//debugln('TCustomLabel.DoAutoSize Nice ',dbgs(Left),',',dbgs(Top),',w=',dbgs(NewWidth),',h',dbgs(NewHeight));
|
//debugln('TCustomLabel.DoAutoSize ',dbgsName(Self),' Nice ',dbgs(Left),',',dbgs(Top),',w=',dbgs(NewWidth),',h=',dbgs(NewHeight),' Caption="',dbgstr(Caption),'"');
|
||||||
CurAnchors:=[];
|
CurAnchors:=[];
|
||||||
if Align in [alLeft,alRight,alBottom,alTop,alClient] then
|
if Align in [alLeft,alRight,alBottom,alTop,alClient] then
|
||||||
CurAnchors:=AnchorAlign[Align];
|
CurAnchors:=AnchorAlign[Align];
|
||||||
@ -94,7 +94,7 @@ begin
|
|||||||
if CurAnchors*[akTop,akBottom]=[akTop,akBottom] then
|
if CurAnchors*[akTop,akBottom]=[akTop,akBottom] then
|
||||||
NewHeight:=Height;
|
NewHeight:=Height;
|
||||||
|
|
||||||
//debugln('TCustomLabel.DoAutoSize Anchored ',dbgs(Left),',',dbgs(Top),',w=',dbgs(NewWidth),',h=',dbgs(NewHeight));
|
//debugln('TCustomLabel.DoAutoSize ',dbgsName(Self),' Anchored ',dbgs(Left),',',dbgs(Top),',w=',dbgs(NewWidth),',h=',dbgs(NewHeight));
|
||||||
SetBoundsKeepBase(Left, Top, NewWidth, NewHeight);
|
SetBoundsKeepBase(Left, Top, NewWidth, NewHeight);
|
||||||
finally
|
finally
|
||||||
AutoSizing := False;
|
AutoSizing := False;
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user