Лидеры

вот все злые, пристали к программеру, наговорили всякого, человек хочет тупо массив данных в HEX просматривать, что от него уходит... IntToHex используй, вот код на си: AnsiString s; for ( unsigned int i = 0; i < size; i++ ) s += IntToHex( ( (unsigned __int8)(data[i] ), 2 ) + " "; на выходе строка HEXов через пробел

нет

procedure TForm1.Label7Click(Sender: TObject); var Phase: TCalloutRectangle; begin Phase := crtPhase.Clone(ScrollBox1) as TCalloutRectangle; Phase.OnMouseDown := crtPhaseMouseDown; Phase.OnMouseMove := crtPhaseMouseMove; Phase.Parent := ScrollBox1; Phase.Position.X := crtPhase.Position.X + 10; Phase.Position.Y := crtPhase.Position.Y + 10; Phase.Visible := true; end; Замените у себя эту процедуру и удалите Button1 (как я и сказал выше, TButton не является TShape - поэтому и ошибка).

кстати я и не говорил что я профессионал. я самоделкин. делаю проект в одиночку: - электрическую схему прибора в Оркаде - развожу печатную плату в Аллегро - делаю программу ( embeded real time) для контроллера от Cypress - мульти-платформенную апликацию для смартфонов на Android / iOS извините господа но у меня нет времени на диспуты. вот закончу проект и тогда свами подиспутирую. И лет мне уже 57... Я программы писал ещё на перфокартах на Фортране.

имхо... Bind Visually противоречит шаблонам MVC, и полезен скорее для "HelloWord" проектов, да и с СУБД лучше воевать вручную, хотя SQLite - "недобаза", однако лучше сразу "по-взрослому". Bind Visually работает в блокирующем режиме? - неясно, скорее всего блокирует интерфейс; насколько корректно работает AutoCommit? - неясно, видимо на каждое действие проходит commit; какая будет ситуация с уровнями изоляции? - непонятно... слишком много потенциальных проблем.

В этой теме был пример

попробуйте OnDeletingItem у меня к примеру такая конструкция норм работает: (правда Bind Visually не юзаю... а в таг каждого итема засовываю нужный ключ) procedure TFVisitPhotoComment.ListView1DeletingItem(Sender: TObject; AIndex: Integer; var ACanDelete: Boolean); begin ... ...'delete bla-bla-bla where Id = :Id'; ...ParamByName('Id').Value:= ListView1.items[AIndex].Tag; ... //не забываем ... ACanDelete := True; //ну или отмена удаления при необходимости ACanDelete := False; end;

type TForm2 = class(TForm) SizeGrip1: TSizeGrip; procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer); override; private { Private declarations } public { Public declarations } end; ........... procedure TForm2.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); begin if AWidth > 800 then AWidth := 800; if AWidth < 300 then AWidth := 300; if AHeight > 600 then AHeight := 600; if AHeight < 200 then AHeight := 200; inherited SetBounds(ALeft, ATop, AWidth, AHeight); end; Пример проекта прилагаю SetBounds.zip P.S. И старайтесь пользоваться поиском. Здесь это уже обсуждалось.

Найдено решение. Может кому-то пригодится. Вот тут представлены четыре разных алгоритма размытия http://blog.ivank.net/fastest-gaussian-blur.html Работает быстро и утечки теперь не наблюдается, то что и надо было сделать)) Так что всем спасибо! Пользуйтесь! ;-)