FreePascal.ru

Да, понял!
Огромное спасибо за помощь!
Тема закрыта

Что-то я совсем потерялся в ListView...
Помогите, хоть кто-нибудь ...

На форму кладу ListView, стиль указываю - vsReport
Создаю 3 колонки - "1", "2", "3"
Теперь мне нужно их заполнить - элементарно? ФИГ!!!


ListView.Clear;
ListView.Items.Add;
ListView.Items[0]&#46 ...

учту, спасибо!

Уважаемые форумчане, подскажите:
мне нужно поместить на форму gif - реализовать анимацию.

Не могу найти НИЧЕГО по данному вопросу, много иностранных слов - и ничего! Ни одного компонента или решения!

Можете посоветовать - это вообще реализуемо!?

В общем, парни - спасибо всем за внимание. Бился больше 2 часов, пока не наткнулся на волшебное - "ms.Position := 0 ;"
ms - это у меня TMemoryStream - И ВСЕ ЗАРАБОТАЛО!!!

Объясните мне, плиз, что это такое - ms.Position := 0 ;


Добавлено спустя 2 минуты 22 секунды:
Смысл моего кода - из базы ...

Спасибо за ответ - я примерно так и сделал

Привожу код:
// Процедура создания нового изображения нода
procedure TmainForm.createnewimg(node_name:string; pos_x:integer; pos_y:integer; bmp:TStream);
var
newImage:TImage;
begin
newImage:=TImage.Create(self); // Создать новый объект
newImage.Parent ...

Re: Рисование на форме
B4rr4cuda » 15.03.2013 04:23:57

*рукалицо*
А потом мы все удивляемся, почему комп тормозит, да почему программы бажные...


А что не так, снизойдите с высот своей гениальности...

Уважаемые форумчане, помогите, что-то я сообразить не могу.

Есть у меня таблица в MySQL, поле img - blob - хранятся маленькие картинки, иконки

Получаю изображение:
mainDataModule.spr_imgQuery.Active:=false;
mainDataModule.spr_imgQuery.SQL.Text:='SELECT id,img FROM spr_img WHERE id=9090 ...

Подскажите - странная проблема.

Lazarus 1.0.6
Кидаю на форму компонент ValueListEditor, хочу, что бы в ручную не редактировался столбик с ключами, то есть с индексом 0.
KeyOptions=[], то есть keyEdit:=false
а все равно редактируется, как быть?

Решил задачу так:
procedure TmainForm.mainTimerTimer(Sender: TObject);
var
Control: TControl;
P: TPoint;
begin
P:=mouse.CursorPos;
Control := FindDragTarget(P, True);
if Assigned(Control) then mainForm.Caption := Control.Name;
end;

Таймер поставил на 500

Вроде работает...

Данный код ...

Вы меня извините, я, видимо, не так выразился.
(Кстати, перемещать компоненты я вроде научился, сейчас выложу код...)

Мне нужно вот что: есть у меня, предположим, 3 созданных в run-time компонента Label - Label1, Label2, Label3

Я щелкаю мышкой по данному компоненту - появляется окно редактирования ...

Добился вот какого результата:
1. Создал компонент (по нажатию на кнопку формы):
procedure TForm1.Button1Click(Sender: TObject);
var
newLabel:TLabel;
begin
// Создать надпись
newLabel:=TLabel.Create(self);
newLabel.Parent:=Form1;
newLabel.Left:=10;
newLabel.Top:=10;
newLabel.AutoSize:=true ...

Уважаемые коллеги, подскажите, кто знает, по следующему вопросу:

Моя задача заключается в создании программы - конструктора визуальных схем
То есть, заходит пользователь, добавляет компонент (квадратик), круг, соединяет стрелочками - и.т.д

Типа редактора блок-схем, но в моем случае - нужно больше ...