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

Выпуск № 898
от 18.08.2007, 00:05

Вопрос № 98.099

Здравствуйте уважаемые эксперты.... в программирование я полный новичек... попросили сделать программку.... проблема заключается в том... что я не могу понять как сделать так чтобы при выборе пользователя из ComboBox или при вводе его в Edit появлялось окошко с паролем т.е. PasswordDlg и **** после одного ввода пароля на одном из пользователей исчезали.Т.Е при захоже на другого пользователя **** и пароля в окне passworddlg не было...И еще заодно вопрос как сделать так чтобы из базы данных в dgComboBox выбирались зависимости например в одном комбо класс А а в другом список класса А а если выбираешь в первом комбо класс Б то в другом появлялось список класса Б а не все списки классов.... или для этого надо отдельную таблицу в базе данных делать ?

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

Отвечает: Sandy Здравствуйте, Виктория! На нужное вам событие (скажем для ComboBox это onSelect) добавляете строки: PasswordDlg.Password.Text:=''; //очистка поля пароля PasswordDlg.ShowModal; //вызов диалога Строки приведены исходя из предположения,что Вы используете стандартный диалог из палитры Дэлфи. Не забудьте добавить в раздел uses той формы где находится ComboBox имя модуля с PasswordDlg (имя пишется в самом начале - к примеру unit Unit2; - имя значит Unit2). По 2й части вопроса ничего не понял что Вы хотите сделать.

Ответ отправил: Sandy (статус: 9-ый класс) Ответ отправлен: 13.08.2007, 10:44

Вопрос № 98.117

Здравствуйте эксперты! Хочу сделать маленькие часики, и столкнулся с проблемой стрелок. В таймере задал MoveTo к середине Image1, и линию в (x,y). Х и Y в таймере увеличиваются на один. Конечно такие часы правильно работать не будут, но они вообще стоят! Помогите пожалуйста :) Приложение: procedure TForm1.Timer2Timer(Sender: TObject); begin x := x + 10; y := y + 10; Image1.Canvas.MoveTo(156,156); Image1.Canvas.LineTo(x,y); end;

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

Отвечает: Решетник Д Здравствуйте, Gendalf! По поводу не работает: просто рисует одну линию и все? ...а может так и должно быть по Вашему алгоритму? для движения стрелки по кругу (задания конечной точки) легче использовать полярные координаты. по ссылке можно найти некоторуюинформацию по теме. После прочтения попробуйте разобрать код, приведенный в приложении: киньте кнопочку на форму и измените обработчик нажатия.... Приложение: прежде чем просто скопируте код прочтите статью. код рабочий. procedure TForm1.Button1Click(Sender: TObject); const X0 = 50; Y0 = 50; R = 30; var i, x, y: real; begin i:= 0; while i <= 2*pi do begin Canvas.MoveTo(X0, Y0); x := X0 + R*cos(i); y := Y0 + R*sin(i); Canvas.LineTo(round(x), round(y)); i := i + pi/6; end; end; --------- Жизнь коротка, чтобы писать на ассемблере

Ответ отправил: Решетник Д (статус: Студент) Ответ отправлен: 13.08.2007, 00:17

Отвечает: Delph Здравствуйте, Gendalf! В приложении я привел обработчик событий таймера, там - простейший пример с прорисовкой трёх стрелок (час, минута, секунда). В разделе Private главной формы приложения объявлены ещё три переменные: OldHour, OldMin, OldSec: Word; (они хранят информацию о прежних показаниях часов, чтобы затереть прежние изображения стрелок.) Image1 имеет размер 512*512. Timer1.Interval у меня равен 1000 (т.е. срабатывает один раз в секунду). Обратите внимание: внутри обработчика таймера используется вложенная процедура, поскольку её код вызывается дважды при каждом срабатывании таймера. Приложение: procedure TForm1.Timer1Timer(Sender: TObject); var Hour, Min, Sec, MiliSec: Word; R, x, y: Double; procedure Draw(Color: TColor; Hour, Min, Sec: Word); begin Image1.Canvas.Pen.Color := Color; Image1.Canvas.Pen.Width := 7; x := 160 * Sin(2 * pi * Hour / 12) + 256; y := 0 - 160 * Cos(2 * pi * Hour / 12) + 256; Image1.Canvas.MoveTo(256, 256); Image1.Canvas.LineTo(Round(x), Round(y)); Image1.Canvas.Pen.Width := 4; x := 192 * Sin(2 * pi * Min / 60) + 256; y := 0 - 192 * Cos(2 * pi * Min / 60) + 256; Image1.Canvas.MoveTo(256, 256); Image1.Canvas.LineTo(Round(x), Round(y)); Image1.Canvas.Pen.Width := 1; x := 224 * Sin(2 * pi * Sec / 60) + 256; y := 0 - 224 * Cos(2 * pi * Sec / 60) + 256; Image1.Canvas.MoveTo(256, 256); Image1.Canvas.LineTo(Round(x), Round(y)); end; begin DecodeTime(Time, Hour, Min, Sec, MiliSec); Image1.Canvas.Brush.Color := clBlue; Image1.Canvas.FloodFill(256, 256, Image1.Canvas.Pixels[256, 256], fsSurface); Draw(clBlue, OldHour, OldMin, OldSec); Draw(clYellow, Hour, Min, Sec); OldHour := Hour; OldMin := Min; OldSec := Sec; end;

Ответ отправил: Delph (статус: 7-ой класс) Ответ отправлен: 13.08.2007, 10:35

Отвечает: Mishell Здравствуйте, Gendalf! смотрите в приложении две процедуры - я с помощью них рисую часы в картинке размером 32х32 (центр в 15х15) (если Вам надо будет по-другому поправите) думаю это то что Вам надо Приложение: procedure Rotate(x0,y0:real;var x1,y1:real;ang:real); const cDeg=0.01745329252; var r,sB,cB:real; begin r:=SQRT(SQR(x1-x0)+SQR(y1-y0)); if r=0 then exit; sB:=(y1-y0)/r; cB:=(x1-x0)/r; x1:=x0+r*(sin(ang*cDeg)*cB+cos(ang*cDeg)*sB); y1:=y0+r*(cos(ang*cDeg)*cB-sin(ang*cDeg)*sB); end; procedure DrawTimeLine(canv:TCanvas;h,m:Word); var x,y,a:real; begin //minute line canv.MoveTo(15,15); x:=0; y:=15; a:=-trunc(6*m); Rotate(15,15,x,y,a); canv.LineTo(round(x),round(y)); //hour line canv.MoveTo(15,15); x:=5; y:=15; if h>12 then h:=h-12; a:=-trunc((h*60+m)/2); Rotate(15,15,x,y,a); canv.LineTo(round(x),round(y)); end;

Ответ отправил: Mishell (статус: 5-ый класс) Ответ отправлен: 13.08.2007, 11:42

Вопрос № 98.130

Здравствуйте уважаемые эксперты!Просьба у меня в следующем.Хочу создать у себя в приложении систему справок на подобе, как в delphi world т.е состоящую из двух окон.Что бы щёлкая в первом окне на +, в нём высыпались все подпункты справки ,а щёлкнув на папке подпункта во втором окне появлялось его содержание.От Вас я хочу что бы помогли советами с выбором компонентов для реализации этого а так же с основными процедурами, кто чем может, пожалуйста.Заранее благодарен.

Отправлен: 12.08.2007, 12:39 Вопрос задал: Зотов Геннадий Александрович (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Архангельский Андрей Германович Здравствуйте, Зотов Геннадий Александрович! Для этого нужно использовать формат .chm Если для разработки самого файла справки использовать программу Help&Manual, то в ней есть возможность результат сохранять и в этом формате, а также в html и pdf --------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО

Ответ отправил: Архангельский Андрей Германович (статус: Специалист) Ответ отправлен: 12.08.2007, 12:54

Отвечает: Mishell Здравствуйте, Зотов Геннадий Александрович! по правому "окну" со списком справок и подпунктами - можна посоветовать компонент TTreeView (очень подозреваю, что Вам его уже посоветовали) для правого "окна" я думаю пододет TRichEdit (хотя можно и что-то другое) думаю кроме-того Вам будет полезно почитать например на королевстве дельфи http://www.delphikingdom.com/ (или др. подобном сайте или просто в книжке по дельфи) статьи по компонентам (томуже TTreeView и др.) и про работу с базами данных (где будут храниться Ваши список и содержание статей)

Ответ отправил: Mishell (статус: 5-ый класс) Ответ отправлен: 13.08.2007, 11:57

Вопрос № 98.137

Привет . Несколько вопросов по Tlistview . 1 )Использую его в vsReport . Колонок 25 штук. Строк под 200.Doublebuffered в true. При прокручивании наблюдается подтормаживание. Возрастает загрузка процессора. Если использовать вид отличный от vsreport или же без Doublebuffered , то все нормально. Возможно ли как-нибудь сделать так , чтобы не было мерцания и не тормозило. Например в проводнике в режиме таблица все отлично , нет никаких тормозов. 2) Как сделать группирование. Например : Есть все теже 25 колонок и 200 строк. Например в пятой колонке у 20 строк - "Иванов" . И их сгруппировать ( не отсортировать по пятой колонке ). Тоесть привести к виду - ----------ИВАНОВ----------- ( строка разделитель на всю ширину listview) 1 2 3 4 Иванов 6 7 8 9 10 1 2 3 4 Иванов 6 7 8 9 10 1 2 3 4 Иванов 6 7 8 9 10 1 2 3 4 Иванов 6 7 8 9 10 1 2 3 4 Иванов 6 7 8 9 10 --------Петров---------------( строка разделитель на всю ширину listview) 1 2 3 4 Петров 6 7 8 9 10 1 2 3 4 Петров 6 7 8 9 10 1 2 3 4 Петров 6 7 8 9 10 1 2 3 4 Петров 6 7 8 9 10 1 2 3 4 Петров 6 7 8 9 10 Вот как сделать строку разделитель ? 3) Возможно ли при ownerdraw:= false нарисовать в колонке (subitem )изображение. Использование Timagelist не подходит. Так как мне надо в одной колонке изображение с одной шириной , а в другой колонке с другой шириной . Заранее спаибо.

Отправлен: 12.08.2007, 14:24 Вопрос задал: Sele (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Карабанов Алексей Здравствуйте, Sele! По первому вопросу. Скорость работы зависит от того, где вы храните данные, выводимые в TListView. При хранении в переменных, массивах и т.д. при каждом обновлении списка все 200 строк загружаются заново. Из-за этого возникает ощутимая задержка. Работать будет быстрее, если хранить данные в самом TListView в свойстве Data. Для устранения мерцания используйте такую конструкцию BeginUpdate ... Код обновления списка ... EndUpdate Тогда список будет перерисовываться не в процессе заполнения, а по окончании его. По второму вопросу. Насколько я понял сортировка Вас не устраивает. Но, к сожалению другого способа пожалуй нет. Существуют довольно широкие возможности сортировки с помощью обработки события OnCompare. В обработчике пишется код, осуществляющий сравнение элементов по условиям сортировки. Наверняка подберете подходящий вариант. --------- Дорогу осилит идущий!

Ответ отправил: Карабанов Алексей (статус: 6-ой класс) Ответ отправлен: 12.08.2007, 22:53

Вопрос № 98.154

Уважаемые эксперты! Помогите как из полей editов цифры переместить в готовую таблицу в Ексель (в строку D3,4,5....18,19 и тд.) ,как бы создать отчёт? Таблица имеет имя "Отчет по обследованию". Как связать программу и таблицу?

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

Отвечает: Виктор Пырлик Здравствуйте, SIR! Вот тут неплохо описан экспорт данных в Excel ссылка описание "Экспорт документов в Excel" В приложении дан код - это отдельный модуль, можете его подключить и использовать. Приложение: unit uExportExcel; interface uses SysUtils, Variants, Classes,Windows,Messages, StdCtrls,ComObj,ActiveX, Controls,DBTables,DB; type TFPrint = class private { Private declarations } public function IsOLEObjectInstalled(Name: String): boolean; procedure PrintTable(table,query:TDataset); end; var FPrint: TFPrint; implementation { TForm1 } //****************************************************************************** function TFPrint.IsOLEObjectInstalled(Name: String): boolean; var ClassID: TCLSID; Rez : HRESULT; begin Rez := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID); Result := (Rez = S_OK); end; //****************************************************************************** //****************************************************************************** //************************************************* procedure TFPrint.PrintTable(table,query: TDataset); LABEL L; var ExcelApp, Workbook,shet{, Range, Cell1, Cell2, ArrayData }: Variant; path,name:String; mark:TBookmark; i,j:integer; begin path:=GetCurrentDir +'обследование.xlt'; ExcelApp := CreateOleObject('Excel.Application'); ExcelApp.Application.EnableEvents := false; Workbook := ExcelApp.WorkBooks.Add(path); //row col shet:=WorkBook.WorkSheets[1]; table.DisableControls; mark:=table.GetBookmark; //******************************************************************************* j:=2; table.First; while not table.Eof do begin for i:=0 to Table.FieldCount-1 do begin //row kol DATA if(i=0)then shet.Cells[j,i+1].Value := FormatDateTime('dd.mm.yyyy',table.Fields[i].AsDateTime) else if(i=1)then shet.Cells[j,i+1].Value := table.Fields[i].AsString else shet.Cells[j,i+1].Value := table.Fields[i].AsFloat; end; table.Next; inc(j); end; if not DirectoryExists(GetCurrentDir+'Отчеты') then begin if not CreateDir(GetCurrentDir+'Отчеты') then path:=GetCurrentDir else path:=GetCurrentDir+'Отчеты'; end else path:=GetCurrentDir+'Отчеты'; I:=1; name:='ELECTRO_'+FormatDateTime('ddmmyy',Date)+'.xls'; L: if(FileExists(path+name))then begin name:='обследование_'+FormatDateTime('ddmmyy_',Date)+IntToStr(i)+'.xls'; inc(i); goto L; end; WorkBook.SaveAs(path+name); ExcelApp.Visible := true; shet.Activate; table.GotoBookmark(mark); table.FreeBookmark(mark); table.EnableControls; end; end. --------- Если ничего не помогло - надо читать инструкцию

Ответ отправил: Виктор Пырлик (статус: Студент) Ответ отправлен: 12.08.2007, 21:43

Отвечает: Кузнецов Дмитрий Григорьевич Здравствуйте, SIR! Используте OLE или DDE компоненты. Укажите адрес источника и приемника.

Ответ отправил: Кузнецов Дмитрий Григорьевич (статус: 1-ый класс) Ответ отправлен: 12.08.2007, 22:32

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