rruz / blog Goto Github PK

GetWiFi_NetworkAdapterInfo FWbemObjectSet:= FWMIService.ExecQuery('SELECT * FROM WiFi_NetworkAdapter','WQL',wbemFlagForwardOnly);

Delphi 7 window 7 error invalid class

with Delphi 10.4 I get a this compile error
"Cannot access private symbol TCustomStyleEngibe.FRegisteredStyleHooks"
in the VCL Style Hooks demo.

Hi Rodrigo,

Since december, I have the following script error
"URL: http://maps.google.com/maps-api-v3/api/js/23/7/intl/fr_ALL/onion.js"
I see on the internet that other softwares meet the same problem (see for example http://faq.pcsoft.fr/12194-faq-read.awp, in french. It is exactly the same error...).
The Company says that this error message could be due to the fact that Google forbids some request depending on its "origin" (I don't know what it means...)
They explain that (in french) "il faut donc configurer l'ActiveX de Internet Explorer pour que les requêtes envoyées soient identifiées comme provenant de Internet Explorer 11"
In English: The Internet Explorer ActiveX must be configured in a way that the sent requests are identified as if they are sent from Internet Explorer 11"
I use the TWebBrowser component in Delphi XE7.
Do you have an idea?
Thank you.

How to change for richedit?

  Form1.Rich1.SelAttributes.Color := clRed;
  Form1.Rich1.SelAttributes.Style := [fsBold];

I tried

TRichEdit= Class (Vcl.ComCtrls.TRichEdit);

TRichEditStyleHookColor = class(TRichEditStyleHook)
private
procedure UpdateColors;
protected
procedure WndProc(var Message: TMessage); override;
public
constructor Create(AControl: TWinControl); override;
end;

if Control.Enabled then
begin
Brush.Color := TWinControlH(Control).Color;
SelAttributes.Color:=TWinControlH(Control).Color;<<< dose not work
FontColor := TWinControlH(Control).Font.Color;

so, it help me lot. Thank's

I'm actually not sure if this repository is the original source for this library. But it seems to be the most advanced version I found and it's the first search result, so I'll give it a go...

I've noticed that some constants are missing. Could you please add them to the project?

nduL2cmn.pas:
24:
  NDU_L2_NOTIFICATION_SOURCE_WLAN_HNWK                = $00000080;


nduWlanAPI.pas:
15:
  NDU_WLAN_PROFILE_GET_PLAINTEXT_KEY = $00000004;

622:
  NDU_WLAN_NOTIFICATION_SOURCE_ONEX = NDU_L2_NOTIFICATION_SOURCE_ONEX;

  NDU_WLAN_NOTIFICATION_SOURCE_HNWK = NDU_L2_NOTIFICATION_SOURCE_WLAN_HNWK;

I'd also like to suggest to replace all tab characters with two spaces. Using tabs is bad as they lead to strange effects during navigation and when copying parts to a different location. This can easily be done with search and replace.