FreePascal.ru

Надеюсь, что вы поняли что мне нужно.
не сильно. Или Aleh верно "послал"?
Да, он имел ввиду обращение Image+++переменная.Picture, глядя на оканчивающиеся числами переменные в исходниках, где "+++"-волшебная конструкция, которую он хотел узнать.
Уважаемый kriks_, если Вы нечего не поняли, что ...

А как понять, куда щёлкнул юзер, в картинки или текст?
или надо напильником вроде
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var tn:TTreeNode;
left1, ww, ww1, ww2:integer;
begin
tn:=TreeView1&#46 ...

Поняли, вот держите https://dipstar.by/kursovie-programmirovanie

Да, блин, TMapPt просто взят для примера, как самый простой рекорд, а вообще в рекордах обычно 10-20 полей. С публикацией элементов я уже пробовал - ерунда. Лазарь "недолюбливает" такие вещи как "read FMapPt.x", об них сильно спотыкался TTIPropertyGrid. В частности для точки положения карты этот ...

Обработчик чего?
Сказано же - пропертей. Код (рамочно) в посте выше.
Написал первую обёртку TCoverMapRect. Что-то не то. Получается, на такие проперти надо писать персональные обработчики, что не есть хорошо. ...думаю.

Добавлено спустя 5 минут 12 секунд:
Строковое представление в хозяйстве ...

Нет, это хуже классов-обёрток.
Вот пришла в обработчик BasePoint:string. откуда обработчик узнает, что это TMapPt? У класса-обёртки есть инфа, у строчки-нет.

Добавлено спустя 12 минут 39 секунд:
Немного поясню по обработчику

var TypInf:TPropInfo;//описание текущей проперти
begin
.&#46 ...

Как в published property обрабатывать record, или как опросить publiс property функций типа GetPropList(self, PropList) из модуля typinfo.
Есть record, например

PMapPt = ^TMapPt
TMapPt = packed record
case Integer of
1:(N, n1:integer; x, y, z:double);
2:(N64:int64);
end ...

1 часть ответа - Установка предопределённых форматов бумаги Printer.PapSize.PaperName:=PaperName; - работает, проверено!
фрагмент исходников для "ленивых"..
function PaperSet(Prn1: TPrinter; PaperInd: integer): string;
//устанавливает бумагу в принтер и возвращает её название
var ...

..проект готов, приступаем к печати. Документы нужно разослать по принтерам.
Самый минимум: большие - на плоттер, маленькие - на ближайший принтер (прога знает на какие, и какие нужны форматы бумаги).

Printer.PrinterIndex:=3; //ставим принтер, скорее всего работает, не проверял, но видел работу в ...

DYUMON писал(а):У меня вопрос возник , а нафига 64 бит приложения для работы с access ?

64 бит приложения - это сегодняшняя реальность, а подгрузить базу аксеса просто дополнительная возможность.

Повторил тест DYUMON c установкой AccessDatabaseEngine_X64.exe на чистой W7x64
1. Чистая W7x64 - не работают 32 и 64битные проги
2. После установки AccessDatabaseEngine_X64.exe заработали все 64битные проги, 32-битная нет.
3. AccessDatabaseEngine.exe 32битный стать сверху отказался, надо сносить ...

Да, в смысле, что проблема не в Лазаре, а в ODBC.
Не работает, ошибка та-же что у моего ехе.

olegy123 писал(а):скорее они сидят в каком нибудь пакете, например Офисном. Visual C++ и прочее.. Даже может быть в DirectX-е.

Если была б гарантия что всё найденное заработает, поискал бы.

Установил AccessDatabaseEngine_X64.exe /passive, последовала "грубая" перезагрузка, но всё стало. У 32битной проги всё работает, у 64битной изменилась выдаваемая ошибка(ругается на эскюльхуки). Аргис базы аксеса открывает нормально (с одибиси он так шустро не смог их читать), а вот сам аксес ...

Кириллица в тексте там храниться в 1251 - да, но на коннект к базе это не влияет

Добавлено спустя 6 минут 54 секунды:
Оба работают, если на машине установлен Офис. если его нет, то будет работать короткая строка для файлов баз ассес старого формата. Если не ошибаюсь формата 97-2003.
Мил человек ...