delphi procedure Handling Messages

 

https://stackoverflow.com/questions/35207639/is-possible-to-use-messages-in-a-class-procedure
https://docwiki.embarcadero.com/RADStudio/Sydney/en/Declaring_a_New_Message-handling_Method
procedure WMPaint(var Msg: TWMPaint); message WM_PAINT;

 
procedure TForm1.WMPaint(var Msg: TWMPaint);
begin
 Beep;
 inherited;
end;

procedure WndProc(var msg: TMessage);

TApplicationEvent
TApplicationEvents.OnMessage
https://github.com/RRUZ/Delphi-IDE-Colorizer/blob/master/IDE%20PlugIn/Galileo/TApplicationEvents.pas

 http://etutorials.org/Programming/mastering+delphi+7/Part+IV+Delphi+the+Internet+and+a+.NET+Preview/Chapter+25+Delphi+for+.NET+Preview+The+Language+and+the+RTL/New+Delphi+Language+Features/

 https://www.syncfusion.com/succinctly-free-ebooks/delphi/object-oriented-programming-with-delphi

SetIncludeExclude (Delphi)
Description


Include(EventProp, eventHandler);
Exclude(EventProp, eventHandler);

 Multicast Events

Delphi has always had the ability to set an event listener— 

https://www.cynet.com.tw/learning/Delphi/Delphi_Basic/049.htm

　　Const

WM_MYFIRSTMESSAGE=WM_USER+0;

WM_MYSECONDMESSAGE=WM_USER+1;

 

 

https://docs.microsoft.com/zh-tw/windows/win32/winmsg/message-and-message-queue-functions

 Adventures  Delphi   Messaging TWinControl message Perform WM_USER

 

Removes an element from a Delphi set.

 https://docwiki.embarcadero.com/CodeExamples/Sydney/en/SetIncludeExclude_(Delphi)

 http://www.delphibasics.co.uk/RTL.asp?Name=include&ExpandCode1=Yes

 

 

delphi record file stored in a File type

 https://docwiki.embarcadero.com/Libraries/Alexandria/en/System.TFileRec

 

 How to Add Resource Files in Delphi Executables

 https://www.thoughtco.com/inside-the-delphi-exe-1058211

 Use Delphi Pascal to dynamically add data to an executable file | How to

 https://delphidabbler.com/articles/article-7

 https://www.delphipraxis.net/144310-save-record-blob.html

 https://www.delphipower.xyz/guide_5/loading_data_from_and_saving_data_to_files.html

 https://www.thoughtco.com/create-database-delphis-file-typed-files-1058003

 https://github.com/KrystianBigaj/kblib

 https://stackoverflow.com/questions/3820996/delphi-2010-how-to-save-a-whole-record-to-a-file

 http://www.delphicorner.f9.co.uk/articles/apps6.htm

Delphi Corner Article - Working with Files of Records

https://blog.karthisoftek.com/a?ID=01550-94385f1c-6cdf-4f1f-86d0-3b28d8d07222

ListView ViewStyle: vsIcon,vsList,vsReport,vsSmallIcon

 http://mrxray.on.coocan.jp/Delphi/plSamples/790_ListView.htm

https://docwiki.embarcadero.com/CodeExamples/Sydney/en/ViewStyleProperty_(Delphi)

delphi ListView AddGroupItem

https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Mobile_Tutorial%3A_Using_ListBox_Components_to_Display_a_Table_View_%28iOS_and_Android%29

 

12-1. 檔案總管的介面 表單檢視元件（ListView） 範例12-1
在範例12-1，我們的介面相當簡單，除了一個輸入資料的介面外，就是一個ListView。除了提到這些可看見的VCL元件外，我們還有放入一個Popup menu以及一個ImageList在這個範例中。Popup menu主要是提供滑鼠右鍵的功能選單，，而ImageList則是要提供一些Image給ListView使用。  

var
  item: TListItem;
  I:integer;
begin
  listView1.ViewStyle := vsReport;// Set ListView as report form
     listView1.Columns.Add; // add 1 column
     listView1.Columns.Add; // add another column
     listView1.Column[0].Caption :='Serial Number'; // First column title
     listView1.Column[1].Caption :='Name'; // The second column title
     // Start filling the memory of this table below
     // Each row of TListView is a TListItem object
     item := listView1.Items.add; //Add a line, that is, add a TListItem object, and the Add function returns this TListItem object.
     item.Caption := '1'; // The caption of the TLisItem object represents the first column of this row, that is, the first row and first column of the serial number column in your icon
     // The SubItems of the TListItem object is a collection of strings, that is, the second to N columns of the row
     item.SubItems.Add(' bian'); // Add the data in the first row and second column, which is the value of the name column
  // ........
     // Repeatedly add Columns and TListItem and its subitem to fill a table
for I:=0 to 13 do
begin
   listView1.Items[i]:= '10'; // modify the first row and the first column
     listView1.Items[i].SubItems[0]:='Zhang San'; // Modify the first row and second column
     listView1.Items[i].SubItems[1]:='100 years old'; // modify the first row and the third column
     listView1.items[i].subitems[2]:='110';//modify the first row and the fourth column
end;
end;

Delphi Compatibility Macros - RAD Studio

 https://docwiki.embarcadero.com/RADStudio/Sydney/en/Delphi_Compatibility_Macros

 OPENARRAY

#define OPENARRAY(type, values) \
   OpenArray<type>values, OpenArrayCount<type>values.GetHigh()

The OPENARRAY macro can be used as in the following example:

myProc(OPENARRAY(TVarRec,(1, 2, 3, 4, 5)))
      //in which case the expanded code looks like:
myProc(OpenArray<TVarRec>(1, 2, 3, 4, 5), OpenArrayCount<TVarRec>(1, 2, 3, 4, 5).GetHigh())
     //which corresponds to what Delphi methods expect.

The same technique is used for the rest of the macros.

 https://docwiki.embarcadero.com/RADStudio/Sydney/en/Predefined_Macros

 https://docs.devart.com/unidac/work_macros.htm

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Create Wrapper Interfaces For C and C++ Libraries Using SWIG With Delphi Support SWIG is a program that takes C++ .h and .cpp files and generates object-oriented language bindings for various languages. Cross-language shared libraries SWIG (Simplified Wrapper and Interface Generator) is a software development tool for building scripting language interfaces to C and C++ programs.

 https://www.fmxexpress.com/create-wrapper-interfaces-for-c-and-c-libraries-using-swig-with-delphi-support/

https://github.com/FMXExpress/swig-delphi 

https://wiki.freepascal.org/SWIG

ShellExecute url delphi Web browser

 

 https://stackoverflow.com/questions/10154543/opening-webpage-in-default-browser-with-double-quotes-inside-url

 ShellExecute  launch  default Web browser

 

http://delphiprogrammingdiary.blogspot.com/2014/07/shellexecute-in-delphi.html

 https://blog.csdn.net/zisongjia/article/details/105252322

 https://stackoverflow.com/questions/2842452/open-default-browser-with-a-post-in-delphi

https://www.cryer.co.uk/brian/delphi/howto_openbrowserurl.htm

    ShellExecute(self.WindowHandle,'open','www.cryer.co.uk',nil,nil, SW_SHOWNORMAL);

If the URL is not hard coded but held in a string, then it will need to be explicitly passed as a PChar:

    ShellExecute(self.WindowHandle,'open',PChar(url),nil,nil, SW_SHOWNORMAL);

 

Scrapy tools Web Crawlers Automated Webbots

 https://startupstash.com/web-crawler-tools/

 Scrapy Python: How to Make Web Crawler in Python | DataCamp

https://www.datacamp.com/tutorial/making-web-crawlers-scrapy-python

python Scrapy bot  tools  Web Crawlers Automated   Webbots

icecream Orchis mascula (Nordens Flora) Orchis salep Salep üretimi toplama kurutma tüm aşamaları

 https://youtu.be/Ui-fiCNpGcM

 https://en.wikipedia.org/wiki/Dondurma

https://en.wikipedia.org/wiki/Salep

 salep ice cream

High viscosity  salep maltose honey starch

 High viscosity  salep

 https://www.rheologylab.com/articles/rheology-v-viscosity/

ไม้ไผ่ บ้านไม้ไผ่ cây tre Nhà tre Building Bamboo House Duck Farming ไอเดียบ้านไม้ไผ่ โครงสร้างแข็งแรงใช้วัสดุทนทานได้มาตรฐาน

  ไอเดียบ้านไม้ไผ่ โครงสร้างแข็งแรงใช้วัสดุทนทานได้มาตรฐาน

https://www.baanlaesuan.com/164702/ideas/house-ideas/bamboo-2

Transparent lignin pressure Delignification Maryland Super wood could replace steel hydroxide Lignin-Retaining Transparent Wood

 Transparent  lignin pressure Delignification

 

 https://www.industrytap.com/scientists-create-super-wood-strong-steel/44868

 

 https://www.nature.com/articles/s41598-020-66916-8

Maryland  Super wood could replace steel hydroxide 

The wood is first boiled in a liquid mix of sodium hydroxide and sodium sulfite to partially remove lignin

https://chemistry-europe.onlinelibrary.wiley.com/doi/10.1002/cssc.201701089

Measurement of moisture-dependent ion diffusion constants in wood cell wall layers using time-lapse micro X-ray fluorescence microscopy

remove lignin acetate ester  h2o2

AES implementations | Crypto Wiki | Fandom

 https://cryptography.fandom.com/wiki/AES_implementations#Delphi

ss7 tracking location hide mcc mnc lac How to find the Cell Id location with MCC, MNC, LAC and CellID (CID). CellTower Locator Track down a GSM/WCDMA/TD-LTE/FDD-LTE cell phone online using LAC (Location Area Code) and Cell ID ,track down a CDMA/CDMA2000 cell phone online using SID,NID and BID, and display its location on Maps.

 https://cellidfinder.com/articles/how-to-find-cellid-location-with-mcc-mnc-lac-i-cellid-cid

boost spirit lex ractical grammars parser Lex - Writing Lexical Analyzers Boost C++ Libraries

 https://valelab4.ucsf.edu/svn/3rdpartypublic/boost/libs/spirit/doc/html/spirit/lex/lexer_introduction.html

biometrics face facial recognition jaston Delphi Magic: Reconocimiento de caras con Delphi

 https://delphimagic.blogspot.com/2011/08/reconocimiento-de-caras-con-delphi.html

delphi opf dfm database generated from frame delphi opf orm livebindings

 https://stackoverflow.com/questions/667891/runtime-changeable-orm-opf-object-persistence-framework-for-delphi

 tiOPF
    
Free, Open Source Object Persistence Framework for
Free Pascal & Delphi

http://tiopf.sourceforge.net

 http://tiopf.sourceforge.net/Support.shtml

 https://www.json.org/json-en.html

https://sourceforge.net/projects/lkjson/

https://github.com/EtheaDev/InstantObjects 

delphi  dfm database generated   livebindings

Autocomplection in RichEdit Control Word recognition RichEdit RichText Editor RichTextEditor RichEditBox

 https://www.codeproject.com/Articles/2557/Autocomplection-in-RichEdit-Control

Receive Windows Messages In Your Custom Delphi Class – NonWindowed Control/Object Žarko Gajić

 https://zarko-gajic.iz.hr/receive-windows-messages-in-your-custom-delphi-class-nonwindowed-control-object/

 

WM_MY_APP_MESSAGE := RegisterWindowMessage('MSG_MY_APP_MESSAGE');

Ploting

 https://github.com/maxkleiner/maXbox3

http://www.softwareschule.ch/maxbox.htm

maXbox a script tool engine, compilerlib all in one exe! Build to teach/ develop under Windows and Linux (CLX) to set Delphi with no install. maXbox has RemObjects PascalScript smart code. With include,events print, decompile, syncheck, templates, VM-, and DLL support. +Indy,Jedi,CGI,DMath,CAI,FLC5 & Systools.4.0 with CryptoBox4 and ComPort for Arduino!, OS Lib mX4- Build mX4.7.6.10
maXbox Pure Code Blaise Pascal Mag

rxlib/units/RxVCLUtils.pas
old-delphi-codes/Vclutils.pas at master - GitHub

{ Windows API level routines }

procedure StretchBltTransparent(DstDC: HDC; DstX, DstY, DstW, DstH: Integer;
  SrcDC: HDC; SrcX, SrcY, SrcW, SrcH: Integer; Palette: HPalette;
  TransparentColor: TColorRef);
procedure DrawTransparentBitmap(DC: HDC; Bitmap: HBitmap;
  DstX, DstY: Integer; TransparentColor: TColorRef);
function PaletteEntries(Palette: HPALETTE): Integer;
function WindowClassName(Wnd: HWnd): string;
function ScreenWorkArea: TRect;
{$IFNDEF WIN32}
procedure MoveWindowOrg(DC: HDC; DX, DY: Integer);
{$ENDIF}
procedure SwitchToWindow(Wnd: HWnd; Restore: Boolean);
procedure ActivateWindow(Wnd: HWnd);
procedure ShowWinNoAnimate(Handle: HWnd; CmdShow: Integer);
procedure CenterWindow(Wnd: HWnd);
procedure ShadeRect(DC: HDC; const Rect: TRect);
procedure KillMessage(Wnd: HWnd; Msg: Cardinal);

{ Convert dialog units to pixels and backwards }

function DialogUnitsToPixelsX(DlgUnits: Word): Word;
function DialogUnitsToPixelsY(DlgUnits: Word): Word;
function PixelsToDialogUnitsX(PixUnits: Word): Word;
function PixelsToDialogUnitsY(PixUnits: Word): Word; 

 

https://www.twblogs.net/a/5b8887032b71775d1cdcd7ec

OffsetWindowOrgEx MoveWindowOrg GetViewportOrgEx OffsetViewportOrgEx

https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-offsetwindoworgex

https://docs.microsoft.com/zh-tw/windows/win32/api/wingdi/nf-wingdi-offsetwindoworgex

 

Date and Time Functions System.Diagnostics.TStopwatch

 http://agnisoft.com/delphi/jclhelp/Date.htm

https://docwiki.embarcadero.com/Libraries/Alexandria/en/System.Diagnostics.TStopwatch 

Project JEDI Code Library (JCL) - TJclCounter.

http://agnisoft.com/delphi/jclhelp/