removed icon extraction routine

handled by the cesetup
This commit is contained in:
Basile Burg 2015-06-05 03:27:02 +02:00
parent 95536e0147
commit 6fc63706f8
1 changed files with 0 additions and 26 deletions

View File

@ -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;