- 0
-
Похожий контент
-
От Sashar333
Здравствуйте! Подскажите пожалуйста почему такая в масштабе разница отрисовки в Bitmap.Canvas в Windows и Android, и как ее настроить?
Windows:
Android:
Дано:
1. Массив с координатами прямоугольников и их габаритами (миллиметры)
2. Поле для расположения этих прямоугольников ширина 2000мм длина 6000мм (ширину и длину может менять пользователь но не более этих размеров)
Задача:
Вывести в Bitmap на экран это поле с расположенными прямоугольниками
на картинках "Лист" - это Image
Не могу понять как подогнать Bitmap.size под все экраны
вот мой код:
Спасибо за внимание!
-
От Botov Nikita
Добрый день Уважаемые!
Подскажите каким образом можно реализовать функцию ластика в XE 10.3?
Например на форме лежит 2 TImage один над другим, и когда мышкой проводим по верхней картинке, остается "след" и видно нижнюю картинку?
С Уважением!
-
От Павел Блажеев
Добрый день. Очень нужна Ваша помощь.
Мне необходимо сделать координатную сетку в виде точек. При масштабировании панели количество точек должно изменяться .
Хочу все это сделать на канве панели. Унаследовал класс и переопределил procedure Paint; override;
Tfield = class(TPanel)
Constructor Create( parent: TFmxObject);
procedure Paint; override;
Procedure OnMyClick (Sender: TObject);
end;
В теле метода я пробовал рисовать. Экспериментировал и столкнулся с такой проблемой. Ничего не отображается. Нет никаких изменений.
Если я наследую не от Tpanel а от Timage то часть кода работает а часть работает очень криво. Очень хочу разобраться почему .
{Отображается сразу}
for a:=1 to 1000 do
begin
self.Canvas.Fill.Color:= TAlphaColors.Crimson;
self.Canvas.FillEllipse(rect(1,1,10,10),self.AbsoluteOpacity);
self.Canvas.FillEllipse(rect(round(self.Width-9),round(self.Height-9),round(self.Width), round(self.Height)),self.AbsoluteOpacity);
self.Canvas.FillEllipse(rect(round(self.Width-9),1,round(self.Width), 9),self.AbsoluteOpacity);
self.Canvas.FillEllipse(rect(1,round(self.Height-9),10, round(self.Height)),self.AbsoluteOpacity);
end;
{Отображается только после того как я проскролю Scrollbox на котором лежит панель в крайнее нижнее правое положение}
self.Canvas.Stroke.Color:= TAlphaColors.Crimson;
self.Canvas.Stroke.Thickness:=7;
Canvas.BeginScene;
self.Canvas.DrawLine(PointF(20, 20), PointF(100, 50), self.AbsoluteOpacity);
Canvas.EndScene;
Подскажите пожалуйста, почему не работает такое с панелью? Как правильно рисовать на панели?
Почему в случае с имейджем все работает так некорректно? Почему работает только после скрола?
Каким способом мне лучше сделать координатную сетку? состоящую из точек как в режиме Design?
-
От Zyablik3000
Здравствуйте!
Есть самописный компонент - индикатор загрузки написанныый под VCL с использованием Direct2D.
TD2DProgressBar = class(TCustomControl) FRenderTarget: ID2D1RenderTarget; FD2DFactory.CreateWicBitmapRenderTarget(FWicBitmap, RenderTargetProp, FRenderTarget); FInteropTarget := FRenderTarget as ID2D1GdiInteropRenderTarget; Вся отрисовка происходит на FRenderTarget.
Затем беру
FInteropTarget.GetDC(D2D1_DC_INITIALIZE_MODE_COPY, FRenderDC); и вывожу на поверхность функцией
procedure TD2DProgressBar.UpdateWindow(sourceDC : HDC); var info : TUpdateLayeredWindowInfo; begin ZeroMemory(@info, sizeof(info)); with info do begin cbSize := sizeof(TUpdateLayeredWindowInfo); pptSrc := @FSourcePosition; pptDst := @FWindowPosition; psize := @FWndSize; pblend := @FBlend; dwFlags := ULW_ALPHA; end; info.hdcSrc := SourceDC; if not UpdateLayeredWindowIndirect(handle, @info) then begin RaiseLastOSError(); end end; Но это только под VCL.
В Firemonkey не нашел способа комбинировать градиенты и/или нарисовать арку градиентом (саму линию арки а не залить сектор) или комбинацией градиентов.
Как вывести этот FRenderTarget на канву Firemonkey-контрола?
Самая большая проблема в том, что компонент полупрозрачный, и вариант с переливом через Vcl.Graphics.TBitmap и MemoryStream не дает нужного результата.
MS:=TMemoryStream.Create; Blend.BlendOp := AC_SRC_OVER; Blend.BlendFlags := 0; Blend.AlphaFormat := AC_SRC_NO_PREMULT_ALPHA; Blend.SourceConstantAlpha:= 255; // // Уровень прозрачности Res:=Winapi.Windows.AlphaBlend(VCLBitmap.Canvas.Handle, 0, 0, VCLBitmap.Width, VCLBitmap.Height, FRenderDC, 0, 0, VCLBitmap.Width, VCLBitmap.Height, Blend); {или эта функция StretchBlt(bm.Canvas.Handle, 0, 0, VCLBitmap.Width, VCLBitmap.Height, FRenderDC, 0, 0, VCLBitmap.Width, VCLBitmap.Height, SRCCOPY); } VCLBitmap.SaveToStream(MS); FFMXBitmap.SetSize(TSize.Create(VCLBitmap.Width, VCLBitmap.Height)); FFMXBitmap.LoadFromStream(MS); FreeAndNil(MS);
В Blend пробовал разные комбинации BlendOp и AlphaFormat.
Хелп плизз!
Во вложении компонент под VCL. ( Может кому пригодится)) )
D2DProgressbar.zip
-
От Ильдар
Добрый день, идеология такая:
- создать битмап, рисовать на нем, не делая его видимым.
- нашлепать на канву панели подготовленный битмап.
На деле не получается нарисовать линию на битмапе. Т.е после процедуры Draw2 прожимаю процедуру Draw - получаю на панели красный прямоугольник битмапа без нарисованной линии...
Посоветуйте чего-нибуть, спасибо!
//BITMAP Bm:= TBitmap.Create; bm.Width:= round (Panel.Width/2); bm.Height:= round (Panel.Height/2); bm.Canvas.BeginScene(); bm.Canvas.Clear(TAlphacolorrec.Red); //($FF484848); bm.Canvas.EndScene; procedure TChart.Draw2; var A,B:TPointF; begin A:=TPointF.Create(0,0); B:=TPointF.Create(200, 200); bm.Canvas.BeginScene(); bm.Canvas.DrawLine(A,B,1); bm.Canvas.EndScene; end; procedure TChart.Draw; var A: TPointF; R: TRectF; begin A.X:= Panel.Position.X+3; A.Y:= Panel.Position.Y+3; R:= TRectF.Create(A, bm.Width , bm.Height); panel.Canvas.BeginScene(); Panel.Canvas.DrawBitmap(bm,r,r, 20); panel.Canvas.EndScene; end;
-
От Макс Войтенко
Хотел сделать вот так (1 скриншот)
Выбраная вкладка (аккаунты): иконка красная. А остальные вкладки чтобы иконка была серая. (как шрифт ниже).
Подскажите как решить?
-
-
-
Последние посетители 0 пользователей онлайн
Ни одного зарегистрированного пользователя не просматривает данную страницу
Загружаю через opendialog картинку формата bmp в image
Есть переменные с:TColor, c1:Tcolor
Необходимо вначале узнать цвет определенного пикселя на загруженной картинке и записать в c1, а затем изменить цвет определенного пикселя на загруженной картинке на цвет, хранящийся в переменной c.
Ищу очень давно, но внятного объяснения нигде не нашла(
Поделиться сообщением
Ссылка на сообщение
Поделиться на другие сайты