FreePascal.ru

В исходниках LCL довольно часто можно встретить такое:

TmpCanvas := TCanvas.Create;
TmpCanvas.Handle:=GetDC(0);
TmpCanvas.Draw(...


Что то подобное есть в Grid.pas

Но вроде как GetDc - это чисто виндовая вещь... Но тогда с другой стороны непонятно, почему это ...

Хы... шайтан.

Взял uses из некого исходного файла самого Lazarus:

Classes, SysUtils, LResources,LMessages,Messages,
Forms, Controls, Graphics, Dialogs,
ExtCtrls, Buttons, StdCtrls,Menus,comctrls;

И все получилось... Шайтан!

Добавлено спустя 1 минуту 21 секунду:
Притом, к сожалению не ...

Притом в Delphi 7 этот код компилируется прекрасно.

Вообще RECT это тип объявленный в модуле struct.ins. Но я его не включал в uses.

Еще скажу: делаю такой финт:

r := TRect(rect(0,0,10,10)); - срабатывает!

Далее вызываю!!!:

Canvas.CopyRect(r,sourceCanvas,r);

Компилятор опять ...

Вот этот код:



порождает вот такую ошибку: formmain.pas(260,7) Error: Incompatible types: got "RECT" expected "TRect"

Кто нибудь сталкивался? Видимо какя то кривая настройка компилятора?

Но это просто изменение размера панели с рисованием пунктира по контуру.
Панель то остается непрозрачной. .. если я правильно понял.

Я вроде нашел решение через процедуру Canvas.CopyRect.

Правда в последнем снапшоте который я скачал - как то криво компилируются присваивания типа:

r:=Rect(0,0,100 ...

Хорошо, задам вопрос по другому: как средствами Лазаруса рисовать на рабочем столе?

ИЛИ: как сделать полностью прозрачное окно?

Предполагается что я ориентируюсь на кросплатформенность.

Добавлено спустя 1 час 45 минут 30 секунд:
Или такой вариант: как рисовать на канве формы, чтобы при этом ...

Вопросы такие:
1) как сделать, чтобы при перемещении ToolBar или панели рисовался прозрачный контур, следующий за курсором мыши?
2) Как сделать рисование рамки поверх всех визуальных компонентов на форме, если я выполняю действие типа "выделить объекты" (двигаю мышку с нажатой левой кнопкой)?

Vadim писал(а):Тогда попробуйте вместо 0.9.26 поставить текущий снапшот 0.9.27.
У меня что-то такое было подобное в 0.9.26, которое стало работать в 0.9.27.

Поставил.. все стабильно плохо. Видимо надо делать компонент с нормальной транслитерацией....

Проверил вот так:
SQLQuery1.Open;
Edit2.Text := AnsiToUtf8(SQLQuery1.FieldByName('nm_u').AsString);

..и ..оно.. ЗАРАБОТАЛО!!!... Но это на уровне отдельного Edit...

А вот хоть в таком варианте: procedure TForm2.StringField1GetText(Sender: TField; var aText&#58 ...

1. В TSQLQuery редактируете поля (правой кнопкой мыши вызываете контекстное меню, выбираете первый пункт).
2. Для текстовых полей смотрите метод GetText (получить текст) и переопределяете его.
procedure TDM.qAutoTypeTYPE_NAMEGetText (Sender: TField; var aText: string;
DisplayText&#58 ...

Однако....
Тогда уже лучше определить новый тип - какой нибудь SQLQueryAnsi и там все это переопределить.

Я читал про компоненты Zeos. Никто не в курсе - там эта проблема решена (ну типа может свойство какое то есть)?

Что-то не то. Я так понимаю UTF8 (Юникод) - он по умолчанию стоит в последних версиях Lazarus-а.
Надо заставить его переводить входящий поток в Win1251 в UTF...

А что писать? Попробовал WIN1251, 1251, RUSSIAN_CHARSET, RUSSIAN_CIS.CL8MSWIN1251... Без успеха...
А лучше всего подскажите где почитать про компонент OracleConnection и какие значения может принимать CharSet?
Видимо, нужно указывать словосочетание узнаваемое Lazarus-ом...

Через OracleConnection.
Я там вижу свойство CharSet... Это оно?
Или это делать через свойство Params?

Я совершенно новичок в Lazarus. Неделю назад скачал с сайта их последнюю версию (0.9.26).
Так вот - все прекрасно, сходство с Дельфи очень вдохновляет, программы работают быстро, разрабатывать изумительно просто. Мелкие недочеты - совершенно не мешают работать.

Теперь дошел до работы с БД. Успешно ...