mirror of https://gitlab.com/basile.b/dexed.git
parent
95536e0147
commit
6fc63706f8
|
@ -234,9 +234,6 @@ type
|
||||||
procedure InitMRUs;
|
procedure InitMRUs;
|
||||||
procedure InitWidgets;
|
procedure InitWidgets;
|
||||||
procedure InitDocking;
|
procedure InitDocking;
|
||||||
{$IFDEF LINUX}
|
|
||||||
procedure TryExtractNuxIcon;
|
|
||||||
{$ENDIF}
|
|
||||||
procedure LoadSettings;
|
procedure LoadSettings;
|
||||||
procedure SaveSettings;
|
procedure SaveSettings;
|
||||||
procedure LoadDocking;
|
procedure LoadDocking;
|
||||||
|
@ -400,9 +397,6 @@ end;
|
||||||
constructor TCEMainForm.create(aOwner: TComponent);
|
constructor TCEMainForm.create(aOwner: TComponent);
|
||||||
begin
|
begin
|
||||||
inherited create(aOwner);
|
inherited create(aOwner);
|
||||||
{$IFDEF LINUX}
|
|
||||||
TryExtractNuxIcon;
|
|
||||||
{$ENDIF}
|
|
||||||
fMainMenuSubj := TCEMainMenuSubject.create;
|
fMainMenuSubj := TCEMainMenuSubject.create;
|
||||||
fActionHandler := TCEActionProviderSubject.create;
|
fActionHandler := TCEActionProviderSubject.create;
|
||||||
//
|
//
|
||||||
|
@ -502,26 +496,6 @@ begin
|
||||||
fFileMru.OnChange := @mruChange;
|
fFileMru.OnChange := @mruChange;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{$IFDEF LINUX}
|
|
||||||
procedure TCEMainForm.TryExtractNuxIcon;
|
|
||||||
var
|
|
||||||
fold: string;
|
|
||||||
fname: string;
|
|
||||||
png: TPortableNetworkGraphic;
|
|
||||||
begin
|
|
||||||
fold := '/usr/share/pixmaps/';
|
|
||||||
if not DirectoryIsWritable(fold) then exit;
|
|
||||||
fname := fold + 'coedit.png';
|
|
||||||
png := TPortableNetworkGraphic.Create;
|
|
||||||
try
|
|
||||||
png.Assign(Icon);
|
|
||||||
png.SaveToFile(fname);
|
|
||||||
finally
|
|
||||||
png.Free;
|
|
||||||
end;
|
|
||||||
end;
|
|
||||||
{$ENDIF}
|
|
||||||
|
|
||||||
procedure TCEMainForm.InitWidgets;
|
procedure TCEMainForm.InitWidgets;
|
||||||
var
|
var
|
||||||
widg: TCEWidget;
|
widg: TCEWidget;
|
||||||
|
|
Loading…
Reference in New Issue