Jump to content

dwrbudr

Members
  • Content Count

    11
  • Joined

  • Last visited

Community Reputation

4 Neutral
  1. dwrbudr

    Change Scroll bar color

    Checking Vcl.Forms.pas, it registers both TCustomForm and TForm to the style engine. Does it help if you call TStyleManager.Engine.RegisterStyleHook(TSynEdit, TScrollingStyleHook);
  2. dwrbudr

    DevExpress PDF Viewer

    ImageEn had PDF support. One DLL about 4MB is required for that. I've tested it and it works well. https://www.imageen.com/info/history.html
  3. dwrbudr

    r3588 and Alexandria

    I've build the sources, but now when I open the options, e.g. menu - GExperts -> Configuration an exception is raised. The error is there for both Debug and Release builds. [77684598]{KERNELBASE.dll} RaiseException + $48 [500666C4]{rtl280.bpl } System.DynArraySetLength (Line 36417, "System.pas" + 98) + $13 [16601F94]{GExpertsRS110.dll} __dbk_fcall_wrapper + $3D4 [500604D5]{rtl280.bpl } System.@AfterConstruction (Line 19330, "System.pas" + 2) + $5 [5005A388]{rtl280.bpl } System.@FreeMem (Line 4976, "System.pas" + 20) + $0 [500668E7]{rtl280.bpl } System.@DynArrayClear (Line 36682, "System.pas" + 49) + $0 [500647C0]{rtl280.bpl } System.@FinalizeRecord (Line 32825, "System.pas" + 86) + $4 [5005A388]{rtl280.bpl } System.@FreeMem (Line 4976, "System.pas" + 20) + $0 [500668E7]{rtl280.bpl } System.@DynArrayClear (Line 36682, "System.pas" + 49) + $0 [500664F4]{rtl280.bpl } System.DynArraySetLength (Line 36328, "System.pas" + 9) + $6 [16601FDD]{GExpertsRS110.dll} __dbk_fcall_wrapper + $41D [523D8019]{exceptiondiag280.bpl} JclHookExcept.TNotifierItem.DoNotify (Line 223, "JclHookExcept.pas" + 5) + $E [500606FC]{rtl280.bpl } System.TMonitor.CheckOwningThread (Line 19536, "System.pas" + 2) + $0 [50060A22]{rtl280.bpl } System.TMonitor.Exit (Line 19726, "System.pas" + 1) + $2 [16602C51]{GExpertsRS110.dll} Unknown function at __dbk_fcall_wrapper + $1091 [1662097B]{GExpertsRS110.dll} Unknown function at __dbk_fcall_wrapper + $1EDBB [5006049E]{rtl280.bpl } System.@ClassCreate (Line 19311, "System.pas" + 35) + $0 [50E08EDA]{vcl280.bpl } Vcl.Forms.TraverseClients3 (Line 8157, "Vcl.Forms.pas" + 5) + $38 [16601F94]{GExpertsRS110.dll} __dbk_fcall_wrapper + $3D4 [16601FDD]{GExpertsRS110.dll} __dbk_fcall_wrapper + $41D [16602C51]{GExpertsRS110.dll} Unknown function at __dbk_fcall_wrapper + $1091 [16620947]{GExpertsRS110.dll} Unknown function at __dbk_fcall_wrapper + $1ED87 [166209A6]{GExpertsRS110.dll} Unknown function at __dbk_fcall_wrapper + $1EDE6 [1670CF5E]{GExpertsRS110.dll} Unknown function at __dbk_fcall_wrapper + $10B39E [166F343F]{GExpertsRS110.dll} Unknown function at __dbk_fcall_wrapper + $F187F [1665AFD8]{GExpertsRS110.dll} Unknown function at __dbk_fcall_wrapper + $59418 [501733CF]{rtl280.bpl } System.Classes.TBasicAction.Execute (Line 17813, "System.Classes.pas" + 3) + $7 [50CAF9B2]{vcl280.bpl } Vcl.ActnList.TCustomAction.Execute (Line 284, "Vcl.ActnList.pas" + 19) + $35 [50173223]{rtl280.bpl } System.Classes.TBasicActionLink.Execute (Line 17724, "System.Classes.pas" + 2) + $7 [217C663D]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.ExecAction (Line 1099, "Vcl.ActnMenus.pas" + 6) + $D [217C7EF8]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.TrackMenu (Line 1869, "Vcl.ActnMenus.pas" + 19) + $15 [217CBA3E]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMainMenuBar.TrackMenu (Line 3736, "Vcl.ActnMenus.pas" + 5) + $3 [217C61BC]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.CMItemClicked (Line 969, "Vcl.ActnMenus.pas" + 2) + $11 [217C61C5]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.CMItemClicked (Line 970, "Vcl.ActnMenus.pas" + 3) + $4 [50CC7CCA]{vcl280.bpl } Vcl.Controls.TControl.WndProc (Line 7544, "Vcl.Controls.pas" + 91) + $6 [50CCC435]{vcl280.bpl } Vcl.Controls.GetControlAtPos (Line 10291, "Vcl.Controls.pas" + 2) + $78 [50CCC506]{vcl280.bpl } Vcl.Controls.InternalControlAtPos (Line 10315, "Vcl.Controls.pas" + 15) + $E [50CCCC49]{vcl280.bpl } Vcl.Controls.TWinControl.WndProc (Line 10527, "Vcl.Controls.pas" + 118) + $1D [50CCCDBD]{vcl280.bpl } Vcl.Controls.TWinControl.WndProc (Line 10579, "Vcl.Controls.pas" + 170) + $6 [50060D74]{rtl280.bpl } System.TMonitor.TryEnter (Line 19961, "System.pas" + 10) + $0 [50060894]{rtl280.bpl } System.TMonitor.Enter (Line 19622, "System.pas" + 4) + $2 [500606FC]{rtl280.bpl } System.TMonitor.CheckOwningThread (Line 19536, "System.pas" + 2) + $0 [50060A22]{rtl280.bpl } System.TMonitor.Exit (Line 19726, "System.pas" + 1) + $2 [217C802B]{vclactnband280.bpl} Vcl.ActnMenus.TCustomActionMenuBar.WndProc (Line 1913, "Vcl.ActnMenus.pas" + 25) + $4 [50CCC338]{vcl280.bpl } Vcl.Controls.TWinControl.MainWndProc (Line 10267, "Vcl.Controls.pas" + 3) + $6 [50174200]{rtl280.bpl } System.Classes.StdWndProc (Line 18318, "System.Classes.pas" + 8) + $0 [50E0D68F]{vcl280.bpl } Vcl.Forms.TApplication.ProcessMessage (Line 11317, "Vcl.Forms.pas" + 23) + $1 [50E0D6D2]{vcl280.bpl } Vcl.Forms.TApplication.HandleMessage (Line 11347, "Vcl.Forms.pas" + 1) + $4 [50E0DA11]{vcl280.bpl } Vcl.Forms.TApplication.Run (Line 11486, "Vcl.Forms.pas" + 27) + $3 [004F6F82]{bds.exe } bds.bds (Line 227, "" + 16) + $2
  4. dwrbudr

    r3588 and Alexandria

    I've downloaded and installed the DLL from this thread, but how can I remove the debug window icon from showing in the tray?
  5. dwrbudr

    RAD Studio 11 Alexandria is now available

    Didn't work either. I've removed all licenses using 10.4.2 License Manager, started Delphi 11 setup, added the serial - Alexandria is now in the list. Then I press Register, enter the login information - License Error, etc. EMB created a great mess!
  6. dwrbudr

    RAD Studio 11 Alexandria is now available

    I also couldn't install Delphi 11, the Advanced -> Update trick didn't work - Alexandria is not being added to the list, although I have active subscription.
  7. dwrbudr

    Skia4Delphi

    The skottie player demo using check.json doesn't correctly draw the image. See the black rugged edge border when the circle is being painted. Instead of using TWICBitmap, I've switched to 32bit TBitmap and created the TSKSurface like this: LSurface := TSKSurface.MakeRasterDirect(TSKImageInfo.Create( fBitmap.Width, fBitmap.Height, TSKColorType.BGRA8888), fBitmap.ScanLine[fBitmap.Height - 1], BytesPerScanLine(fBitmap.Width, 32, 32)); LSurface.Canvas.Clear(TAlphaColors.Null); FAnimation.Render(LSurface.Canvas, fDestRect); //flip the image since the DIB is bottom-up orientaded StretchBlt(fBitmap.Canvas.Handle, 0, 0, fBitmap.Width, fBitmap.Height, fBitmap.Canvas.Handle, 0, fBitmap.Height - 1, fBitmap.Width, -fBitmap.Height, SRCCOPY); Now all seem OK and the border is not rugged, not sure whtat's wrong with TWICBitmap. Check the border of the images below.
  8. dwrbudr

    Looking for SVG support in Delphi?

    I could provide resvg bindings if you like and a compiled DLL files (32 and 64bit)
  9. dwrbudr

    Skia4Delphi

    I've tried to convert SVG to PNG with this library without luck. What's wrong with this code? The SVG file is in the EXE folder as well as sk4d.dll On other pretty simple SVG files, LDOM is nil, probably TSKSVGDOM is too strict. var LDOM: ISKSVGDOM; LSize: TSizeF; LSVGStream: ISKStream; LSurface: ISKSurface; LImage: ISKImage; begin LSurface := TSKSurface.MakeRaster(256, 256); LSVGStream := TSKFileStream.Create(ExtractFilePath(Application.ExeName) + 'porsche.svg'); LDOM := TSKSVGDOM.Make(LSVGStream); (LDOM as TSkiaObject).DebugMessageProc := procedure(const AMessage: string) begin Caption := AMessage; end; LSize := LDOM.Root.GetIntrinsicSize(TSizeF.Create(0, 0)); // <== LSize is (0, 0) ?! LDOM.Render(LSurface.Canvas); // DebugMessageProc called with "can''t render image: load image failed" LImage := LSurface.MakeImageSnapshot; LImage.EncodeToFile(ExtractFilePath(Application.ExeName) + 'output.png', TSKEncodedImageFormat.PNG); end;
  10. dwrbudr

    Skia4Delphi

    Could you please add the source of the Skia Demo to the repository?
  11. dwrbudr

    Drawing bug with VCL Styles

    I can reproduce the issue. The main thing here is that the monitors should not be aligned. The bug is already reported, but nobody seems to care: https://quality.embarcadero.com/browse/RSP-27207
×