Проблема цветов в TKOLEditBox

← →
Isaev © (2007-08-12 20:40) [0]

Первый раз установил проэкт, поэтому вопросы наверное глупые...
1. Как сделать внешний вид KOLEditBox как обычного из VCL (у меня цвет фона как цвет формы, а буквы вводятся на белом... Очень неприятный эффект). Как установить белый цвет фона контрола?
2. Как скомпилиповать проэкт с иконкой?

3. В поле Font компонентов, лучше сделать кнопку [...] как в VCL, а то помнить имена всех шрифтов неудобно.

А в общем отличный проэкт!!! Автору RESPECT!

← →
Дмитрий К © (2007-08-12 21:14) [1]

1. В Object Inspector - Color = clWindow, parentColor = False
2. В Object Inspector - KOLProject1: dprResource = True
3. http://www.kolnmck.ru/files/components/mckext/kolfonteditor.7z

← →
Isaev © (2007-08-12 23:25) [2]

1. так и установлено...
2. iconka появилась в проводнике (в заголовке формы пусто, в свёрнутом виде - от Delphi?
Вот собственно пример: http://slil.ru/24729034

← →
Дмитрий К © (2007-08-12 23:42) [3]

А если убрать SMALLEST_CODE?

← →
Дмитрий К © (2007-08-12 23:46) [4]

У KOLForm1 Icon = ""; иконку назначить через Project Options

← →
Isaev © (2007-08-12 23:48) [5]

kolfonteditor - выдаёт ошибку
[Fatal Error] MirrorKOLPackageD7.dpk(48): Unit mirror was compiled with a different version of KOL.TOnChar

← →
Дмитрий К © (2007-08-12 23:51) [6]

> kolfonteditor - выдаёт ошибку
> [Fatal Error] MirrorKOLPackageD7.dpk(48): Unit mirror was
> compiled with a different version of KOL.TOnChar

Build обоим

← →
Isaev © (2007-08-12 23:58) [7]

Во, работает!
А Еdit серый был из-за SMALLEST_CODE???

← →
Дмитрий К © (2007-08-13 00:13) [8]

> А Еdit серый был из-за SMALLEST_CODE???

Да

← →
Isaev © (2007-08-13 00:53) [9]

Спасибо за оперативную помощь!
Удачи!

Ещё наверное обращусь не раз ;)

← →
Isaev © (2007-08-13 01:24) [10]

А что вместо TImage можно использовать?

← →
Vedun (2007-08-13 09:04) [11]

PaintBox. Только картинку выводить руками придется. А вообще рекомендую скачать книгу по KOL. На главном сайте должна лежать.

← →
Isaev © (2007-08-13 14:18) [12]

"Книга о KOL" я сразу скачал... Там описано использование TKOLImageList но это не всегда удобно (например если изображения разные).

Как средствами KOL работать с Clipboard???
Раньше делал так:
Uses ClipBrd; Clipboard.asText:="Text";
Чем это теперь можно заменить?...

KOL.pas:
//[clipboard FUNCTIONS DECLARATIONS] function ClipboardHasText: Boolean; {* Returns true, if the clipboard contain text to paste from. } function Clipboard2Text: String; {* If clipboard contains text, this function returns it for You. } {$IFNDEF _FPC} {$IFNDEF _D2} function Clipboard2WText: WideString; {* If clipboard contains text, this function returns it for You (as Unicode string). } {$ENDIF _D2} {$ENDIF _FPC} function Text2Clipboard( const S: String ): Boolean; {* Puts given string to a clipboard. } {$IFNDEF _FPC} {$IFNDEF _D2} function WText2Clipboard( const WS: WideString ): Boolean; {* Puts given Unicode string to a clipboard. |<hr> } {$ENDIF _D2} {$ENDIF _FPC}

Во... Всё уже написано!!!
Я сделал так:
TextBuf:=GlobalAlloc(gHnd,Length(Str)); If TextBuf<>0 Then Begin PText:=GlobalLock(TextBuf); If PText<>Nil Then Move(Str[1],PText^,Length(Str)); End; Wnd:=Form.Handle; OpenClipboard(Wnd); EmptyClipboard(); SetClipboardData(CF_TEXT,TextBuf); CloseClipboard();
получилось на 512 байт меньше, чем через Text2Clipboard
а на сколько это корректно???
и не понял, почему Form.Handle;(просто больше ничего не подошло) :)

у формы название Form1:TForm1
у KOLобъекта - MForm:TKOLForm

Но у них нет Handla
А откуда берётся Form?

RTFM.

KOLmirrorReadme_rus.txt:

> - Для разрешения конфликта между VCL.Self и KOL.@Self введено
> заменяющее слово Form, которое требуется теперь использовать
> при написании кода в зеркальном проекте как синоним @Self
> для формы. На этапе разработки Form "как бы возвращает"
> Self (как бы - потому что этот код никогда не компилируется
> и не исполняется). После конверсии проекта Form ссылается
> теперь на объект формы (Form теперь является полем объекта,
> содержащего форму и ее дочерние объекты, и имеет тип PControl
> - в полном соответствии с требованиями KOL).
> Таким образом, не следует писать в обработчике события
> Caption := "Привет";
> Такой код не будет скомпилирован. Вместо этого следует писать:
> Form.Caption := "Привет";

Проблема цветов в TKOLEditBox Найти похожие ветки