Monthly Archives: May 2016

Delphi.TrichView. Вставка HTML текста и отображение его в браузере

Posted on 31.05.2016 by Stanislav_Panteleev

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

Posted in Delphi, TRichView | Comments Off

Delphi.TRichView. Работа с анимированными Gif изображениями

Posted on 31.05.2016 by Stanislav_Panteleev

С “полпинка” не завелось, пришлось лезть в документацию TRichView. Если воспользоваться TRichViewActions по добавлению картинок, то gif формат там присутствует, но если загрузить анимированное gif изображение, то оно не движется. Мне пришлось решать 2 задачи

Posted in Delphi, TRichView | Comments Off

Delphi.TRichView. Таблицы. Работа с колонками и рядами

Posted on 31.05.2016 by Stanislav_Panteleev

Работу с колонками и рядами я “запрятал” в контекстное меню следующим образом… При выделении таблицы или её части и нажатии на правую клавишу мыши выпадает вот такое меню, позволяющее работать с колонками и рядами таблицы.

Posted in Delphi, TRichView | Comments Off

Delphi. TRichView. TRichViewActions. Добавление таблицы. Изменение её свойств

Posted on 31.05.2016 by Stanislav_Panteleev

В данном посте мы научимся вставлять таблицы, используя TRichViewActions, редактировать их, добавлять колонки, ряды и удалять их. Будет представлен подход, совмещающий дизайнтайм и рантайм. Я уже писал про добавление таблиц в TRichViewEditor, там был пример вставки таблицы программно, с заданием … Continue reading →

Posted in Delphi, TRichView | Comments Off

Delphi. UniGUI. Desktop

Posted on 31.05.2016 by Stanislav_Panteleev

Вчера увидел на форуме UniGUI интересное приложение, написанное одним из участников из Бразилии, выглядит оно вот так… То есть, по сути, это рабочий стол в браузере – на мой взгляд, интересный вариант интерфейса для веб-программ. Посмотрел исходный код – ничего … Continue reading →

Posted in Delphi, UniGui | Comments Off

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