forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

fix, (temp) clipboard issue on doc that are reloaded from previous session

This commit is contained in:
Basile Burg 2015-12-04 02:38:56 +01:00
parent 144fd79788
commit 0d62c26613
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
src/ce_main.pas
View File

@ -189,6 +189,11 @@ type
procedure ApplicationProperties1Exception(Sender: TObject; E: Exception); procedure ApplicationProperties1Exception(Sender: TObject; E: Exception);
procedure FormCloseQuery(Sender: TObject; var CanClose: boolean); procedure FormCloseQuery(Sender: TObject; var CanClose: boolean);
procedure FormDropFiles(Sender: TObject; const FileNames: array of string); procedure FormDropFiles(Sender: TObject; const FileNames: array of string);
protected
procedure DoShow; override;
private private
fDoc: TCESynMemo; fDoc: TCESynMemo;
@ -218,6 +223,7 @@ type
fDubProjWidg: TCEDubProjectEditorWidget; fDubProjWidg: TCEDubProjectEditorWidget;
fGdbWidg: TCEGdbWidget; fGdbWidg: TCEGdbWidget;
fFirstShown: boolean;
fProjFromCommandLine: boolean; fProjFromCommandLine: boolean;
fInitialized: boolean; fInitialized: boolean;
fRunnableSw: string; fRunnableSw: string;
@ -648,9 +654,6 @@ begin
// //
getCMdParams; getCMdParams;
if fNativeProject = nil then newNativeProj; if fNativeProject = nil then newNativeProj;
if fAppliOpts.reloadLastDocuments then
LoadLastDocsAndProj;
// //
fInitialized := true; fInitialized := true;
end; end;
@ -1036,6 +1039,19 @@ begin
end; end;
end; end;
procedure TCEMainForm.DoShow;
begin
inherited;
// TODO-cbetterfix: clipboard doesn't work first time it's used on a reloaded doc.
// see: http://forum.lazarus.freepascal.org/index.php/topic,30616.0.htm
if (not fFirstShown) then
begin
if fAppliOpts.reloadLastDocuments then
LoadLastDocsAndProj;
fFirstShown := true;
end;
end;
destructor TCEMainForm.destroy; destructor TCEMainForm.destroy;
begin begin
SaveSettings; SaveSettings;