procedure TFMain.AboutClick(Sender: TObject);
var
  PlugAbout: Function: PChar;
  PlugAuthor: Function: PChar;
  PlugVersion: Function: PChar;
  PlugType: Function: PChar;
  PlugName: Function: PChar;
  PlugCopyright: Function: PChar;
  FileName: String;
  Handle: THandle;
begin
  with (Sender as TMenuItem) do
  FileName := PlugList.Strings[MenuIndex];
  Handle := LoadLibrary(PChar(FileName));
  if Handle = 0 then
  begin
  ShowErrorWND(PHOTO_ERROR_MODULE_NOT_INIT, '');
  end;
  if Handle <> 0 then
  begin
  @PlugName := GetProcAddress(Handle, 'PluginName');
  @PlugAbout := GetProcAddress(Handle, 'PluginAbout');
  @PlugAuthor := GetProcAddress(Handle, 'PluginAuthor');
  @PlugVersion := GetProcAddress(Handle, 'PluginVersion');
  @PlugType := GetProcAddress(Handle, 'PluginType');
  @PlugCopyright := GetProcAddress(Handle, 'PluginCopyright');
  if (PlugAbout <> NIL) AND (PlugAuthor <> NIL) AND (PlugVersion <> NIL) AND (PlugType <> NIL) AND (PlugName <> NIL) Then
  if (PlugType = 'PFP_FILTER') or (PlugType = 'PFP_UTIL') or (PlugType = 'PFP_IMPORT_GRAPHIC_FORMAT') or (PlugType = 'PFP_EXPORT_GRAPHIC_FORMAT') then
  begin
  MessageBox(Application.Handle, PCHar(PlugName +
  ' Aa?ney ' + PlugVersion + #13#10#13#10 +
  PlugCopyright +
  #13#10#13#10 +
  'Aaoi?: ' + PlugAuthor +
  #13#10#13#10 +
  PlugAbout
  ), 'I ieaaeia', MB_ICONASTERISK);
  end;
  end;
  FreeLibrary(Handle);
end;

procedure TFMain.FMTIClick(Sender: TObject);
var
  PlugExec: function(AObject: TObject; FileName: PChar): Boolean;
  PlugAbout: Function: PChar;
  PlugAuthor: Function: PChar;
  PlugVersion: Function: PChar;
  PlugType: Function: PChar;
  PlugName: Function: PChar;
  PlugFilter: Function: PChar;
  PlugCopyright: Function: PChar;
  FileName: String;
  Handle: THandle;
  od: TOpenDialog;
begin
  with (Sender as TMenuItem) do
  FileName := GraphIList.Strings[HelpContext - 1];
  Handle := LoadLibrary(PChar(FileName));
  if Handle = 0 then
  begin
  ShowErrorWND(PHOTO_ERROR_MODULE_NOT_INIT, '');
  end;
  if Handle <> 0 then
  begin
  @PlugName := GetProcAddress(Handle, 'PluginName');
  @PlugAbout := GetProcAddress(Handle, 'PluginAbout');
  @PlugAuthor := GetProcAddress(Handle, 'PluginAuthor');
  @PlugVersion := GetProcAddress(Handle, 'PluginVersion');
  @PlugType := GetProcAddress(Handle, 'PluginType');
  @PlugCopyright := GetProcAddress(Handle, 'PluginCopyright');
  @PlugExec := GetProcAddress(Handle, 'PluginExec');
  @PlugFilter := GetProcAddress(Handle, 'PluginFilter');
  if (@PlugAbout <> nil) and (@PlugAuthor <> nil) and (@PlugVersion <> nil) and (@PlugType <> NIL) and (@PlugName <> nil) and (@PlugFilter <> nil) and (@PlugCopyright <> nil) Then
    if PlugType = 'PFP_IMPORT_GRAPHIC_FORMAT' then
    begin
    LastFMT := TMenuItem(Sender).HelpContext;
    od := TOpenDialog.Create(nil);
    od.Filter := PlugFilter;
    od.Title := 'Eiii?o';
    od.OptionsEx := [ofExNoPlacesBar];
    Temp := TBitmap.Create;
    with Temp do
    begin
    PixelFormat := pf24Bit;
    Canvas.Brush.Color := BackColor;
    Canvas.FillRect(Rect(0, 0, $FF, $FF));
    end;
    if od.Execute Then
    begin
    try
    If PlugExec(Temp, PChar(od.FileName)) = True Then
    begin
    Win.FWin := Win.TFWin.CreatePlugForm(True, od.FileName, '', 0, 0, Temp, LeftStr(ExtractFileName(od.FileName), Length(ExtractFileName(od.FileName)) - Length(ExtractFileExt(od.FileName))), ExtractFileExt(od.FileName), FColorMixer.Label2.Color);
    AddInHistory('Eiii?o...');
    end;
    except
    end;
    end;
    Temp.Free;
    od.Free;
    end;
    if PlugType <> 'PFP_IMPORT_GRAPHIC_FORMAT' then
    begin
    ShowErrorWND(PHOTO_ERROR_BAD_MODULE_TYPE, '');
    end;
  end;
  FreeLibrary(Handle);
end;

procedure TFMain.FMTEClick(Sender: TObject);
var
  PlugExec: function(AObject: TObject; FileName: PChar): Boolean;
  PlugAbout: function: PChar;
  PlugAuthor: function: PChar;
  PlugVersion: function: PChar;
  PlugType: function: PChar;
  PlugName: function: PChar;
  PlugFilter: function: PChar;
  PlugCopyright: function: PChar;
  FileName: String;
  Handle: THandle;
  sd: TSaveDialog;
begin
  with (Sender as TMenuItem) do
  FileName := GraphEList.Strings[HelpContext - 1];
  Handle := LoadLibrary(PChar(FileName));
  if Handle = 0 then
  begin
  ShowErrorWND(PHOTO_ERROR_MODULE_NOT_INIT, '');
  end;
  if Handle <> 0 then
  begin
  @PlugName := GetProcAddress(Handle, 'PluginName');
  @PlugAbout := GetProcAddress(Handle, 'PluginAbout');
  @PlugAuthor := GetProcAddress(Handle, 'PluginAuthor');
  @PlugVersion := GetProcAddress(Handle, 'PluginVersion');
  @PlugType := GetProcAddress(Handle, 'PluginType');
  @PlugCopyright := GetProcAddress(Handle, 'PluginCopyright');
  @PlugExec := GetProcAddress(Handle, 'PluginExec');
  @PlugFilter := GetProcAddress(Handle, 'PluginFilter');
  if (@PlugAbout <> NIL) AND (@PlugAuthor <> NIL) AND (@PlugVersion <> NIL) AND (@PlugType <> NIL) AND (@PlugName <> NIL) AND (@PlugFilter <> NIL) AND (@PlugCopyright <> NIL) Then
    if PlugType = 'PFP_EXPORT_GRAPHIC_FORMAT' then
    begin
    LastFMT := TMenuItem(Sender).HelpContext;
    sd := TSaveDialog.Create(nil);
    sd.Filter := PlugFilter;
    sd.Title := 'Yenii?o';
    sd.OptionsEx := [ofExNoPlacesBar];
    if sd.Execute Then
    begin
    try
    PlugExec(FWin.Image1.Picture.Bitmap, PChar(sd.FileName));
    except
    end;
    end;
    sd.Free;
    end;
    if PlugType <> 'PFP_EXPORT_GRAPHIC_FORMAT' then
    begin
    ShowErrorWND(PHOTO_ERROR_BAD_MODULE_TYPE, '');
  end;
  end;
  FreeLibrary(Handle);
end;

procedure TFMain.MDLClick(Sender: TObject);
var
  PlugExec: procedure;
  PlugAbout: function: PChar;
  PlugAuthor: function: PChar;
  PlugVersion: function: PChar;
  PlugType: function: PChar;
  PlugName: function: PChar;
  PlugCopyright: function: PChar;
  FileName: String;
  Handle: THandle;
begin
  with (Sender as TMenuItem) do
  FileName := UtilList.Strings[HelpContext - 1];
  Handle := LoadLibrary(PChar(FileName));
  if Handle = 0 then
  begin
  ShowErrorWND(PHOTO_ERROR_MODULE_NOT_INIT, '');
  end;
  if Handle <> 0 then
  begin
  @PlugName := GetProcAddress(Handle, 'PluginName');
  @PlugAbout := GetProcAddress(Handle, 'PluginAbout');
  @PlugAuthor := GetProcAddress(Handle, 'PluginAuthor');
  @PlugVersion := GetProcAddress(Handle, 'PluginVersion');
  @PlugType := GetProcAddress(Handle, 'PluginType');
  @PlugCopyright := GetProcAddress(Handle, 'PluginCopyright');
  @PlugExec := GetProcAddress(Handle, 'PluginExec');
  if (@PlugAbout <> NIL) AND (@PlugAuthor <> NIL) AND (@PlugVersion <> NIL) AND (@PlugType <> NIL) AND (@PlugName <> NIL) Then
    if PlugType = 'PFP_UTIL' then
    begin
    LastMDL := TMenuItem(Sender).HelpContext;
    PlugExec;
    end;
    if PlugType <> 'PFP_UTIL' then
    begin
    ShowErrorWND(PHOTO_ERROR_BAD_MODULE_TYPE, '');
    end;
  end;
  FreeLibrary(Handle);
end;