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

Выпуск № 455
от 26.04.2006, 17:05

Вопрос № 40.866

Привет. У меня в программе есть меню. И в нем в одном пункте есть SubMenu в котором пользователь ножет выбрать одно из 10 пунктов. У каждого пункта RadioItem установлен в true. Как можно определить какой пункт выбрал пользователь?

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

Отвечает: Лучников Ю.В. Здравствуйте, Denton! Код в приложении сверяет все пункты сабменю N1. Если выбранный пункт найден, его заголовок помещается в Label1, иначе Выдает 'No checked'. Успехов! Приложение: procedure TForm1.Button1Click(Sender: TObject); var i, Flag: Integer; begin Flag := 0; for i := 0 to N1.Count - 1 do if N1.Items[i].Checked then begin Label1.Caption := N1.Items[i].Caption; Flag := 1; break; end; if(Flag <> 1) then Label1.Caption := 'No checked'; end;

Ответ отправил: Лучников Ю.В. (статус: *Мастер-Эксперт) Россия, Киров WWW: нЧат - Наш Чат! ICQ: 176308580 ---- Ответ отправлен: 20.04.2006, 17:48 Оценка за ответ: 5 Комментарий оценки: Пасиб...я так и делаю...просто думал, может в Delphi есть какая нить функция чтобы узнать номер того кто checked а не перебирать их самому...

Вопрос № 40.875

Вопрос. Как сделать выбор цвета в Delphi? В смысле, в проге нужно выбрать (как-то?) цвет. А как? Я пробовал (опять, по простому) через SpinEdit (увеличивая или уменьшая значения). Результат - фиг. Надо использовать тип TColor, а у меня (как видно) тип Integer. Это надо делать преобразования к типу TColor? А как в вообще это делается? И сколько это цветов получится? Например, в вообще-то, я бы хотел это сделать через небольшую область, а в ней маленькие прямогольнички цветные. Например, в виде процедуры (она выводить или рисует эту область). Потом, отслеживаются координаты "мышки" и выбрается нужные прямоугольничек (2D массив). Может, я мыслю по-старому? Может, это как-то уже делается, только я об этом не знаю? Ну короче, тыкаешь "мышкой" на одном из них и выбирается нужный цвет. Количество, их желательно менять (например, можно сделать 16 цветов, а можно 32, или 64, 128, 256 и т.д.) Или, вообще, можно сделать это в виде спектра цветов (как в Photoshope). Подскажите, пожалуйста, плиз...!

Отправлен: 20.04.2006, 17:33 Вопрос задал: AlexD (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Ataman N. N. Здравствуйте, AlexD! В Delphi в палитре компонент есть вкладка Dialogs. Там находиться диалог выбора цвета ColorDialog. Почему бы Вам не воспользоваться его возможностями? Вызывается диалог просто ColorDialog1.Execute при этом можно узнать был ли сделан выбор цвета if ColorDialog1.Execute then //Цвет выбран Выбранный цвет храниться в свойстве ColorDialog1.Color.

Ответ отправил: Ataman N. N. (статус: 10-ый класс) Ответ отправлен: 20.04.2006, 17:42

Отвечает: Полховский Александр Владимирович Здравствуйте, AlexD! Для конвертации из 3-х значений типа byte в TColor используёте функцию RGB. Для справки, TColor есть число, целое число от 0 до 16777215. Вполне можно пользоваться Integer, если значение попадает в его диапазон. --------- Спасём нашу хрупкую планету !

Ответ отправил: Полховский Александр Владимирович (статус: Практикант) Ответ отправлен: 20.04.2006, 18:04

Отвечает: Infernal Flame Здравствуйте, AlexD! Если осталось желание и дальше использовать счетчик, то можно воспользоваться функцией RGB(r,g,b: integer); которая как раз таки преобразовывает целочисленные значения в цвет, где r,g,b соответственно оттеки красного, зеленого и синего. Попробуйте, может подойдет...

Ответ отправил: Infernal Flame (статус: 1-ый класс) Ответ отправлен: 20.04.2006, 22:34

Отвечает: Дмитриев Алексей Иванович Здравствуйте, AlexD! А ColorDialog'ом слабо? В общем, на форму кидаешь компонент ColorDialog, а в проге, например в обраюотчике клика по "маленькому прямоугольничку цветному" if not ColorDialog1.Execute then Exit;//типа на Cancel нажали или закрыли диалог А далее цвет - ColorDialog1.Color. Цветов 2^24, т.е. 16777216. ))похоже на Microsoft Paint

Ответ отправил: Дмитриев Алексей Иванович (статус: 1-ый класс) Ответ отправлен: 23.04.2006, 16:25

Вопрос № 40.876

Здравствуйте. Мне опять нужен совет и пример. Такая у меня натура, пока не увижу - не познаю. Нужно сделать простую процедуру (см. ниже тут): procedure CoordMouse(var XMouse,YMouse:Word); // Kоордината "мыши" записывается в XMouse и YMouse У меня есть примеры работы с "мышкой", но я не понял как они функционируют. У меня немного другой взгляд на вещи, не стандартный, наверно поэтому. Я даже некоторые функции и процедуры переписываю заново, что я понял их. Например, почти все граф. процедуры я уже переписал (а-ля "Turbo Pascal"). И знаете,... - удобно стало пользоваться ими, гораздо! Вот только некоторые из ОЧЕНЬ многих (наверно, в библиотеке их более 200, разных): procedure ImageClear(Im:TImage;Color:TColor); // Очищает всю "канву" Im, цветом Color procedure SetColor(Im:TImage;PenColor:TColor); // Установка цветa рис. линий procedure SetFillStyle(Im:TImage;tbs:TBrushStyle); // Установка стиля заливки области procedure MoveTo(Im:TImage;Xo,Yo:Integer); // Перемещает графич. "перо" в позицию Xo,Yo procedure LineTo(Im:TImage;Xk,Yk:Integer); // Рисует линию до координаты Xk,Yk procedure Line(Im:TImage;x0,y0,xK,yK:Integer); // Рисует линию на "канве" Im. procedure LineRel(Im:TImage;x0,y0,dx,dy:Integer); // Рисует отрезок от x0,y0 на расстояние dx,dy и т.д. ...И это только для работы с графикой, а есть и другие. Немного отвлеклись. Вопросик понятен я думаю? Да, и ещё вот что. Желательно (хотя это уже я могу сам сделать) мне это нужно в TCanvas'e. "Мышь" проходить через него и отображаются (где либо) координаты её. Потом я их смогу обработать для определения чего-либо или ещё как-то. Заранее спасибко, всем...

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

Отвечает: Полховский Александр Владимирович Здравствуйте, AlexD! procedure CoordMouse(var XMouse,YMouse:Word); var pt1: tpoint; getcursorpos(pt1); xmouse:=pt1.x; ymouse:=pt1.y; end; procedure CoordMouse(var XMouse,YMouse:Word); xmouse:=mouse.CursorPos.x; ymouse:=mouse.CursorPos.y; end; Если Вас интересует координата на любом компоненте (а не на экране), то воспользуйтесь функцией ScreenToClient. --------- Спасём нашу хрупкую планету !

Ответ отправил: Полховский Александр Владимирович (статус: Практикант) Ответ отправлен: 20.04.2006, 18:04

Отвечает: sir henry Здравствуйте, AlexD! У Image есть событие OnMouseMove. Это событие возникает всякий раз, когда Вы двигаете над ним мышкой. Запишите в этом событии что-то типа: procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Begin Form1.Caption:='Координаты мышки: '+IntToStr(X)+'/'+IntToStr(Y); End; и у Вас в заголовке формы будут отображаться текущие координаты мышки.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 21.04.2006, 06:27

Вопрос № 40.884

Здравствуйте. Помогите, пожалуйста, написать список. (его объявление). Я совсем туплю, что-то. Заранее спасибо

Отправлен: 20.04.2006, 20:47 Вопрос задал: NVBud (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Евгения Здравствуйте, NVBud! Если я об этих списках думаю, то вот: http://comp-science.narod.ru/Progr/Dynamic.htm --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 4-ый класс) Ответ отправлен: 20.04.2006, 21:05

Отвечает: sir henry Здравствуйте, NVBud! Какой список Вы имеете в виду? В Дельфи их много, помимо общих для всех языков. Например список строк: var ss: TStringList; Begin ss:=TStringList.Create; ss.Add('Добавляем первую строчку'); ss.Add('Добавляем вторую строчку'); End;

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 21.04.2006, 06:18

Вопрос № 40.897

Здравствуйте, эксперты! Создаю таблицу *.dbf Использую TTable, TDataSource и TDBGrid. Когда заполняю DBGrid1(руками)все ОК. Вопрос: Как заполнять значения полей програмно?

Отправлен: 20.04.2006, 23:47 Вопрос задал: Mo-skin (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, Mo-skin! Например можно так: Допустим у Вас есть таблица Table1 с полями Id - integer и Name - string. Table1.FieldByName("Id").Value:=1; Table1.FieldByName("Name").Value:='Вася Пупкин'; Либо так: Table1Id:=1; Table1Name:='Вася Пупкин'; Объекты полей Table1Id и Table1Name создаются автоматически и имеют тип данных зависящих от типа данных столбца таблицы.

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 21.04.2006, 06:12 Оценка за ответ: 5

Вопрос № 40.899

Здравствуйте, эксперты! Не совсем по Delphi, но может кто знает. Нет принтера, речатаю в файл. Чем можно просмотреть его?

Отправлен: 20.04.2006, 23:51 Вопрос задал: Mo-skin (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгения Здравствуйте, Mo-skin! У меня при печати в файл докумант сохраняется в формате *.mdi и открывается Microsoft Office Document Imaging, который установился при полной установке Офиса. Значит - это одно из приложений офиса. --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 4-ый класс) Ответ отправлен: 21.04.2006, 00:43 Оценка за ответ: 5

Вопрос № 40.902

Вот сделал процедуру: procedure OutText(Im:TImage;x,y,SizeF:Integer;Color:TColor;Str:String); // Вывод графич.текста в Image var Size0 :Word; Begin Size0:=Form1.Font.Size; // Сохранит текущий размер шрифта Form1.Font.Color:=Color; Form1.Font.Size:=SizeF; Im.Canvas.TextOut(x,y,Str); Form1.Font.Size:=Size0 // Востановить текущий размер шрифта End; Проблема возникла в не изменяемом размере шрифта. В остальном - полный порядок. Текст выводится нормально. Не могли бы Вы сказать, в чём проблема? Используется процедура, например, вот так: s1:='Вывод этого текста в Image'; OutText(Image1,50,75,8,clBlue,s1); // коротко, и ясно Спасибо

Отправлен: 21.04.2006, 00:45 Вопрос задал: AlexD (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгения Здравствуйте, AlexD! Вы меняет шрифт формы, а вам надо канваса: Canvas.Font.Name := 'Verdana'; Canvas.Font.Size := 24; Canvas.Font.Color := clRed; --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 4-ый класс) Ответ отправлен: 21.04.2006, 01:00

Отвечает: Denisss Здравствуйте, AlexD! У каждого шрифта есть свой набор размеров (для MS Sans Serif: 8, 10, 12, 14, 18, 24). Посмотреть этот набор можно с помощью диалога выбора шрифта (TFontDialog на закладке Dialogs). Потому вывод: Либо Вы пытаетесь отрисовать текст с шрифтом меньшего размера, чем наименьший шрифт (для Sans - 0..9), либо большего размера. Как вариант решения: Отрисовывайте на элементе TBitmap ближайшим шрифтом (допустим, для размеров 0..9 отрисовывайте с размером 8), уменьшайте или увеличивайте изображение с применением каких-нибудь алгоритмов масштабирования (Lаnсzоs, например) и будет шрифт нужного размера. Удачи!

Ответ отправил: Denisss (статус: Специалист) Ответ отправлен: 21.04.2006, 09:45

Отвечает: nimoid Здравствуйте, AlexD! Так ты у формы меняешь шрифт, а тебе надо для канвы изображения: Im.Canvas.Font.Color:=Color; Im.Canvas.Font.Size:=SizeF; Im.Canvas.TextOut(x,y,Str); --------- Пишем баги на любые патчи :-]

Ответ отправил: nimoid (статус: 7-ой класс) Ответ отправлен: 21.04.2006, 10:49

Вопрос № 40.905

Тот же вопрос - TextOut(). { ------------------------------------------------------------------------------------ } procedure SetFontCanvas(Can:TCanvas;NameF:String;SizeF:Integer;Color:TColor); Begin Can.Font.Name:=NameF; Can.Font.Size:=SizeF; Can.Font.Color:=Color; End; { ------------------------------------------------------------------------------------- } procedure OutText(Im:TImage;x,y:Integer;Str:String); // Вывод графич.текста в Image Begin Im.Canvas.TextOut(x,y,Str); End; { ---------------------------------------------------------------------------------------- } Текст выводится - размер не изменяется. Где ошибка? Вроде всё правильно записал. Алекс

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

Отвечает: Евгения Здравствуйте, AlexD! procedure OutText(Im:TImage;x,y,SizeF:Integer;Color:TColor;Str:String); // Вывод графич.текста в Image var Size0 :Word; Begin Size0:=Canvas.Font.Size; // Сохранит текущий размер шрифта Canvas.Font.Color:=Color; Canvas.Font.Size:=SizeF; Im.Canvas.TextOut(x,y,Str); Canvas.Font.Size:=Size0 // Востановить текущий размер шрифта End; попробуйте так - у меня не стоит Делфи - не могу проверить --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 4-ый класс) Ответ отправлен: 21.04.2006, 02:42

Вопрос № 40.917

Уважаемые эксперты, подскажите алгоритм перемножения двух огромных десятичных чисел через string. В общем то, сделать это нужно на pascal, но в delphi особых отличий не будет, разве что строки фиксированной длины... Заранее спасибо!

Отправлен: 21.04.2006, 10:18 Вопрос задал: ab5ent (статус: 6-ой класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Евгения Здравствуйте, ab5ent! Извините - не хочу приводить код программы, но умножение больших чисел сводится к умножению чисел столбиком, т.е. например вам надо перемножить 3405*4568 т.е. будут процедуры перемножения числа стринг на однозначное число с переносом единиц в старший разряд и процедура сложения чисел в стринг... причем при умножении на один разряд больше - в конце будут прибавляться нули... итого 2 процедуры сложение и умножения на однозначное число - это не смерельно сложно пишите,если хотите уметь писать программы... --------- Я не волшебник, я только учусь... А разве кто-то обещал, что будет легко?

Ответ отправила: Евгения (статус: 4-ый класс) Ответ отправлен: 21.04.2006, 10:39 Оценка за ответ: 4 Комментарий оценки: писать то я умею, и очень даже неплохо... а вот премени совсем нету...хотелось бы примера...

Отвечает: mvp Здравствуйте, ab5ent! http://www.kamlit.ru/docs/journals/cd/cd22/off-line/pr/22/article_17.php.htm - автор рассуждает о вычислении 100! Там используются массивы. Их легко заменить на строки (кстати, если не ошибаюсь, длина строки в Pascal - 255 символов, следовательно максимум, что можно перемножить - это 2 числа по 15-16 цыфр в каждом, но, если постараться, можно и модифицировать). Ещё нужно будет модифицировать алгоритм из ссылки для больших чисел, использую идею, например, высказанную Евгенией. В общем, разбирайтесь, а то задача похожа на мою задачу по Pascal на первом курсе на автомат по экзамену (их там 4 было - это одна из них, правда цыфры нужно было хранить в связном списке по 5 элементов и уметь ещё выполнять слаживание, вычитание, деление и возведение в степень двух больших чисел). А раз так, то сдесь не приветствуется явное решение (если за полгода ничего не изменилось) в ответ на домашние задания школьников/студентов. --------- Моя совесть чиста - не бывшая в употреблении

Ответ отправил: mvp (статус: 10-ый класс) Ответ отправлен: 21.04.2006, 12:35 Оценка за ответ: 5 Комментарий оценки: ОК. Обязательно займусь. Кстати, мне это тоже для экзамена, так сказать :) только времени совсем нету...

Вопрос № 40.932

Вот опять проблема. Не знаю как обработать кнопку "мышки". Опять я смотрел пример (карточная игра "Пасьянс "Четыре линии", на Delphi). Но я так и не понял как там обрабатывается кнопка "мыши". Главное, в ней есть процедура TForm1.MouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer); но в ней нет ссылки на переменную Button типа TMouseButton. Поэтому я и не понял как обработать кнопку "мышки". Ерунда какая-то. Как они вообще это сделали? Короче, меремещение (координаты) "мыши" я сделал, спасибо тому кто мне помог. Теперь, нужно обработать кнопки "мышки". Левую и правую, а также колёсико "мышки". Как это делается, конкретно? Чтобы было хоть видно эту "обработку". Алекс

Отправлен: 21.04.2006, 15:05 Вопрос задал: AlexD (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Рубан Николай Николаевич Здравствуйте, AlexD! Смотри приложение которое иллюстрирует обратотку соответствующих кнопок мыши Приложение: procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin case Button of mbLeft: ShowMessage('Left'); mbRight: ShowMessage('Right'); end; end; --------- Мыслю - значит существую (Декарт)

Ответ отправил: Рубан Николай Николаевич (статус: 4-ый класс) Ответ отправлен: 21.04.2006, 15:19

Отвечает: Kazakh Здравствуйте, AlexD! А в чем проблема ? По-русски же написано Button:TMouseButton. TForm1.MouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer); Их и используете Button - какая кнопка нажата Shift - были ли нажаты Ctrl, Shift, Alt или их комбинация одновременно с Button. X,Y - соответственно координаты мsib относительно формы. Например, так: TForm1.MouseUp(Sender:TObject;Button:TMouseButton;Shift:TShiftState;X,Y:Integer); begin If Button=mbLeft then begin ShowMessage('Нажата левая кнопка'); end else If Button=mbRight then begin ShowMessage('Нажата правая кнопка'); end else If Button=mbMiddle then begin ShowMessage('Нажата средняя кнопка'); end else begin ShowMessage('Нажата другая кнопка'); // :-) end end; --------- Если собеседник затрудняется ответить, значит, вопрос поставлен правильно.

Ответ отправил: Kazakh (статус: 6-ой класс) Ответ отправлен: 21.04.2006, 15:24

Вопрос № 40.942

{ -------------------------------------------------------------------------------------- } procedure OutText(Im:TImage;x,y,SizeF:Integer;Color:TColor;Str:String); // Вывод графич.текста в Image var Size0 :Word; Begin Form1.Font.Name:='MS Sans Serif'; Size0:=Im.Canvas.Font.Size; // Сохранит текущий размер шрифта Im.Canvas.Font.Color:=Color; Im.Canvas.Font.Size:=SizeF; Im.Canvas.TextOut(x,y,Str); Im.Canvas.Font.Size:=Size0 // Востановить текущий размер шрифта End; { ---------------------------------------------------------------------------------------- } Извините, ещё раз. Но размер всё равно не изменяется. Ни при каком шрифте (Имени), и при разных установленных размерах.

Отправлен: 21.04.2006, 16:18 Вопрос задал: AlexD (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Ujin Antikvar Здравствуйте, AlexD! Только что проверил вашу процедуру и все нормально работает и размер шрифта тоже нормально изменяется при любом шрифте. Поэтому не понимаю в чем у вас проблема????? Использовал ее я так OutText(Image1,0,0,25,clRed,'Привет'); --------- "Будущее принадлежит тем, кто верен своей мечте" - Элеонора Рузвельт

Ответ отправил: Ujin Antikvar (статус: 6-ой класс) Ответ отправлен: 21.04.2006, 19:22

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.30 от 09.04.2006