Объясняю: При открытии файла в Reopen1 добавляется путь к нему. При открытии его через Reopen1 этот пункт становится на первое место(удаляется со своего места и становится в на первое).
| Код |
procedure TIndex_Form.Reopen1_files(Sender: TObject);
var
NewItem: TMenuItem;
str:string;
begin
NewItem:=(Sender as TMenuItem);
ShowMessage(Sender.ClassName);
Reopen1.Delete(Reopen1.IndexOf(Sender as TMenuItem));
Reopen1.Insert(0,NewItem);
str:=StringReplace((Sender as TMenuItem).Caption,'&','',[rfReplaceAll]);
File_Reopen(NIL, str);
end;
procedure TIndex_Form.File_Reopen(Sender: TObject; openfile: string);
var
stroka: ShortString;
begin
try
if tab_text1.PageCount<=199 then begin
Screen.Cursor:= crHourGlass;
File_NewExecute(File_Open);
text_GL[tab_text1.ActivePageIndex].Lines.LoadFromFile(openfile);
stroka:='';
stroka:=ExtractFileName(openfile);
if Length(stroka)>=22 then
stroka:=copy(stroka, 1, 20)+'..'+ExtractFileExt(stroka);
tab_text1.ActivePage.Caption:=stroka;
text_GL[tab_text1.ActivePageIndex].Modified:=false;
file_names.Items.Add(IntToStr(tab_text1.PageCount)+': '+openfile);
file_names.ItemIndex:=tab_text1.PageCount-1;
text_GL[tab_text1.ActivePageIndex].hint :='Дата обновления: '
+DateTimeToStr(FileDateToDateTime(FileAge(openfile)));
tab_text1.ActivePage.ImageIndex:=1;
end else
MessageDlg('Ошибка! Нельзя одновременно открыть больше 200 окон.'+#10#13
+'Закройте одно из окон и повторите попытку.',mtError, [mbOK],0);
except
file_names.Items.Delete(tab_text1.PageCount);
tab_text1.ActivePage.free;
i:=i-1;
MessageDlg('Ошибка при открытия файла "'+openfile+'".',mtError, [mbOK],0);
end; {try .. except}
Screen.Cursor:= crDefault;
Timer_textTimer(OpenDialog);
end;
procedure TIndex_Form.File_OpenExecute(Sender: TObject); // Открыть
var
c, vsego: byte;
stroka, str: ShortString;
NewItem: TMenuItem;
col, l, FileHandle:integer;
begin
if OpenDialog.Execute then begin
if FileExists(OpenDialog.FileName)=false then begin
FileHandle:=FileCreate(OpenDialog.FileName);
FileClose(FileHandle);
end;
col:=OpenDialog.Files.Count;
for l:=0 to (col-1) do begin
try
if tab_text1.PageCount<=199 then begin
Screen.Cursor:= crHourGlass;
File_NewExecute(File_Open);
text_GL[tab_text1.ActivePageIndex].Lines.LoadFromFile(OpenDialog.Files[l]);
stroka:='';
stroka:=ExtractFileName(OpenDialog.Files[l]);
if Length(stroka)>=22 then
stroka:=copy(stroka, 1, 20)+'..'+ExtractFileExt(stroka);
tab_text1.ActivePage.Caption:=stroka;
text_GL[tab_text1.ActivePageIndex].Modified:=false;
file_names.Items.Add(IntToStr(tab_text1.PageCount)+': '+OpenDialog.Files[l]);
file_names.ItemIndex:=tab_text1.PageCount-1;
text_GL[tab_text1.ActivePageIndex].hint :='Дата обновления: '
+DateTimeToStr(FileDateToDateTime(FileAge(OpenDialog.Files[l])));
tab_text1.ActivePage.ImageIndex:=1;
vsego := Reopen1.Count-1;
for vsego := vsego downto 0 do begin
str:=StringReplace(Reopen1.items[vsego].Caption,'&','',[rfReplaceAll]);
if OpenDialog.Files[l] = str then begin
NewItem:=Reopen1.Items[vsego];
Reopen1.Delete(vsego);
Reopen1.Insert(0,NewItem);
break;
end;
end;
if OpenDialog.Files[l]<>str then begin
if Reopen1.Count=12 then Reopen1.Delete(11);
if Reopen1.Count<=11 then begin
NewItem := TMenuItem.Create(Reopen1);
NewItem.Caption := OpenDialog.Files[l];
Reopen1.Insert(0,NewItem);
Reopen1.Items[c].OnClick:=Reopen1_files;
end;
end;
end
else
MessageDlg('Ошибка! Нельзя одновременно открыть больше 200 окон.'
+#10#13+'Закройте одно из окон и повторите попытку.',
mtError, [mbOK],0);
except
file_names.Items.Delete(tab_text1.PageCount);
tab_text1.ActivePage.free;
i:=i-1;
MessageDlg('Ошибка при открытия файла "'+OpenDialog.Files[l]+'".'
,mtInformation, [mbOK],0);
end;
end;
end;
Screen.Cursor:= crDefault;
Timer_textTimer(OpenDialog);
end;
|
|
