/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 1107
от 31.03.2008, 10:05

Вопрос № 128.945

Здравствуйте! Помогите пожалуйста советом-Как создать резиновый прямоугольник. В программе DelphiWorld6 есть такой пример,но у меня не получается. При компиляции выходят ошибки. Помогите правильно написать код.

Отправлен: 25.03.2008, 09:04 Вопрос задал: Бычихин Юрий Тихонович (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 12)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Бычихин Юрий Тихонович! Нашел аналогичный пример - думаю, Вам подойдет. Взят отсюда. Копия статьи в приложении. В приложенном файле весь проект - я проверил, все работает. Удачи! Приложение: Как реализовать выделение резиновым прямоугольником Автор: Даниил Карапетян WEB сайт: http://program.dax.ru Как реализовать выделение " резиновым прямоугольником" . Иными словами, когда пользоватьль нажимает на левую кнопку мыши и сдвигает ее, на экране появляется прямоугольник, изменяющий размеры при движении мыши, причем все объекты, попавшие в этот прямоугольник выделяются. В качестве объекта я взял Label, меняющий цвет в зависимости от того, выделен он или нет. При нажатии мышью на форме в FirstPoint кладутся координата курсора. При дальнейшем движении мыши координаты прямоугольника будут высчитываться по FirstPoint и текущим координатам курсора. Причем, чтобы программа нормально отрабатывала случай, когда высота или ширина прямоугольника отрицательная (это произойдет, если увести мышь левее или выше начальной точки), создана процедура NormalRect. NormalRect устанавливает ко Скачать необходимые для компиляции файлы проекта можно на program.dax.ru/subscribe/. http://program.dax.ru/subscribe/index.htm uses stdctrls; var Selecting: boolean = false; FirstPoint: TPoint; sel: TRect; procedure DrawRect; begin with Form1.Canvas do begin Pen.Style := psDot; Pen.Color := clGray; Pen.Mode := pmXor; Brush.Style := bsClear; Rectangle(sel.Left, sel.Top, sel.Right, sel.Bottom); end; end; procedure NormalRect(p1, p2: TPoint); begin if p1.x < p2.x then begin sel.Left := p1.x; sel.Right := p2.x; end else begin sel.Left := p2.x; sel.Right := p1.x; end; if p1.y < p2.y then begin sel.Top := p1.y; sel.Bottom := p2.y; end else begin sel.Top := p2.y; sel.Bottom := p1.y; end; end; procedure TForm1.FormCreate(Sender: TObject); var i: integer; begin randomize; for i := 1 to random(5) + 5 do begin with TLabel.Create(Form1) do begin Caption := 'Label' + IntToStr(i); Left := random(Form1.ClientWidth - Width); Top := random(Form1.ClientHeight - Height); Visible := true; Parent := Form1; end; end; end; procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if selecting or (Button < > mbLeft) then Exit; SetCapture(Form1.Handle); Selecting := true; FirstPoint := Point(X, Y); sel := Bounds(X, Y, 0, 0); end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure SelectLebel(lb: TLabel; r: TRect); var select: boolean; res: TRect; begin select := IntersectRect(res, lb.BoundsRect, r); if select and (lb.Color = clNavy) then Exit; if select then begin lb.Color := clNavy; lb.Font.Color := clWhite; end else begin lb.Color := clBtnFace; lb.Font.Color := clBlack; end; end; var i: integer; begin if not Selecting then Exit; DrawRect; NormalRect(FirstPoint, Point(X, Y)); for i := 0 to Form1.ComponentCount - 1 do if (Form1.Components[i] is TLabel) then SelectLebel(Form1.Components[i] as TLabel, sel); Application.ProcessMessages; DrawRect; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if (not Selecting) or (Button < > mbLeft) then Exit; NormalRect(FirstPoint, Point(X, Y)); DrawRect; ReleaseCapture; Selecting := false; end; { Программа была протестирована: Дмитрий Бажин mailto:bsdriver@mail.ru Юрий Кравченко mailto:ykravchenko@ukr.net Все советы и замечания, пожалуйста, присылайте на subscribe@program.dax.ru Всего доброго, Даниил Карапетян. } Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 25.03.2008, 09:16

Вопрос № 128.953

Здравствуйте Уважаемые Эксперты! Ответьте, пожалуйста, на следующий вопрос: в компоненте "TChart" на этапе проектирования можно выбирать как отображается график ввиде точек или линий. Можно ли при выполнении программы изменять вид отображения графика? Наверно можно было бы создать два графика с разным способом отображения, выводить одни и теже данные одновременно в оба и активировать при необходимости один или другой, но меня интересует только один график с изменяемым свойством. За ранее благодарю за ответ, Геннадий.

Отправлен: 25.03.2008, 09:34 Вопрос задал: Geb2003 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сазонов Михаил Владимирович Здравствуйте, Geb2003! Для этого надо создавать серии в Run-time. Кидаешь на форму Tchart и создаешь то что Вам надо. Рабочий код в приложении. Особой литературы нет, но в HELPE есть некоторое количество примеров, что в принципе для начало хватает. Рекомендую скачать в сети последние версии TeeChart. Они более быстродествующие, чем те что идут в комплекте. У меня Delphi 2007 и дополнительно установлен TeeChart 8.01. Удачи! Приложение: procedure TFrmFilterPrm.CreateGraphNP; Var i : byte; begin// создаем серии связанные с массивами ИД ChartFp.SeriesList.Clear;{чистим лист серий} ChartFp.FreeAllSeries;{уничтожить все серии} ChartFp.Legend.Font.Size := -10; for i := Low(DataArrName) to High(DataArrName) do begin ChartFp.AddSeries(TLineSeries.Create(self));//1-Line серии TLineSeries(Self).ParentChart := ChartFp;//2 // 1 и 2 надо будет менять для разных типов сериий // ChartFp.AddSeries(TBarSeries.Create(self));//Bar серии // TBarSeries(Self).ParentChart := ChartFp; ChartFp.Legend.LegendStyle := lsSeries; ChartFp.Series[i].Active := False; end; Mark := False; end;

Ответ отправил: Сазонов Михаил Владимирович (статус: 1-ый класс) Ответ отправлен: 25.03.2008, 13:54

Вопрос № 128.958

Здрасти. Как при каждом нажатию кнопки прочесеть последующею строку в файле. И показать в Label1.

Отправлен: 25.03.2008, 09:51 Вопрос задал: Мокроусов Алексей Сергеевич (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, Мокроусов Алексей Сергеевич! Код в приложении. Проект целиком в приложенном файле. Удачи! Приложение: var f : textfile; procedure TForm1.Button1Click(Sender: TObject); var s : string; begin // используем свойство Tag кнопки для хранения состояния файла // открыт = 1 ; закрыт = 0 if tag = 0 then begin AssignFile(f, edit1.Text); Reset(f); tag := 1; end; if EOF(f) then begin CloseFile(f); tag := 0; label2.Caption := ''; ShowMessage('Файл полностью считан'); end else begin ReadLn(f, s); label2.Caption := s; end; end; Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 25.03.2008, 11:30 Оценка за ответ: 5 Комментарий оценки: Ок всё заработало спс

Отвечает: Genia007 Здравствуйте, Мокроусов Алексей Сергеевич! Если у Вас простой файл txt, то всё очень просто: var Form1: TForm1; f: TextFile; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var s: String; begin If not EOF(f) then begin Readln(f, s); {считываем очередную строку} Label1.Caption:= s; end else Label1.Caption:= 'Конец файла!'; end; procedure TForm1.FormCreate(Sender: TObject); begin AssignFile(f, 'proba.txt'); Reset(f); end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin CloseFile(f); end;

Ответ отправил: Genia007 (статус: 9-ый класс) Ответ отправлен: 25.03.2008, 19:25

Вопрос № 128.974

Привет Ексрерти. У меня три вопроса: 1. Как мне узнать под каким именем запущен какойто процес, например 'explorer.exe'. 2. У меня нет постояного подключения к интернету. Как мне стянуть весь архив розсылки, штоб я мог дома искать нужние ответи(как настроить FTP в totalcomander). 3. Где можна стянуть или пришлите на ящик книги где описание функции и процедуры по Delphi. У меня есть учебник "Функции и Процедуры по Delphi 4-5", но она демо.

Отправлен: 25.03.2008, 11:36 Вопрос задал: Мельник Виктор (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: PM_pilot Здравствуйте, Мельник Виктор ! 1 - IMHO, Вы как то вопрос неясно поставили.... 2 - очень рекомендую скачать Delphi Russian Knowledge Base (DRKB) - www.drkb.ru там Вы найдете ответы на большинство вопросов которые втречаються в розсылке. 3 - Поищите книгу Ксавье Пачеко, Стив Тейксейра - "Delphi 5 Руководство разработчика" она Вам поможет найти ответ почти на любой Ваш вопрос... :). Скачать ее можно например здесь http://www.delphilab.ru/content/view/17/46/ . IMHO одна из лучших книг по DELPHI.......

Ответ отправил: PM_pilot (статус: 2-ой класс) Ответ отправлен: 25.03.2008, 19:27

Вопрос № 129.003

Здравствуйте, уважаемые эксперты! Возникла проблема с записью переменной типа "запись" в типизированный файл. Переменная s содержит четыре параметра типа string[20]. Помогите разобраться, пожалуйста. Заранее спасибо. Приложение: Assignfile(f,'libr.ser'); Append(f); //В этом месте ошибка-> Incompatible types Write(f,s); CloseFile(f);

Отправлен: 25.03.2008, 15:33 Вопрос задал: Евчик Сергей Александрович (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 8)

Отвечает: Sosedov A.I. Здравствуйте, Евчик Сергей Александрович! Ошибка компиляции возникает из-за того, что Ваш файл объявлен как типизированный, а процедура Append работает только с текстовыми файлами (типа Text, или TextFile). Решить проблему можно, объявив файл типом Text и записывая в него по очереди все четыре поля записи. Однако файл потеряет типизацию, в нем уже не будет фиксированной длины записи, т.е. его станет сложнее обрабатывать при чтении. Вам следует переходить на новые технологии работы с файлами с помощью объектов класса TFileStream библиотеки Classes, что намного удобнее и универсальнее. Посмотрите в приложении, как просто решается Ваша задача. Приложение: program Project2; {$APPTYPE CONSOLE} uses SysUtils, Classes; const FN = 'c: emp12345.txt'; type R = record r1, r2, r3, r4: string[20]; end; var V : R; FS: TFileStream; begin { TODO -oUser -cConsole Main : Insert code here } // Создание экземпляра класса TFileStream, FS:=TFileStream.Create(FN,fmOpenReadWrite); // Позиционирование в конец файла FS.Seek(0,soFromEnd); // Запись переменной V в файл FS.Write(V,SizeOf(V)); // Освобождение экземпляра с закрытием файла FS.Free; end.

Ответ отправил: Sosedov A.I. (статус: 4-ый класс) Ответ отправлен: 25.03.2008, 16:45 Оценка за ответ: 5 Комментарий оценки: Спасибо

Отвечает: Кудинов Антон Павлович Здравствуйте, Евчик Сергей Александрович! Возможно решение (обход) будет таким: Reset(f); Seek(f,filesize(f));

Ответ отправил: Кудинов Антон Павлович (статус: 3-ий класс) Ответ отправлен: 25.03.2008, 19:56 Оценка за ответ: 5 Комментарий оценки: Спасибо

Вопрос № 129.114

Здравствуйте!!! Возник новый вопрос... Допустим, есть простейшее приложение с одной кнопкой, по нажатии на которую выводится окно сообщения. Каким образом сделать так, чтобы координаты приложения на экране генерировались случайно или, хотя бы, задавались вручную???

Отправлен: 26.03.2008, 08:31 Вопрос задал: KomissaRex (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Николай Владимирович / Н.В. Здравствуйте, KomissaRex! Для стандартных, насколько мне известно, такое не предусмотрено. Предлагаю такой вариант решения: 1. Добавить к проекту Dialog: File -> New -> Other -> вкладка dialogs -> выбираете любой (Вам, скорее всего, подойдет Standard Dialog (Horizontal)) 2. Меняете у него свойство Position на poDesigned - теперь он будет показываться в том месте экрана, где Вы его разместите во время разработки. 3. Теперь необходимо сделать, чтобы его позиция была случайной. Для этого создаете событие OnShow для диалога и пишите в него следующий код: randomize; left := random(screen.Width); top := random(screen.height); 4.Перед показом диалога также необходимо изменять надпись на нем (сообщение для пользователя). Например, сообщение выводится в Label1, тогда код будет выглядеть так: OKBottomdlg.Label1.Caption := 'Ваше сообщение'; 5. Теперьпо нажатии на кнопку показываете этот диалог: OKBottomdlg.showModal; Скачать проект целиком можно из приложенного файла. Удачи! Прикреплённый файл: Загрузить >> Срок хранения файла на сервере RusFAQ.ru составляет 30 суток с момента отправки ответа.

Ответ отправил: Николай Владимирович / Н.В. (статус: Профессор) Россия, Москва WWW: nvsoft.org ICQ: 420720 ---- Ответ отправлен: 26.03.2008, 09:15 Оценка за ответ: 5 Комментарий оценки: Даже можно поставить 6+!!!!! Не ожидал такого подробного ответа, да еще и сприкрепленным файлом!!!!!! Огромное спасибо!!!!!!!!

Отвечает: Genia007 Здравствуйте, KomissaRex! Генерировать координаты приложения случайно можно следующим способом: Form1.Left:= Random(Screen.Width);{Координата слева от левого края экрана} Form1.Top:= Random(Sceern.Height);{Координата сверху от верхнего края экрана} Аналогично можно задавать и размер формы: Form1.Height:= Random(Sceern.Height); Form1.Width:= Random(Screen.Width); Вручную задать координаты можно из Edita: Form1.Left:= StrToInt(Edit1.Text);{Координата слева от левого края экрана} Form1.Top:= StrToInt(Edit2.Textt);{Координата сверху от верхнего края экрана}

Ответ отправил: Genia007 (статус: 9-ый класс) Ответ отправлен: 26.03.2008, 13:11 Оценка за ответ: 5 Комментарий оценки: Спасибо! Коротко и ясно... Хотя я, грамотей, сделал ошибку в письме: координаты не приложения, а окна сообщения... Sorry!!!

© 2001-2008, Портал RusFAQ.ru, Россия, Москва. Авторское право: ООО "Мастер-Эксперт Про" Техподдержка портала, тел.: +7 (926) 535-23-31 Хостинг: "Московский хостер" Поддержка: "Московский дизайнер" Авторские права | Реклама на портале ∙ Версия системы: 4.72.6 beta от 22.03.2008
RusFAQ.ru | MosHoster.ru | MosDesigner.ru | RusIRC.ru Kalashnikoff.ru | RadioLeader.ru | RusFUCK.ru