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

Выпуск № 840
от 16.06.2007, 12:05

Вопрос № 90.804

Здравствуйте уважаемые эксперты! У меня на форме несколько ToolButton'ов , научите пожалуйста как при наведении на них получать hint'ы и если можно разного цвета.

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

Отвечает: Melamed Здравствуйте, GAZOT! Свойству ShowHit присваиваешь значение TRUE А свойству Hint присваиваешь значение строки-подскаски, которая ваыводиться в Hint-оене соответсвуюшего ToolButton'a или компонента TAction с ним связа 085;ного, который можно добавить в список компонента TActionList.

Ответ отправил: Melamed (статус: Студент) Ответ отправлен: 10.06.2007, 13:12 Оценка за ответ: 4 Комментарий оценки: спасибо, жаль ничего по второй части вопроса не сказали

Отвечает: PGM Здравствуйте, GAZOT! Используйте предыдущий ответ для установки хинтов. А цвета менять можно используя событие OnShowHint из компонента TApplicationEvents. Вот его заголовок procedure AppShowHint(var HintStr: string; var CanShow: Boolean; var HintInfo: THintInfo); Меняете HintInfo.HintColor на свой в зависимости от условий (т.е. вычисляя какой компонент под мышью или опознавая их по HintStr), тут же можно и HintStr поменять если надо. У структуры HintInfo есть и другие поля, которые помогут настроить показ хинта.

Ответ отправил: PGM (статус: 8-ой класс) Ответ отправлен: 10.06.2007, 17:25 Оценка за ответ: 4 Комментарий оценки: спасибо ,но на примере было бы наглядней

Вопрос № 90.831

Добрый день. Вопрос следующий: LabelOnline:tLabel; if (MagRasCon.ConnectState = RASCS_Connected) then LabelOnline.Caption := 'Online'; как Сделать 'OnLine' 3еленым, а OffLine красным? Приложение: { т. к. офлайн и так по умолчанию красный, нужно только что бы 'OnLine' 3еленым становился......} ммм... Интересны любые во3можные решения. И3виняюсь если повторяюсь с вопросом. Может я дурак... но я не нашел ничего подходящего.

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

Отвечает: Ерёмин А.А. Здравствуйте, Killka! У Label есть свойство Font, т.е. можно изменять шрифт - разве это не подойдёт? Пример: LabelOnline.Font.Color:=clGreen; --------- Нет правила без исключений. Правило без исключений - исключение из правил.

Ответ отправил: Ерёмин А.А. (статус: Профессор) Россия, Тула WWW: Программирование на DELPHI ---- Ответ отправлен: 10.06.2007, 15:34 Оценка за ответ: 5 Комментарий оценки: крута.... Большое спасбо.... это я и искал.

Отвечает: Градов Юрий Михайлович Здравствуйте, Killka! Менять свойство Label.Font.Color; Приложение: LabelOnline:tLabel; if (MagRasCon.ConnectState = RASCS_Connected) then begin LabelOnline.Font.Color:=clGreen; LabelOnline.Caption := 'Online'; end else begin LabelOnline.Font.Color:=clRed; LabelOnline.Caption := 'Not Online'; end; --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 10.06.2007, 15:44

Отвечает: Уваров Андрей Александрович Здравствуйте, Killka! !!! Плохо искали. Все просто. LabelOnline.Font.Color := clRed; //clLime и т.п. [Дублирующий ответ.] [Edited by Gh0stik] --------- Обращаться в ICQ: 66550088 (Ally) или E-Mail: AvePassion@GMail.Com

Ответ отправил: Уваров Андрей Александрович (статус: Студент) Ответ отправлен: 10.06.2007, 20:29

Отвечает: Фадеев Юрий Здравствуйте, Killka! Если Вам надо чтобы менялся сам цвет надписи то я бы написал так: if (MagRasCon.ConnectState = RASCS_Connected) then Begin LabelOnline.Caption := 'Online'; LabelOnline.Font.Color:=clGreen; end; ну и соответственно для OffLine можна написать LabelOnline.Font.Color:=clRed; Ну а есле необходимо поменять сам фон, то можна написать так: if (MagRasCon.ConnectState = RASCS_Connected) then Begin LabelOnline.Caption := 'Online'; LabelOnline.Color:=clGreen; end;

Ответ отправил: Фадеев Юрий (статус: 1-ый класс) Ответ отправлен: 11.06.2007, 12:31

Вопрос № 90.835

Не подскажите, как сделать так, чтобы по событию OnMouseMove Осуществить вращение рисунка в TImage-е? Нужно для реализации Регулятора громкости.

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

Отвечает: Timoshin A.B. Здравствуйте, SunnyLab! Надеюсь вам подойдёт такой вариант поворота, относительно точки. Удачи. Приложение: function TForm1.Vektor(FromP, Top: TPoint): TPoint; begin Result.x := Top.x - FromP.x; Result.y := Top.y - FromP.y; end; // new x-component of the vector function TForm1.xComp(Vektor: TPoint; Angle: Extended): Integer; begin Result := Round(Vektor.x * cos(Angle) - (Vektor.y) * sin(Angle)); end; // new y-component of the vector function TForm1.yComp(Vektor: TPoint; Angle: Extended): Integer; begin Result := Round((Vektor.x) * (sin(Angle)) + (vektor.y) * cos(Angle)); end; function TForm1.RotImage(srcbit: TBitmap; Angle: Extended; FPoint: TPoint; Background: TColor): TBitmap; var highest, lowest, mostleft, mostright: TPoint; topoverh, leftoverh: integer; x, y, newx, newy: integer; begin Result := TBitmap.Create; // Calculate angle down on one rotation, if necessary while Angle >= (2 * pi) do begin angle := Angle - (2 * pi); end; // specify new size if (angle <= (pi / 2)) then begin highest := Point(0,0); //OL Lowest := Point(Srcbit.Width, Srcbit.Height); //UR mostleft := Point(0,Srcbit.Height); //UL mostright := Point(Srcbit.Width, 0); //OR end else if (angle <= pi) then begin highest := Point(0,Srcbit.Height); Lowest := Point(Srcbit.Width, 0); mostleft := Point(Srcbit.Width, Srcbit.Height); mostright := Point(0,0); end else if (Angle <= (pi * 3 / 2)) then begin highest := Point(Srcbit.Width, Srcbit.Height); Lowest := Point(0,0); mostleft := Point(Srcbit.Width, 0); mostright := Point(0,Srcbit.Height); end else begin highest := Point(Srcbit.Width, 0); Lowest := Point(0,Srcbit.Height); mostleft := Point(0,0); mostright := Point(Srcbit.Width, Srcbit.Height); end; topoverh := yComp(Vektor(FPoint, highest), Angle); leftoverh := xComp(Vektor(FPoint, mostleft), Angle); Result.Height := Abs(yComp(Vektor(FPoint, lowest), Angle)) + Abs(topOverh); Result.Width := Abs(xComp(Vektor(FPoint, mostright), Angle)) + Abs(leftoverh); // change of FPoint in the new picture in relation on srcbit Topoverh := TopOverh + FPoint.y; Leftoverh := LeftOverh + FPoint.x; // at first fill with background color Result.Canvas.Brush.Color := Background; Result.Canvas.pen.Color := background; Result.Canvas.Fillrect(Rect(0,0,Result.Width, Result.Height)); // Start of actual rotation for y := 0 to srcbit.Height - 1 do begin // Zeilen ; Rows for x := 0 to srcbit.Width - 1 do begin // Spalten ; Columns newX := xComp(Vektor(FPoint, Point(x, y)), Angle); newY := yComp(Vektor(FPoint, Point(x, y)), Angle); newX := FPoint.x + newx - leftoverh; newy := FPoint.y + newy - topoverh; // Move beacause of new size Result.Canvas.Pixels[newx, newy] := srcbit.Canvas.Pixels[x, y]; // also fil lthe pixel beside to prevent empty pixels if ((angle < (pi / 2)) or ((angle > pi) and (angle < (pi * 3 / 2)))) then begin Result.Canvas.Pixels[newx, newy + 1] := srcbit.Canvas.Pixels[x, y]; end else begin Result.Canvas.Pixels[newx + 1,newy] := srcbit.Canvas.Pixels[x, y]; end; end; end; end; procedure TForm1.Button1Click(Sender: TObject); var mybitmap, newbit: TBitMap; begin if OpenDialog1.Execute then begin mybitmap := TBitmap.Create; mybitmap.LoadFromFile(OpenDialog1.FileName); newbit := RotImage(mybitmap, DegToRad(45), Point(mybitmap.Width div 2, mybitmap.Height div 2), clBlack); Image1.Canvas.Draw(0,0, newBit); end; end; end; --------- Борюсь с нехваткой "мозгов"...

Ответ отправил: Timoshin A.B. (статус: Студент) Ответ отправлен: 10.06.2007, 19:54

Вопрос № 90.905

Пишу программу в среде Делфи, в задачу входит отразить изменяющийся рисунок, плавное изменение цвета. Получается не очень, из-за перерисовки происходит мигание экрана. Можно ли сделать плавное изменение цвета определенной части экрана? Желательно пример. Спасибо.

Отправлен: 11.06.2007, 05:26 Вопрос задал: Float (статус: Посетитель) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Примак Руслан Николаевич Здравствуйте, Float! Мерцание можно убрать, если у родителя рисунка установить свойство DoubleBuffered := True; Например, TPanel(MyImage.Parent).DoubleBuffered := True; Одно замечание - не у всех компонентов есть свойство DoubleBuffered

Ответ отправил: Примак Руслан Николаевич (статус: 2-ой класс) Ответ отправлен: 11.06.2007, 12:40

Отвечает: Градов Юрий Михайлович Здравствуйте, Float! Вот 3 варианта уменьшения мерцания при прорисовке обьекта: 1. Мерцание возникает, когда цвет точки меняется два раза подряд. Правильнее объект рисовать в памяти и выводить на форму уже готовое изображение поверх предыдущего. В таком случае смена цветов на экране происходит только 1 раз. 2. Если добавить флаг csOpaque (непрозрачный) к свойству ControlStyle компонента - то фон компонента перерисовываться не будет. Вариант в приложении 3. В методе Paint - InvalidateRect(Handle, NIL, FALSE), где Handle должен быть дескриптором формы или элемента управления. Приложение: Если добавить флаг csOpaque (непрозрачный) к свойству ControlStyle компонента - то фон компонента перерисовываться не будет. constructor TMyControl.Create; begin inherited; ControlStyle := ControlStyle + [csOpaque]; end; --------- Глаза боятся - руки делают!

Ответ отправил: Градов Юрий Михайлович (статус: Студент) Ответ отправлен: 11.06.2007, 12:45

Отвечает: Кэр Лаэда Здравствуйте, Float! в дополнение к ответу Примак Руслан Николаевич кроме установки DoubleBuffered в True установите свойство Image Stretch:=true

Ответ отправил: Кэр Лаэда (статус: Студент) Ответ отправлен: 11.06.2007, 12:56

Отвечает: DimonSoft Здравствуйте, Float! Если программа не должна иметь определённых ограничений, то намного проще будет воспользоваться библиотекой DirectX. Код будет приблизительно таким, как в приложении. Изменения следующие: 1. В функции InitDX() вместо Handle надо будет указать Handle контрола, на который будет производиться вывод (например, TPanel). 2. В функции Render() используется вспомогательная функция D3DCOLOR_XRGB(). Её параметры - числа от 0 до 255, соответствующие красному, зелёному и синему составляющим. 3. В примере используется также объект TApplicationEvents (и его событие OnIdle). Кроме того, следует в секцию public описания формы добавить следующие строки: DXObj:IDirect3D9; DXDev:IDirect3DDevice9; P.S. При желании функцию инициализации можно дополнительно упростить, обращайтесь. Приложение: function TMain.InitDX:HRESULT; var DispMode:D3DDISPLAYMODE; PP:D3DPRESENT_PARAMETERS; VPType:Cardinal; Caps:D3DCAPS9; begin Result:=E_FAIL; DXObj:=nil; DXDev:=nil; DXObj:=Direct3DCreate9(D3D_SDK_VERSION); if DXObj=nil then Exit; if Failed(DXObj.GetAdapterDisplayMode(0,DispMode)) then Exit; if Failed(DXObj.GetDeviceCaps(0,D3DDEVTYPE_HAL,Caps)) then Exit; if (Caps.DevCaps and D3DDEVCAPS_HWTRANSFORMANDLIGHT)>0 then VPType:=D3DCREATE_HARDWARE_VERTEXPROCESSING else VPType:=D3DCREATE_SOFTWARE_VERTEXPROCESSING; ZeroMemory(@PP,SizeOf(PP)); PP.Windowed:=True; PP.SwapEffect:=D3DSWAPEFFECT_DISCARD; PP.BackBufferFormat:=DispMode.Format; if Failed(DXObj.CreateDevice(0,D3DDEVTYPE_HAL,Handle,VPType,@PP,DXDev)) then Exit; Result:=D3D_OK; end; procedure TMain.DeInitDX; begin if Assigned(DXDev) then begin DXDev._Release; DXDev:=nil; end; if Assigned(DXObj) then begin DXObj._Release; DXObj:=nil; end; end; procedure TMain.FormCreate(Sender: TObject); begin if Failed(InitDX) then Application.Terminate; end; procedure TMain.FormDestroy(Sender: TObject); begin DeInitDX; end; function TMain.Render:HRESULT; begin Result:=E_FAIL; if DXDev=nil then Exit; if Failed(DXDev.Clear(0,nil,D3DCLEAR_TARGET,D3DCOLOR_XRGB(*,*,*),1,0)) then Exit; if Failed(DXDev.Present(nil,nil,0,nil)) then Exit; Result:=D3D_OK; end; procedure TMain.ApplicationEvents1Idle(Sender: TObject; var Done: Boolean); begin if Failed(Render) then Application.Terminate; Done:=False; end;

Ответ отправил: DimonSoft (статус: 2-ой класс) Ответ отправлен: 11.06.2007, 19:52

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