Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> VCL2OCX, сабж 
:(
    Опции темы
efedron
Дата 26.6.2006, 07:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: нет
Всего: 4
Albinos_x, 
ну что, так ничего и не получилось?
им как библиотекой типов надо пользоваться? вроде все методы и свойства вижу, но так и не понял как на форму его вывести??
З.Ы. еще при закрытии приложения в режиме отладки среда зависает smile 
--------------------
Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.
PM MAIL   Вверх
Albinos_x
Дата 27.6.2006, 17:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
Цитата(efedron @  26.6.2006,  07:24 Найти цитируемый пост)
ну что, так ничего и не получилось?

просто пока времени не было... работа млин... 


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
efedron
Дата 5.7.2006, 09:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: нет
Всего: 4
Albinos_x, 
есть новости? 
--------------------
Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.
PM MAIL   Вверх
Albinos_x
Дата 12.7.2006, 23:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
выслал на почту перекомпилированный по новой... хотя в принципе ничего не изменилось...
но отмечу некоторые вещи:
1. Компонент должен находиться в папке с английским или цифровым путём ... иначе у меня тоже пишет что компонент не загружается...
2. Для проверки его функционирования набросал простенький макрос в Word ... следующего содержания:
Код

Sub Макрос1()
'
' Ìàêðîñ1 Ìàêðîñ
' Ìàêðîñ çàïèñàí 05.07.2006 Albinos_X
'
      Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.TypeParagraph
    Selection.TypeText Text:="чччч"
    Selection.MoveLeft Unit:=wdCharacter, Count:=11, Extend:=wdExtend
    Selection.Font.Italic = wdToggle
    If Selection.Font.Underline = wdUnderlineNone Then
        Selection.Font.Underline = wdUnderlineSingle
    Else
        Selection.Font.Underline = wdUnderlineNone
    UserForm1.Show
    UserForm1.htmlLiteX1.LoadFromString s:="aaaaaa", Reference:="11111"
    
    End If
   
End Sub

Предварительно  соответственно зарегистрировав компонент и создав форму с этим компонентом... выполняется без проблем... появляется форма с контролом внутри текст 
Цитата

"aaaaaa"


Удачи! smile  


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
efedron
Дата 28.7.2006, 12:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: нет
Всего: 4
Albinos_x, 
разозобрался что не хватало компоненте - stdvcl40.dll - а без него никак?
а как же Runtime pakage? 
--------------------
Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.
PM MAIL   Вверх
Albinos_x
Дата 28.7.2006, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
пока видимо никак... как появитя время рассмотрю этот вопрос... но это будет не скоро.... 


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
efedron
Дата 2.8.2006, 13:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: нет
Всего: 4
Albinos_x, 
Цитата

tdvcl40.dll - а без него никак?

это-то еще не так критично, больше напрягает то, что при выгрузке формы с контролом в режиме отладки среда разработки зависает, приходится при выходе писать ExitProcess 0, но тогда среда вылетает без сохранения smile
--------------------
Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.
PM MAIL   Вверх
Albinos_x
Дата 2.8.2006, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
Цитата(efedron @  2.8.2006,  13:45 Найти цитируемый пост)
что при выгрузке формы с контролом в режиме отладки среда разработки зависает

тоже заметил эту фигню... в чём проблема пока не нашёл... smile ....


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
efedron
Дата 3.8.2006, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 135
Регистрация: 16.3.2005

Репутация: нет
Всего: 4
такое ощущение, что некоторых методов, которые есть в vcl нет в ocx, напр.
VScrollbarPosition,VScrollbarRange и т.д.
И потом, непонятно, как загрузить в него не весь документ, а только добавить необходимую строку?
Че-то на офсайте не найду справки по использованию...
--------------------
Прежде чем совершить акт разрезания определенной материи целесообразно удостовериться в правильности всех произведенных измерений.
PM MAIL   Вверх
Albinos_x
Дата 3.8.2006, 18:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 2
Всего: 108
в моём ocx одна процедура отключена частично (IncludeEvent), т.к. из-за него возникали проблемы с компиляцией...т.е. полноченно работать не будет эта процедура...

набор имеющихся функций:
Код

procedure HistoryChangeEvent(Sender: TObject);
    procedure HotSpotClickEvent(Sender: TObject; const SRC: String;
      var Handled: Boolean);
    procedure HotSpotCoveredEvent(Sender: TObject; const SRC: String);
    procedure IncludeEvent(Sender: TObject; const Command: String;
      Params: TStrings; var IString: String);
    procedure KeyPressEvent(Sender: TObject; var Key: Char);
    procedure MetaEvent(Sender: TObject; const HttpEq, Name, Content: String);
    procedure MetaRefreshEvent(Sender: TObject; Delay: Integer;
      const URL: String);
    procedure ProcessingEvent(Sender: TObject; ProcessingOn: Boolean);
    procedure SoundRequestEvent(Sender: TObject; const SRC: String;
      Loop: Integer; Terminate: Boolean);
  protected
    { Protected declarations }
    procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;
    procedure EventSinkChanged(const EventSink: IUnknown); override;
    procedure InitializeControl; override;
    function DisplayPosToXy(DisplayPos: Integer; var X, Y: Integer): WordBool;
      safecall;
    function DrawTextBiDiModeFlagsReadingOnly: Integer; safecall;
    function Find(const S: WideString; MatchCase: WordBool): WordBool;
      safecall;
    function FindDisplayPos(SourcePos: Integer; Prev: WordBool): Integer;
      safecall;
    function FindSourcePos(DisplayPos: Integer): Integer; safecall;
    function Get_AlignDisabled: WordBool; safecall;
    function Get_Base: WideString; safecall;
    function Get_BaseTarget: WideString; safecall;
    function Get_BorderStyle: TxHTMLBorderStyle; safecall;
    function Get_CaretPos: Integer; safecall;
    function Get_CharSet: Byte; safecall;
    function Get_CurrentFile: WideString; safecall;
    function Get_DefBackground: OLE_COLOR; safecall;
    function Get_DefFontColor: OLE_COLOR; safecall;
    function Get_DefFontName: WideString; safecall;
    function Get_DefFontSize: Integer; safecall;
    function Get_DefHotSpotColor: OLE_COLOR; safecall;
    function Get_DefOverLinkColor: OLE_COLOR; safecall;
    function Get_DefPreFontName: WideString; safecall;
    function Get_DefVisitedLinkColor: OLE_COLOR; safecall;
    function Get_DocumentTitle: WideString; safecall;
    function Get_DoubleBuffered: WordBool; safecall;
    function Get_Enabled: WordBool; safecall;
    function Get_History: IStrings; safecall;
    function Get_HistoryIndex: Integer; safecall;
    function Get_HistoryMaxCount: Integer; safecall;
    function Get_ImageCacheCount: Integer; safecall;
    function Get_MarginHeight: Integer; safecall;
    function Get_MarginWidth: Integer; safecall;
    function Get_NoSelect: WordBool; safecall;
    function Get_Palette: LongWord; safecall;
    function Get_Position: Integer; safecall;
    function Get_Processing: WordBool; safecall;
    function Get_ScrollBars: TxScrollStyle; safecall;
    function Get_SelLength: Integer; safecall;
    function Get_SelStart: Integer; safecall;
    function Get_SelText: WideString; safecall;
    function Get_ServerRoot: WideString; safecall;
    function Get_Target: WideString; safecall;
    function Get_TitleHistory: IStrings; safecall;
    function Get_URL: WideString; safecall;
    function Get_ViewImages: WordBool; safecall;
    function Get_Visible: WordBool; safecall;
    function Get_VisibleDockClientCount: Integer; safecall;
    function Get_VisitedMaxCount: Integer; safecall;
    function Get_VScrollBarPosition: Integer; safecall;
    function Get_VScrollBarRange: Integer; safecall;
    function HTMLExpandFilename(const Filename: WideString): WideString;
      safecall;
    function IsRightToLeft: WordBool; safecall;
    function PositionTo(const Dest: WideString): WordBool; safecall;
    function UseRightToLeftReading: WordBool; safecall;
    function UseRightToLeftScrollBar: WordBool; safecall;
    procedure BumpHistory(const FileName, Title: WideString; OldPos: Integer;
      ft: TxhtmlFileType); safecall;
    procedure Clear; safecall;
    procedure ClearHistory; safecall;
    procedure CopyToClipboard; safecall;
    procedure DoEnter; safecall;
    procedure DoExit; safecall;
    procedure InitiateAction; safecall;
    procedure LoadFromFile(const FileName: WideString); safecall;
    procedure LoadFromString(const S, Reference: WideString); safecall;
    procedure LoadImageFile(const FileName: WideString); safecall;
    procedure LoadStrings(const Strings: IStrings;
      const Reference: WideString); safecall;
    procedure LoadTextFile(const FileName: WideString); safecall;
    procedure LoadTextFromString(const S: WideString); safecall;
    procedure LoadTextStrings(const Strings: IStrings); safecall;
    procedure Reload; safecall;
    procedure SelectAll; safecall;
    procedure Set_Base(const Value: WideString); safecall;
    procedure Set_BorderStyle(Value: TxHTMLBorderStyle); safecall;
    procedure Set_CaretPos(Value: Integer); safecall;
    procedure Set_CharSet(Value: Byte); safecall;
    procedure Set_DefBackground(Value: OLE_COLOR); safecall;
    procedure Set_DefFontColor(Value: OLE_COLOR); safecall;
    procedure Set_DefFontName(const Value: WideString); safecall;
    procedure Set_DefFontSize(Value: Integer); safecall;
    procedure Set_DefHotSpotColor(Value: OLE_COLOR); safecall;
    procedure Set_DefOverLinkColor(Value: OLE_COLOR); safecall;
    procedure Set_DefPreFontName(const Value: WideString); safecall;
    procedure Set_DefVisitedLinkColor(Value: OLE_COLOR); safecall;
    procedure Set_DoubleBuffered(Value: WordBool); safecall;
    procedure Set_Enabled(Value: WordBool); safecall;
    procedure Set_HistoryIndex(Value: Integer); safecall;
    procedure Set_HistoryMaxCount(Value: Integer); safecall;
    procedure Set_ImageCacheCount(Value: Integer); safecall;
    procedure Set_MarginHeight(Value: Integer); safecall;
    procedure Set_MarginWidth(Value: Integer); safecall;
    procedure Set_NoSelect(Value: WordBool); safecall;
    procedure Set_Palette(Value: LongWord); safecall;
    procedure Set_Position(Value: Integer); safecall;
    procedure Set_ScrollBars(Value: TxScrollStyle); safecall;
    procedure Set_SelLength(Value: Integer); safecall;
    procedure Set_SelStart(Value: Integer); safecall;
    procedure Set_ServerRoot(const Value: WideString); safecall;
    procedure Set_ViewImages(Value: WordBool); safecall;
    procedure Set_Visible(Value: WordBool); safecall;
    procedure Set_VisitedMaxCount(Value: Integer); safecall;
    procedure Set_VScrollBarPosition(Value: Integer); safecall;
    procedure SetSubComponent(IsSubComponent: WordBool); safecall;



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1431 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.