"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "app/formmain_tab_proc.inc" between
CudaText-1.92.0.tar.gz and CudaText-1.93.0.tar.gz

About: CudaText is a cross-platform text editor (written in Lazarus).

formmain_tab_proc.inc  (CudaText-1.92.0):formmain_tab_proc.inc  (CudaText-1.93.0)
skipping to change at line 487 skipping to change at line 487
end; end;
end; end;
procedure TfmMain.UpdateTabCaptionsFromFolders; procedure TfmMain.UpdateTabCaptionsFromFolders;
const const
cMaxLevels = 5; cMaxLevels = 5;
var var
SName: string; SName: string;
Frame: TEditorFrame; Frame: TEditorFrame;
L_fn, L_cap: TStringList; L_fn, L_cap: TStringList;
L_found: TList; L_found: TFPList;
NLevel, i, j: integer; NLevel, i, j: integer;
begin begin
L_fn:= TStringList.Create; L_fn:= TStringList.Create;
L_cap:= TStringList.Create; L_cap:= TStringList.Create;
L_found:= TList.Create; L_found:= TFPList.Create;
try try
for i:= 0 to FrameCount-1 do for i:= 0 to FrameCount-1 do
begin begin
Frame:= Frames[i]; Frame:= Frames[i];
SName:= Frame.FileName; SName:= Frame.FileName;
L_fn.Add(SName); L_fn.Add(SName);
if (SName<>'') and Frame.EditorsLinked then if (SName<>'') and Frame.EditorsLinked then
L_cap.Add(ExtractFileName(SName)) L_cap.Add(ExtractFileName(SName))
else else
 End of changes. 2 change blocks. 
2 lines changed or deleted 2 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)