FreePascal.ru

Чудеса в решете... Пересобрал еще раз и у меня все появилось, делал все 1:1 - не знаю в чем причина. Спасибо всем - вопрос закрыт.

xchgeaxeax писал(а):Он вроде имел ввиду панель сверху у окна

Верно, у меня тоже Linux, yj Lazarus собирал из исходников make clean bigide,
что-то не так.

Вы не поняли, или я не так объяснил. Создайте пункт меню, например File - должен отобразиться вверху виджет меню с пунктом File, но он не отображается (не могу вставить картинку в этом форуме, для ясности)

В режиме дизайна не отображается компонент MainMenu в lazarus 3.2, в 2.2.6 - все нормально.

Спасибо, но не работает, к тому-же
это условие описано в явном виде:
if AValue = Album then begin...
Но попробовал:
if (AValue = Album) or (AValue <> fKind) then begin

Добавлено спустя 10 минут 11 секунд:
Извините - пробовал под Лазарем, собранным из исходников - не работает,
Попробовал из ...

Хочу добавить свойство Kind в компонент
(изменение ориентации компонента), делаю так:

type
TKind = (Book, Album);
. . .
TMLImage = class(TImage)
private
fKind: TKind;
procedure SetKind(const AValue: TKind);
protected
procedure Paint; override;
public
constructor Create(AOwner: TComponent ...

Смотрел на форуме, вопрос поднимался не раз.
Но я разобраться несмог.
Можно ли указать путь обукту IpHtmlPanel напрямую.
Как то так:
IpHtmlPanel. ............('c:\1.html')
Пробывал:
IpHtmlPanel1.OpenURL();
IpHtmlPanel1.SetHtml();
IpHtmlPanel1.IsURLHtml();
Ничего неполучилось.
Есть проще ...

Есть строка (string), значение которой представляет собой путь к объекту на диске.
Как определить что представляет собой объект: папка или файл?
uses
SysUtils
................
var
s:string;
........................
if SetCurrentDir('/твой/полный/путь') = true then
s := 'это папка'
else s ...

Сквозняк , у тех, у кого руки не из жопы, всё прекрасно работает..
К тебе это отношения не имеет... Они у тебя именно оттуда,
ибо по делу тЫ ничего не написал (один флуд) - хоть и долгожитель, а почитаешь - зассанец!!!
Влюбленный в Билла Гейтса,
вот только Лазарь не только для ВиндоНавозников ...

Привет всем. Подскажите - в TSynEdit есть автоперевод строки
по достижении RightEdge или ручками ?...

[quote="pupsik"]Снег Север чёт не "врубился". Т.е вы его в integer "перевели"?
Так оно то, вроде как, в базе и хранится как число.
Вот как число я его и обработал...

У меня на тестовом примере код наподобие CheckGroup.Checked[i] := FieldValues['Chk'] работает прекрасно, когда поле 'Chk' целого типа и принимает значения 0 или 1.
Я так и поступил - обошел проблемму. Смутило то что CheckGroup.Controls[i].Enabled := FieldValues['Enb']; нормально отрабатывает с ...

Здравствуйте все.
Имеется БД SqLite3, а на форме CheckGroup
В программе делаю запрос и пытаюсь поменять названия чеков,
доступность и состояние взяв значения из БД

...
sqlIO.First;
for i := 0 to 7 do begin
CheckGroup.Controls[i].Caption := FieldValues['Cap'];
CheckGroup.Controls[i].Enabled ...

Здравствуйте все. Может немного не в тему...
Имеется БД SqLite3, а на форме CheckGroup
В программе делаю запрос и пытаюсь поменять названия чеков,
доступность и состояние взяв значения из БД

...
sqlIO.First;
for i := 0 to 7 do begin
CheckGroup.Controls[i].Caption := FieldValues['Cap ...

0beron, на предыдущей странице в самом низу
Не помогает...
Попробую поковырять LazReport

Добавлено спустя 16 часов 12 минут 48 секунд:
Короче фишка в том, что Printer.GetTextHeight возвращает
высоту в экранных пикселах, а TextOut нужны x, y в
точках на дюйм принтера. Не знаю это наверное ...