Daily Archives: 30.05.2016

Delphi. TRichView. Идентификаторы итемов

Posted on 30.05.2016 by Stanislav_Panteleev

Если, например, выделить таблицу и написать вот такой код,

...
ShowMessage(richviewEdit1.GetCurrentItem.StyleNo.ToString());
...

...

ShowMessage(richviewEdit1.GetCurrentItem.StyleNo.ToString());

...

то получим следующий результат А всё дело в том, что каждый итем в TrichView обладает своим идентификатором. Код, который был написан выше позволяет определить этот идентификатор и сказать, например, таблица … Continue reading →

Posted in Delphi, TRichView | Comments Off

Delphi. TRichView. Пример вставки таблицы 5*5

Posted on 30.05.2016 by Stanislav_Panteleev

В TRichView, таблицы достаточно сложный объект. Поэтому пару тройку постов наверное сделаю, для того, чтобы разобраться как там всё устроено. Пока что научился вставлять таблицу таким образом.

Posted in Delphi, TRichView | Comments Off

Delphi. Как открыть папку и узнать об ошибке, если что?

Posted on 30.05.2016 by Stanislav_Panteleev

На многих форумах на вопрос – как открыть папку дают примерно такой ответ, а вот так… На примере папки files, лежащей в директории приложения

ShellExecute(Handle,'open',PWideChar(ExtractFilePath(Application.ExeName) + '\files\'),nil,nil,SW_SHOWNORMAL);

1	ShellExecute(Handle,'open',PWideChar(ExtractFilePath(Application.ExeName) + '\files\'),nil,nil,SW_SHOWNORMAL);

Но если немного почитать MSDN и различные умные блоги, то получится вот так…

procedure TMainForm.bOpenFolderClick(Sender: TObject);
var
  ErrorCode: integer;
begin

ErrorCode:=shellAPI.ShellExecute(Handle,'open',PWideChar(ExtractFilePath(Application.ExeName) + '\files\'),nil,nil,SW_SHOWNORMAL);


if ErrorCode <= HINSTANCE_ERROR { = 32 } then
  begin
    case ErrorCode of
      0: Application.MessageBox(PChar('The operating system is out of memory or resources.'), 'Error', MB_OK or MB_ICONERROR);
      ERROR_FILE_NOT_FOUND: Application.MessageBox(PChar('The specified file was not found.'), 'Error', MB_OK or MB_ICONERROR);
      ERROR_PATH_NOT_FOUND: Application.MessageBox(PChar('The specified path was not found.'), 'Error', MB_OK or MB_ICONERROR);
      ERROR_BAD_FORMAT: Application.MessageBox(PChar('The .exe file is invalid (non-Win32 .exe or error in .exe image).'), 'Error', MB_OK or MB_ICONERROR);
      SE_ERR_ACCESSDENIED: Application.MessageBox(PChar('The operating system denied access to the specified file.'), 'Error', MB_OK or MB_ICONERROR);
      SE_ERR_ASSOCINCOMPLETE: Application.MessageBox(PChar('The file name association is incomplete or invalid.'), 'Error', MB_OK or MB_ICONERROR);
      SE_ERR_DDEBUSY: Application.MessageBox(PChar('The DDE transaction could not be completed because other DDE transactions were being processed.'), 'Error', MB_OK or MB_ICONERROR);
      SE_ERR_DDEFAIL: Application.MessageBox(PChar('The DDE transaction failed.'), 'Error', MB_OK or MB_ICONERROR);
      SE_ERR_DDETIMEOUT: Application.MessageBox(PChar('The DDE transaction could not be completed because the request timed out.'), 'Error', MB_OK or MB_ICONERROR);
      SE_ERR_DLLNOTFOUND: Application.MessageBox(PChar('The specified DLL was not found.'), 'Error', MB_OK or MB_ICONERROR);
//Dublicated//  SE_ERR_FNF: Application.MessageBox(PChar('The specified file was not found.'), 'Error', MB_OK or MB_ICONERROR);
      SE_ERR_NOASSOC: Application.MessageBox(PChar('There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable.'), 'Error', MB_OK or MB_ICONERROR);
      SE_ERR_OOM: Application.MessageBox(PChar('There was not enough memory to complete the operation.'), 'Error', MB_OK or MB_ICONERROR);
//Dublicated//       SE_ERR_PNF: Application.MessageBox(PChar('The specified path was not found.'), 'Error', MB_OK or MB_ICONERROR);
      SE_ERR_SHARE: Application.MessageBox(PChar('A sharing violation occurred.'), 'Error', MB_OK or MB_ICONERROR);
    else
      Application.MessageBox(PChar(Format('Unknown Error %d', [ErrorCode])), 'Error', MB_OK or MB_ICONERROR);
    end;

  end;



end;

procedure TMainForm.bOpenFolderClick(Sender: TObject);

var

ErrorCode: integer;

begin

ErrorCode:=shellAPI.ShellExecute(Handle,'open',PWideChar(ExtractFilePath(Application.ExeName) + '\files\'),nil,nil,SW_SHOWNORMAL);

if ErrorCode <= HINSTANCE_ERROR { = 32 } then

begin

case ErrorCode of

0: Application.MessageBox(PChar('The operating system is out of memory or resources.'), 'Error', MB_OK or MB_ICONERROR);

ERROR_FILE_NOT_FOUND: Application.MessageBox(PChar('The specified file was not found.'), 'Error', MB_OK or MB_ICONERROR);

ERROR_PATH_NOT_FOUND: Application.MessageBox(PChar('The specified path was not found.'), 'Error', MB_OK or MB_ICONERROR);

ERROR_BAD_FORMAT: Application.MessageBox(PChar('The .exe file is invalid (non-Win32 .exe or error in .exe image).'), 'Error', MB_OK or MB_ICONERROR);

SE_ERR_ACCESSDENIED: Application.MessageBox(PChar('The operating system denied access to the specified file.'), 'Error', MB_OK or MB_ICONERROR);

SE_ERR_ASSOCINCOMPLETE: Application.MessageBox(PChar('The file name association is incomplete or invalid.'), 'Error', MB_OK or MB_ICONERROR);

SE_ERR_DDEBUSY: Application.MessageBox(PChar('The DDE transaction could not be completed because other DDE transactions were being processed.'), 'Error', MB_OK or MB_ICONERROR);

SE_ERR_DDEFAIL: Application.MessageBox(PChar('The DDE transaction failed.'), 'Error', MB_OK or MB_ICONERROR);

SE_ERR_DDETIMEOUT: Application.MessageBox(PChar('The DDE transaction could not be completed because the request timed out.'), 'Error', MB_OK or MB_ICONERROR);

SE_ERR_DLLNOTFOUND: Application.MessageBox(PChar('The specified DLL was not found.'), 'Error', MB_OK or MB_ICONERROR);

//Dublicated// SE_ERR_FNF: Application.MessageBox(PChar('The specified file was not found.'), 'Error', MB_OK or MB_ICONERROR);

SE_ERR_NOASSOC: Application.MessageBox(PChar('There is no application associated with the given file name extension. This error will also be returned if you attempt to print a file that is not printable.'), 'Error', MB_OK or MB_ICONERROR);

SE_ERR_OOM: Application.MessageBox(PChar('There was not enough memory to complete the operation.'), 'Error', MB_OK or MB_ICONERROR);

//Dublicated// SE_ERR_PNF: Application.MessageBox(PChar('The specified path was not found.'), 'Error', MB_OK or MB_ICONERROR);

SE_ERR_SHARE: Application.MessageBox(PChar('A sharing violation occurred.'), 'Error', MB_OK or MB_ICONERROR);

else

Application.MessageBox(PChar(Format('Unknown Error %d', [ErrorCode])), 'Error', MB_OK or MB_ICONERROR);

end;

Такой … Continue reading →

Posted in Без рубрики | Comments Off

Seattle, seattle…

Posted on 30.05.2016 by Stanislav_Panteleev

Posted in Delphi, Без рубрики | Comments Off

Speed is Delphi )))

Posted on 30.05.2016 by Stanislav_Panteleev

Этот старый прикольный ролик)))

Posted in Delphi | Comments Off

Delphi. TRichView. Добавляем файл

Posted on 30.05.2016 by Stanislav_Panteleev

В данном посте добавим к документу файл, в качестве ссылки. Выглядеть это будет следующим образом При открытии гиперссылки будет открываться файл

Posted in Delphi, TRichView | Comments Off

Просто так…

Posted on 30.05.2016 by Stanislav_Panteleev

Posted in Без рубрики | Comments Off

Delphi.TRichView. Добавляем гиперссылки

Posted on 30.05.2016 by Stanislav_Panteleev

В этом посте мы узнаем как в TRichView заставить гиперссылки работать, а также как программно добавить гиперссылку. Как заставить TrichView понимать гиперссылки? В своем тестовом примере я уже добавил действие rvActionsResource.rvActionInsertHyperlink1, но этого оказалось недостаточно. Ссылки добавляются, но переход по ним не … Continue reading →

Posted in Delphi, TRichView | Comments Off

Daily Archives: 30.05.2016

Delphi. TRichView. Идентификаторы итемов

Delphi. TRichView. Пример вставки таблицы 5*5

Delphi. Как открыть папку и узнать об ошибке, если что?

Seattle, seattle…

Speed is Delphi )))

Delphi. TRichView. Добавляем файл

Просто так…

Delphi.TRichView. Добавляем гиперссылки

MY PROJECTS

Recent Posts

Categories