limelect

@Fr0sT.Brutal This is a BPL taken from D10.2.3 which has a lot of forms inside Translate to PAS and use it.

@Fr0sT.Brutal I am using my program a lot. 1. if you have a DFM in binary I can see it in text. Important. 2. Now for its use. In my case. 3. I can make a PAS file of a DFM. 4. If I have a form and it has a component that is not installed then I move the component to private copy the object on the dfm and create the component. If it does not have bmp it is easy. Obviously the above can be done with text editor except #1. 5. Furthermore you can see the form and have an impression of how it looks. 6. All the above is true if you are trying to use some source you did not make. 7. In my case I mention only a small use. 8. If #1 is used I can save as text the dfm 9. Have you seen what inside a BPL,DLL.EXE? I can

@mitzi I just found that your program loads only d10.4 bpl . well in my case I load any bpl and if it has something to show as you can see in the picture. Sorry. No more debug

On D7 I used ComDrv32.pas (see ComDrv16.pas for Delphi 1.0) | | COM Port Driver for Delphi 2.0 | | Written by Marco Cocco | Copyright (c) 1996-97 by Marco Cocco. All rights reseved. | Copyright (c) 1996-97 by d3k The Artisan Of Ware. All rights reseved. | | Please send comments to d3k@mdnet.it | URL: http://www.mdlive.com/d3k/

@mitziJust downloaded your tool for curiosity Loaded a binary dfm, not text so I got gibberish. plz fix it. In my case, i get it right as binary>text Furthermore, check your properties they are wrong. More how come you bring more properties that exist.? Using the default? Bit Button did not show on the form finally nice layout

This is my own for more than 20 years Nowadays including fmx Never publish sorry

I am using Cport +-------------------------------------------------+ | ComPort Library version 4.10 | | for Delphi 5, 6, 7, 2005, 2006, 2007, 2010, XE | | and C++ Builder 3, 4, 5, 6 | | | | by Dejan Crnila 1998-2002 | | maintained by Lars Dybdahl and Paul Doland | | maintained by Brian Gochnauer Nov 2010 | +-------------------------------------------------+ On D10.2.3 https://sourceforge.net/projects/comport/

Ok

Yes But using a second demo "Update! Uwe Raabe did a refurbished version that eliminates Indy " OK, i will use the first one.

@lars this is the first thing I did. GOOGLE GOOGLE GOOGLE! To the point, I do not have the Delphi version needed. What I have is a Professional ver. Never needed above it.

@uwe Raabe I tried to add IppeerCommon as the error suggested and it does not exist.

Yes but the problem is not the URL!! this just to put something. The problem is much before that FClient := TRESTClient.Create(nil);

@Lars Fosdal just copied O365WebHook.pas and procedure TestExampleToATeamsChannel; var Teams: TWebhook; begin Teams := TWebhook.Create('https://limelect.com'); try Teams.PostMessage(TSimpleText.Create('Hello from Delphi!')); finally Teams.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); begin TestExampleToATeamsChannel; end; Using this post https://larsfosdal.blog/2020/10/16/post-a-message-to-teams-from-delphi-using-webhooks/ Maybe i suppose to add IppeerCommon which i do not have

@Lars Fosdal I used your blog https://larsfosdal.blog/2020/10/16/post-a-message-to-teams-from-delphi-using-webhooks/ to see what is all about I used D10.2.3. I got his error on create FClient := TRESTClient.Create(nil); P.S i used the updated section How to delete a post?

I have been using this guy software with much improvement. Yes since 1997. I wonder who is he? this is from his software Email did not help {*****************************************************************} {* *} {* Dancer's ImageVue v1.0.5 *} {* A Bitmap property editor by African Dancer *} {* *} {* ImageVue is based on Delphi's demo program ImageViewer and *} {* Dr. Bob's image property editor. *} {* *} {* Features: *} {* * Preview images before loading *} {* * Auto conversion from icon and metafiles to bitmap *} {* * 85 Buitl-in button images *} {* * Bookmarks *} {* * ImageEdit 1.0.5 *} {* *} {* African Dancer: dancer@tieus.com *} {* Dec. 23, 1997, Vancouver *} {* *} {*****************************************************************}

@Tntman I got this https://www.whois.com/whois/tieus.com and send an email will see thanks I thought the guy is still active

@Stano I am still around and working.

Thanks OK

@Lars Fosdal This is a test </> [my test] Nice now I understand So if I put source I </> before the source right?

@Uwe Raabe The only thing that I dislike is that the Formater options are all over. when you triggered DelForExp it opens a form asking what you want to do much simpler and more user friendly. Or am I old fashion? P.S I also have it as a stand-alone

@dummzeuch Kind of off-topic What I liked very much with DelForExp that you could format the whole project.

I just did something similar for my project 1.put TRxWindowHook 2. associate with your control . in my case it was a memo. catch Cnt C put this KeyCount boolean procedure TForm2.RxWindowHook1BeforeMessage(Sender: TObject; var Msg: TMessage; var Handled: Boolean); begin if msg.msg = WM_KEYDOWN then begin if (msg.wparam = 17) then KeyCount := true else if (msg.wparam = 67) and (KeyCount = true) then begin KeyCount := false; DoNotCopy := True; << i needed that on cont C end else KeyCount := false; end; end;

@Darian Miller Just for fun JUST FOUND NO BRACKET IN MY SOURCE !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! what an HTML PAGE !!!!! plz fix x:= StrToInt(s); <<<<<<<<<<<< cannot put bracket i unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, JvExStdCtrls, JvEdit, JvValidateEdit, Vcl.Mask, JvExMask, JvSpin; type TForm1 = class(TForm) Button1: TButton; JvValidateEdit1: TJvValidateEdit; Label1: TLabel; Button2: TButton; JvValidateEdit2: TJvValidateEdit; Label2: TLabel; Button3: TButton; JvValidateEdit3: TJvValidateEdit; JvSpinEdit1: TJvSpinEdit; Label3: TLabel; Button4: TButton; Label4: TLabel; Label5: TLabel; Edit1: TEdit; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure Button4Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Label1.Caption:='Answer'; Label2.Caption:='Answer'; Label3.Caption:='Answer'; end; procedure TForm1.Button1Click(Sender: TObject); //to binary var i,x:integer; ans:string; begin ans:=''; i:= JvValidateEdit1.Value; while i>0 do begin ans:=IntToStr(i mod 2) + ans ; i :=i div 2; //ans:=IntToStr(i mod 2)+ans ; //i :=i div 2; end; Label1.Caption:=ans; end; procedure TForm1.Button2Click(Sender: TObject); // to decimal var s:string; i,ans:Integer; begin ans:=1; s:=JvValidateEdit2.Text; for I := 1 to length(s)-1 do ans:=(ans*2) +StrToInt(s[i+1]); Label2.Caption:=IntToStr(ans); end; procedure TForm1.Button3Click(Sender: TObject); //fraction cal var f:real; i,x:integer ; ans:string; begin ans:='0.'; f:=JvValidateEdit3.Value; for I := 1 to Round(JvSpinEdit1.Value) do begin f:=f*2; x:=Trunc(f); f:=Frac(f); ans:=ans+IntToStr(x); end; Label3.Caption:=ans; end; // https://indepth.dev/the-simple-math-behind-decimal-binary-conversion-algorithms/ procedure TForm1.Button4Click(Sender: TObject); //binary to fruction var s:string; k:Real; i,x:Integer; ans:string; begin k:=0; s:=Edit1.Text; for I :=Length(s) downto 1 do begin x:= StrToInt(s); k:=(1/2)*(x+k); end; Label5.Caption:=FloatToStr(k); end; end. object Form1: TForm1 Left = 0 Top = 0 Caption = 'Form1' ClientHeight = 283 ClientWidth = 552 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnCreate = FormCreate PixelsPerInch = 120 TextHeight = 16 object Label1: TLabel Left = 335 Top = 35 Width = 37 Height = 19 Caption = 'Label1' end object Label2: TLabel Left = 335 Top = 73 Width = 37 Height = 16 Caption = 'Label2' end object Label3: TLabel Left = 335 Top = 119 Width = 27 Height = 16 Caption = 'anse' end object Label4: TLabel Left = 187 Top = 155 Width = 16 Height = 21 Caption = '0.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -17 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label5: TLabel Left = 335 Top = 159 Width = 27 Height = 16 Caption = 'anse' end object Button1: TButton Left = 66 Top = 32 Width = 110 Height = 25 Caption = 'To Binary' TabOrder = 0 OnClick = Button1Click end object JvValidateEdit1: TJvValidateEdit Left = 182 Top = 32 Width = 121 Height = 24 CriticalPoints.MaxValueIncluded = False CriticalPoints.MinValueIncluded = False EditText = '582' TabOrder = 1 end object Button2: TButton Left = 68 Top = 70 Width = 108 Height = 25 Caption = 'To Decimal' TabOrder = 2 OnClick = Button2Click end object JvValidateEdit2: TJvValidateEdit Left = 182 Top = 70 Width = 121 Height = 24 CriticalPoints.MaxValueIncluded = False CriticalPoints.MinValueIncluded = False EditText = '1001000110' TabOrder = 3 end object Button3: TButton Left = 66 Top = 116 Width = 110 Height = 25 Caption = 'Fruction Calc' TabOrder = 4 OnClick = Button3Click end object JvValidateEdit3: TJvValidateEdit Left = 182 Top = 117 Width = 121 Height = 24 CriticalPoints.MaxValueIncluded = False CriticalPoints.MinValueIncluded = False DisplayFormat = dfFloat DecimalPlaces = 10 EditText = '0.24' TabOrder = 5 end object JvSpinEdit1: TJvSpinEdit Left = 481 Top = 116 Width = 63 Height = 24 MaxValue = 10.000000000000000000 MinValue = 1.000000000000000000 Value = 8.000000000000000000 TabOrder = 6 end object Button4: TButton Left = 73 Top = 155 Width = 108 Height = 25 Caption = 'Binary Fruction' TabOrder = 7 OnClick = Button4Click end object Edit1: TEdit Left = 208 Top = 155 Width = 95 Height = 24 NumbersOnly = True TabOrder = 8 Text = '1011' end end

@Daniel Thanks