Jump to content

jbWishmaster

Members
  • Content Count

    7
  • Joined

  • Last visited

Community Reputation

2 Neutral
  1. jbWishmaster

    Remote Desktop with ICS

    @FPiette as I explained already " the Port and IP are not blocked" otherwise the first demo I posted would not work either. there must be something else that I have overlooked.
  2. jbWishmaster

    Remote Desktop with ICS

    so i did some testing using the OverbyteIcsTWSChat demo and it worked as expected, at least it connected between my x2 main computers and virtualbox. however when i tried it at work it didn't connected at all. and I used the same IP and port number as the demo posted above which works without problems. as far as I understand it the Port and IP are not blocked, At work I have several MS Surface tablets which I can use for testing. but so far I have no luck. so if someone has an idea on how to fix it, perhaps I miss something!?
  3. jbWishmaster

    Use graphics32 to draw rounded rectange with gradient + border

    try the following code, it works for me. procedure Draw_PannelFrame_Flat_Rounded(Dst : TBitmap32; R: TRect; Sides : TSides; Color : TColor32; PenStyle: TPenStyle; StrokeWidth : Single = 1; Radius : Integer = 6) ; var Points : TArrayOfFloatPoint; Dashes : TArrayOfFloat; FRect : TFloatRect; begin FRect:= FloatRect(R); case PenStyle of psSolid: begin Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); PolyPolylineFS(Dst, PolyPolygon(Points), Color, True, StrokeWidth * 1, jsMiter, esSquare); end; psDash: begin // Dashes := MakeArrayOfFloat([10, 3, 3, 3, 3, 3]); Dashes := MakeArrayOfFloat([6, 2, 6, 2]); Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); DashLineFS(Dst, Points, Dashes, Color, True, StrokeWidth * 1); end; psDot: begin Dashes := MakeArrayOfFloat([2, 2, 2, 2]); Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); DashLineFS(Dst, Points, Dashes, Color, True, StrokeWidth * 1); end; psDashDot: begin Dashes := MakeArrayOfFloat([6, 2, 2, 2]); Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); DashLineFS(Dst, Points, Dashes, Color, True, StrokeWidth * 1); end; psDashDotDot: begin Dashes := MakeArrayOfFloat([10, 2, 2, 2, 2, 2]); Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); DashLineFS(Dst, Points, Dashes, Color, True, StrokeWidth * 1); end; psClear: ; psInsideFrame: begin Points:= Build_RoundRect(Radius, FRect, StrokeWidth * 1); PolyPolylineFS(Dst, PolyPolygon(Points), Color, True, StrokeWidth * 1); end; psUserStyle: ; psAlternate: ; end; end;
  4. jbWishmaster

    Use graphics32 to draw rounded rectange with gradient + border

    function Build_RoundRect(Radius : TFloat; Rec: TFloatRect; BorderWidth : TFloat ): TArrayOfFloatPoint; var FRec : TFloatRect; begin FRec.Left:= Rec.Left + 0.5 * BorderWidth; FRec.Top:= Rec.Top + 0.5 * BorderWidth; FRec.Right:= Rec.Right - 0.5 * BorderWidth; FRec.Bottom:= Rec.Bottom - 0.5 * BorderWidth; Result:= RoundRect(FRec, Radius); end; procedure Draw_GradientLinear(Dst : TBitmap32; StartPoint, EndPoint: TFloatPoint; Outline : TArrayOfFloatPoint; Colors : TGradColors); var FFilter : TLinearGradientPolygonFiller; FPolys : TArrayOfArrayOfFloatPoint; begin FFilter := TLinearGradientPolygonFiller.Create(); try Setlength(FPolys, 0); FPolys:= PolyPolygon(Outline); FFilter.StartPoint:= StartPoint; FFilter.EndPoint:= EndPoint; FFilter.WrapMode:= wmClamp;// TWrapMode(1); FFilter.Gradient.ClearColorStops; FFilter.Gradient.StartColor:= Color32(Colors[1]); FFilter.Gradient.EndColor:= Color32(Colors[2]); PolyPolygonFS(Dst, FPolys, FFilter, pfWinding); finally FFilter.Free; Setlength(FPolys, 0); end; end; //---------------------------------------------------------- TGradColors = Array of TColor; TGradPosition = Array [1..2] of TFloat; TGradientStyle = (gsLinearV, gsLinearH, .......) procedure TjbGradient.PaintTo(Dst: TBitmap32; R: TRect); var Buffer : TBitmap32; Colors : TGradColors; Position : TGradPosition; Center : TFloatPoint; Radius : TFloat; Angle : TFloat; CenterPoint : TFloatPoint; FOutline : TArrayOfFloatPoint; StartPoint, EndPoint: TFloatPoint; FRect : TFloatRect; begin if IsRectEmpty(R) then exit; FRect:= FloatRect(R); Buffer := TBitmap32.Create; Buffer.SetSize(R.Width, R.Height); Buffer.ResetAlpha; Buffer.MasterAlpha := FAlpha; Buffer.DrawMode := dmBlend; Buffer.Clear(0); FOutline:= Build_RoundRect(RoundRadius, FRect, 1); if Length(FOutline) = 0 then exit; case FGradStyle of gsLinearV: begin SetLength(Colors, 3); Colors[1]:= ColorFrom; Colors[2]:= ColorTo; StartPoint.X:= 0; StartPoint.Y:= FRect.Top; EndPoint.X:= 0; EndPoint.Y:= FRect.Bottom; Draw_GradientLinear(Buffer, StartPoint, EndPoint, FOutline, Colors); Buffer.DrawTo(Dst, 0, 0); end; gsLinearH: begin SetLength(Colors, 3); Colors[1]:= ColorFrom; Colors[2]:= ColorTo; StartPoint.X:= FRect.Left; StartPoint.Y:= 0; EndPoint.X:= FRect.Right; EndPoint.Y:= 0; Draw_GradientLinear(Buffer, StartPoint, EndPoint, FOutline, Colors); Buffer.DrawTo(Dst, 0, 0); end; end ... it's just a small snippet I hope it helps.
  5. jbWishmaster

    Remote Desktop with ICS

    Thank you for your answers, I will try it on the weekend when I have more time.
  6. I have an old code that I'm trying to translate, make it work with ICS but I am somewhat lost. I am new to ICS and I try to understand it so I am grateful for any help. it is a Client + Server app for a Remote Desktop. the original code is using the components TIdTCPClient and TIdTCPServer, See attachment! 2. Delphi_Remote_Desktop_Source_Code_Keystrokes.zip
  7. jbWishmaster

    ICS V8.60 announced

    In Delphi v10.3.1 I tried to compile ICS v8.60 and in File OverbyteIcsFileCopy function TIcsFileCopy.BuildDirList2 Line 1459 and 1483 I get an Error [dcc32 Error] OverbyteIcsFileCopy.pas(1459): E2242 'SysUtils' is not the name of a unit
×