how-to-change-the-color-of-tbutton BS_OWNERDRAW SetWindowLong WM_DRAWITEM BS_OWNERDRAW color properties TColorButton

 
Buttons and Similar Controls
https://docwiki.embarcadero.com/RADStudio/Sydney/en/Buttons_and_Similar_Controls
https://blogs.embarcadero.com/creating-a-custom-button-style-with-rad-studio-10-seattle/

https://docs.microsoft.com/en-us/windows/win32/controls/button-styles
https://stackoverflow.com/questions/23082687/how-to-change-the-color-of-tbutton
BS_OWNERDRAW SetWindowLong WM_DRAWITEM
BS_OWNERDRAW to expose working color properties: TColorButton
TColorButton = class(TButton) private ...
procedure DrawItem(const DrawItemStruct: TDrawItemStruct); ...
with Params do Style := Style or BS_OWNERDRAW;
https://stackoverflow.com/questions/55731281/delphi-button-transitions-using-vcl
https://stackoverflow.com/questions/9758016/how-do-i-custom-draw-of-tedit-control-text

https://lazarus-ccr.sourceforge.io/docs/lcl/dialogs/tcolorbutton.html

https://community.embarcadero.com/es/blogs/entry/creating-a-custom-button-style-with-rad-studio-10-seattle
https://torry.net/quicksearchd.php?String=button+color&Title=Yes

http://www.lohninger.com/onoffbut.html SDL Component Suite - OnOffBut

http://www.festra.com/cb/mtut24.htm
A button doesn't have a Color property.
But we can simulate a colored button by using a TPanel component.

https://www.swissdelphicenter.ch/en/showcode.php?id=1100

unit ColorButton;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, ExtCtrls;

type
  TDrawButtonEvent = procedure(Control: TWinControl;
    Rect: TRect; State: TOwnerDrawState) of object;

  TColorButton = class(TButton)
  private
    FCanvas: TCanvas;
    IsFocused: Boolean;
    FOnDrawButton: TDrawButtonEvent;
  protected
    procedure CreateParams(var Params: TCreateParams); override;
    procedure SetButtonStyle(ADefault: Boolean); override;
    procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
    procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
    procedure CNMeasureItem(var Message: TWMMeasureItem); message CN_MEASUREITEM;
    procedure CNDrawItem(var Message: TWMDrawItem); message CN_DRAWITEM;
    procedure WMLButtonDblClk(var Message: TWMLButtonDblClk); message WM_LBUTTONDBLCLK;
    procedure DrawButton(Rect: TRect; State: UINT);
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Canvas: TCanvas read FCanvas;
  published
    property OnDrawButton: TDrawButtonEvent read FOnDrawButton write FOnDrawButton;
    property Color;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TColorButton]);
end;

constructor TColorButton.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FCanvas := TCanvas.Create;
end;

destructor TColorButton.Destroy;
begin
  inherited Destroy;
  FCanvas.Free;
end;

procedure TColorButton.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  with Params do Style := Style or BS_OWNERDRAW;
end;

procedure TColorButton.SetButtonStyle(ADefault: Boolean);
begin
  if ADefault <> IsFocused then
  begin
    IsFocused := ADefault;
    Refresh;
  end;
end;

procedure TColorButton.CNMeasureItem(var Message: TWMMeasureItem);
begin
  with Message.MeasureItemStruct^ do
  begin
    itemWidth  := Width;
    itemHeight := Height;
  end;
end;

procedure TColorButton.CNDrawItem(var Message: TWMDrawItem);
var
  SaveIndex: Integer;
begin
  with Message.DrawItemStruct^ do
  begin
    SaveIndex := SaveDC(hDC);
    FCanvas.Lock;
    try
      FCanvas.Handle := hDC;
      FCanvas.Font := Font;
      FCanvas.Brush := Brush;
      DrawButton(rcItem, itemState);
    finally
      FCanvas.Handle := 0;
      FCanvas.Unlock;
      RestoreDC(hDC, SaveIndex);
    end;
  end;
  Message.Result := 1;
end;

procedure TColorButton.CMEnabledChanged(var Message: TMessage);
begin
  inherited;
  Invalidate;
end;

procedure TColorButton.CMFontChanged(var Message: TMessage);
begin
  inherited;
  Invalidate;
end;

procedure TColorButton.WMLButtonDblClk(var Message: TWMLButtonDblClk);
begin
  Perform(WM_LBUTTONDOWN, Message.Keys, Longint(Message.Pos));
end;

procedure TColorButton.DrawButton(Rect: TRect; State: UINT);
var
  Flags, OldMode: Longint;
  IsDown, IsDefault, IsDisabled: Boolean;
  OldColor: TColor;
  OrgRect: TRect;
begin
  OrgRect := Rect;
  Flags := DFCS_BUTTONPUSH or DFCS_ADJUSTRECT;
  IsDown := State and ODS_SELECTED <> 0;
  IsDefault := State and ODS_FOCUS <> 0;
  IsDisabled := State and ODS_DISABLED <> 0;

  if IsDown then Flags := Flags or DFCS_PUSHED;
  if IsDisabled then Flags := Flags or DFCS_INACTIVE;

  if IsFocused or IsDefault then
  begin
    FCanvas.Pen.Color := clWindowFrame;
    FCanvas.Pen.Width := 1;
    FCanvas.Brush.Style := bsClear;
    FCanvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
    InflateRect(Rect, - 1, - 1);
  end;

  if IsDown then
  begin
    FCanvas.Pen.Color := clBtnShadow;
    FCanvas.Pen.Width := 1;
    FCanvas.Brush.Color := clBtnFace;
    FCanvas.Rectangle(Rect.Left, Rect.Top, Rect.Right, Rect.Bottom);
    InflateRect(Rect, - 1, - 1);
  end
  else
    DrawFrameControl(FCanvas.Handle, Rect, DFC_BUTTON, Flags);

  if IsDown then OffsetRect(Rect, 1, 1);

  OldColor := FCanvas.Brush.Color;
  FCanvas.Brush.Color := Color;
  FCanvas.FillRect(Rect);
  FCanvas.Brush.Color := OldColor;
  OldMode := SetBkMode(FCanvas.Handle, TRANSPARENT);
  FCanvas.Font.Color := clBtnText;
  if IsDisabled then
    DrawState(FCanvas.Handle, FCanvas.Brush.Handle, nil, Integer(Caption), 0,
    ((Rect.Right - Rect.Left) - FCanvas.TextWidth(Caption)) div 2,
    ((Rect.Bottom - Rect.Top) - FCanvas.TextHeight(Caption)) div 2,
      0, 0, DST_TEXT or DSS_DISABLED)
  else
    DrawText(FCanvas.Handle, PChar(Caption), - 1, Rect,
      DT_SINGLELINE or DT_CENTER or DT_VCENTER);
  SetBkMode(FCanvas.Handle, OldMode);

  if Assigned(FOnDrawButton) then
    FOnDrawButton(Self, Rect, TOwnerDrawState(LongRec(State).Lo));

  if IsFocused and IsDefault then
  begin
    Rect := OrgRect;
    InflateRect(Rect, - 4, - 4);
    FCanvas.Pen.Color := clWindowFrame;
    FCanvas.Brush.Color := clBtnFace;
    DrawFocusRect(FCanvas.Handle, Rect);
  end;
end;

end.


Adding a component to the Titlebar using CustomTitleBar
https://forum.lazarus.freepascal.org/index.php?topic=49456.0
https://wiki.freepascal.org/BGRAControls
https://lazarus-ccr.sourceforge.io/docs/lcl/dialogs/tcolorbutton.html
https://docwiki.embarcadero.com/Libraries/Alexandria/en/FMX.Colors.TColorButton
CustomTitleBar.Control = TitleBarPanel1
https://stackoverflow.com/questions/70437417/adding-a-component-to-the-titlebar-using-customtitlebar
https://stackoverflow.com/questions/5634743/non-client-painting-on-aero-glass-window
 
How can I put a custom button on the title bar? [duplicate]
JVCL Help:.pas - Project JEDI Wiki
https://wiki.delphi-jedi.org/wiki/JEDI_Visual_Component_Library
https://docs.microsoft.com/zh-tw/windows/win32/dwm/customframe?redirectedfrom=MSDN

...show controls with rounded corners?

 https://www.swissdelphicenter.ch/en/showcode.php?id=921

 www.teamb.com

 Autor: P. Below
Homepage: http://www.teamb.com
[ Print tip ]         

Tip Rating (38):     
     




procedure MakeRounded(Control: TWinControl);
var
  R: TRect;
  Rgn: HRGN;
begin
  with Control do
  begin
    R := ClientRect;
    rgn := CreateRoundRectRgn(R.Left, R.Top, R.Right, R.Bottom, 20, 20);
    Perform(EM_GETRECT, 0, lParam(@r));
    InflateRect(r, - 5, - 5);
    Perform(EM_SETRECTNP, 0, lParam(@r));
    SetWindowRgn(Handle, rgn, True);
    Invalidate;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  // TMemo:
  Memo1.BorderStyle := bsNone;
  MakeRounded(Memo1);
  // TEdit:
  Edit2.BorderStyle := bsNone;
  MakeRounded(Edit2);
  // TPanel:
  MakeRounded(Panel1);
  // TStaticText:
  MakeRounded(StaticText1);
  // TForm
  Form1.BorderStyle := bsNone;
  MakeRounded(Form1);
end;

Vcl.ExtCtrls.TShape corner size of RoundRect

FMX.StdCtrls.TCornerButton

https://stackoverflow.com/questions/11675374/how-to-make-tframe-with-rounded-corners

  TCustomRoundShape = class(TGraphicControl)

procedure TForm1.FormPaint(Sender: TObject);
const
  n = 50;
var
  Rgn: HRGN;
  x1,y1,x2,y2: Integer;
begin
  x1 := n;
  y1 := n div 2;
  x2 := ClientWidth - n;
  y2 := ClientHeight - n;
 
  Rgn := CreateRoundRectRgn(x1, y1, x2, y2, n, n);
 
  Canvas.Brush.Color := clSilver;
  Canvas.Brush.Style := bsCross;
  FillRgn(Canvas.Handle, Rgn, Canvas.Brush.Handle);
 
  Canvas.Brush.Color := clRed;
  Canvas.Brush.Style := bsSolid;
  FrameRgn(Canvas.Handle, Rgn, Canvas.Brush.Handle, 2, 2);

  DeleteObject(Rgn);
end;

 https://stackoverflow.com/questions/11675374/how-to-make-tframe-with-rounded-corners
https://stackoverflow.com/questions/5755719/rounded-and-titled-tpanel-in-delphi-7
https://stackoverflow.com/questions/32987649/how-to-create-a-user-control-with-rounded-corners

...create a form with rounded corners?
Autor: Horst Kniebusch
Homepage: http://members.tripod.de/Kniebusch
[ Print tip ]          

Tip Rating (38):      
     




{
  Die CreateRoundRectRgn lässt eine Form mit abgerundeten Ecken erscheinen.

  The CreateRoundRectRgn function creates a rectangular
  region with rounded corners
}

procedure TForm1.FormCreate(Sender: TObject);
var
  rgn: HRGN;
begin
  Form1.Borderstyle := bsNone;
  rgn := CreateRoundRectRgn(0,// x-coordinate of the region's upper-left corner
    0,            // y-coordinate of the region's upper-left corner
    ClientWidth,  // x-coordinate of the region's lower-right corner
    ClientHeight, // y-coordinate of the region's lower-right corner
    40,           // height of ellipse for rounded corners
    40);          // width of ellipse for rounded corners
  SetWindowRgn(Handle, rgn, True);
end


{ The CreatePolygonRgn function creates a polygonal region. }


procedure TForm1.FormCreate(Sender: TObject);
const
  C = 20;
var
  Points: array [0..7] of TPoint;
  h, w: Integer;
begin
  h := Form1.Height;
  w := Form1.Width;
  Points[0].X := C;     Points[0].Y := 0;
  Points[1].X := 0;     Points[1].Y := C;
  Points[2].X := 0;     Points[2].Y := h - c;
  Points[3].X := C;     Points[3].Y := h;

  Points[4].X := w - c; Points[4].Y := h;
  Points[5].X := w;     Points[5].Y := h - c;

  Points[6].X := w;     Points[6].Y := C;
  Points[7].X := w - C; Points[7].Y := 0;

  SetWindowRgn(Form1.Handle, CreatePolygonRgn(Points, 8, WINDING), True);
end;
 

Receive Windows Messages In Your Custom Delphi Class NonWindowed Control AllocateHWnd(WndMethod); TMsgReceiver RegisterWindowMessage TApplicationEvent

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

Embed the Chromium web browser in your Delphi projects

 https://github.com/salvadordf/CEF4Delphi

https://github.com/salvadordf/WebView4Delphi 

https://landof.dev/awesome/pascal/

https://github.com/Fr0sT-Brutal/awesome-pascal

Using Delphi’s Expressions Engine EXPR math parser library parsing evaluating expressions

https://blogs.embarcadero.com/using-delphis-expressions-engine/

https://github.com/torvalds/linux/blob/master/scripts/kconfig/expr.c 

https://beltoforion.de/en/muparser/

C++ Mathematical Expression Library (ExprTk) - By Arash

C library for parsing and evaluating simple expressions.

 evaluating  expressions

 https://stackoverflow.com/questions/1326258/mathematical-expression-parser-in-delphi

 https://github.com/Crownie88/Delphi-mathematic-expression-parser/blob/master/MathExpParser.pas

一起結束

 https://codeoncode.blogspot.com/2016/12/create-job-object-and-terminate-child.html

Create a Job object And terminate Child Process

JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE flag
How to gracefully handle when main.exe terminated, child.exe terminated also?
You need to use jobs. Main executable should create a job object, then you'll need to set JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE flag to your job object.
 

unit JobsApi;
interface
uses
  Windows;
type
  TJobObjectInfoClass   =   Cardinal;

  PJobObjectAssociateCompletionPort   =   ^TJobObjectAssociateCompletionPort;
  TJobObjectAssociateCompletionPort   =   Record
      CompletionKey     :   Pointer;
      CompletionPort   :   THandle;
  End;
  {$EXTERNALSYM JOB_OBJECT_LIMIT_DIE_ON_UNHANDLED_EXCEPTION}
  JOB_OBJECT_LIMIT_BREAKAWAY_OK = $00000800;
  {$EXTERNALSYM JOB_OBJECT_LIMIT_BREAKAWAY_OK}
  JOB_OBJECT_LIMIT_SILENT_BREAKAWAY_OK = $00001000;
  {$EXTERNALSYM JOB_OBJECT_LIMIT_SILENT_BREAKAWAY_OK}
  JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE = $00002000;
  {$EXTERNALSYM JOB_OBJECT_LIMIT_KILL_ON_JOB_CLOSE}

Function QueryInformationJobObject(hJob : THandle;
                        JobObjectInformationClass : TJobObjectInfoClass;
                        lpJobObjectInformation : Pointer;
                        cbJobObjectInformationLength : DWORD;
                        lpReturnLength : PDWORD) : Bool; StdCall;
                        External Kernel32 Name 'QueryInformationJobObject';

Function SetInformationJobObject(hJob : THandle;
                        JobObjectInformationClass : TJobObjectInfoClass;
                        lpJobObjectInformation : Pointer;
                        cbJobObjectInformationLength : DWORD): BOOL; StdCall;
                        External Kernel32 Name 'SetInformationJobObject';

 

 

 QueryInformationJobObject function (jobapi2.h)

https://docs.microsoft.com/en-us/windows/win32/api/jobapi2/nf-jobapi2-queryinformationjobobject 

https://www.google.com/search?q=github+Helper.System.JobObject.Header.pas

https://gist.github.com/JensMertelmeyer/5e23a5dccb59b2902f37c69e7f7fa4cd

 @JensMertelmeyer
JensMertelmeyer/Helper.System.JobObject.Header.pas

CreateJobObjectW. KERNEL32.CreateMutexW. KERNEL32.CreateProcessW. KERNEL32.CreateThread. KERNEL32.DelayLoadFailureHook.

提升權限

 OpenProcessToken GetCurrentProcessID   TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY

 CreateProcessAsUser

SystemHandleInformation = 16;
ProcessBasicInformation = 0;
STATUS_SUCCESS = cardinal($00000000);
SE_DEBUG_PRIVILEGE =20;
STATUS_ACCESS_DENIED = cardinal($C0000022);
STATUS_INFO_LENGTH_MISMATCH = cardinal($C0000004);
SEVERITY_ERROR = cardinal($C0000000);
TH32CS_SNAPPROCESS = $00000002;  
JOB_OBJECT_ALL_ACCESS = $1f001f;

printf("SeCreateSymbolicLinkPrivilege = %ld, %ld\n", seCreateSymbolicLinkPrivilege.HighPart, seCreateSymbolicLinkPrivilege.LowPart);

      if (!GetTokenInformation(hProcess, TokenPrivileges, NULL, 0, &length))
      {
        if (GetLastError() == ERROR_INSUFFICIENT_BUFFER)
        {
          TOKEN_PRIVILEGES* privileges = (TOKEN_PRIVILEGES*)malloc(length);
          if (GetTokenInformation(hProcess, TokenPrivileges, privileges, length, &length))
          {
            BOOL found = FALSE;
            DWORD count = privileges->PrivilegeCount;

            printf("User has %ld privileges\n", count);

            if (count > 0)
            {
              LUID_AND_ATTRIBUTES* privs = privileges->Privileges;
              while (count-- > 0 && !luid_eq(privs->Luid, seCreateSymbolicLinkPrivilege))
                privs++;
              found = (count > 0);

advapi32.dll advapi32.lib AbortSystemShutdown InitiateSystemShutdown 關機 重新 開機

 https://docs.microsoft.com/zh-tw/windows/win32/shutdown/displaying-the-shutdown-dialog-box

Interesting Homemade DLP Resin Printer Making PCB's using transparant LCD

 https://hackaday.io/project/21933-prism-laser-scanner
https://hackaday.com/2017/06/15/laser-pcbs-with-ldgraphy/
https://pcbwriter.github.io/
https://habr.com/en/post/438618/
https://github.com/hzeller/ldgraphy

https://hackaday.com/2016/09/18/vacuum-exposure-unit-gives-better-pcb-etching-results/

6thD RGB LD 13000, 0.9mrad – Low divergence RGB LASER
https://6thd.eu/produkt/scannermax-compact-506/
Sharp Laser Printer Motors Sharp Polygon Motor
https://www.copyparts.eu/ax060396-ricoh-polygon-motor/p4242
MP C2000 Color Laser Multifunction Printer | Ricoh USA
 Replacing the Laser Polygon Mirror Motor Assembly RICOH AFICIO 1060 1075 2060 2075 MP7500 MP8000
https://www.laserworld.com/en/newslist/106-laserworld-news-en/1864-pangolin-scannermax-available.html
 Repalcement DC Polygon Mirror Motor Assy RICOH AFICIO MP6001 MP7001 MP8001 MP9001
https://electronics.stackexchange.com/questions/195943/how-does-a-laser-printer-control-the-laser-to-produce-such-high-resolutions
https://ruediste.github.io/pcb/2021/01/01/spinning-polygon-mirror.html


Polygon mirror scanner motors  Brushless motors
cdrom Brushless motors

Interesting Homemade DLP Resin Printer
Making PCB's using transparant LCD
Casually Laser-Exposing 0.2 mm PCB features on a 3D printer

https://www.instructables.com/DIY-STEPDIR-LASER-GALVO-CONTROLLER/
The fastest way to make crisp PCBs at home!
DLP-enabled PCB lithography: low cost and high reliability
Make PCB with a LCD mask
Maskless Photolithography with DLP Projector - 10um Feature Sizes
Make pcb with laser

dmd chip projector series mini Genuine

 

https://hackaday.com/2014/02/03/laser-based-pcb-printer/
http://www.diyouware.com/
eagle-pcb-design-software
http://www.diyouware.com/download
Laser Marking - Printed Circuit Board (PCB) Fabrication

VIRT interpreter TSymbolTable ast TREE

Language - 演算法筆記
https://web.ntnu.edu.tw/~algo/
https://web.ntnu.edu.tw/~algo/Language.html

https://sourcemaking.com/design_patterns/interpreter/delphi

https://docs.python.org/zh-tw/3.7/library/language.html
https://docs.python.org/3.7/library/parser.html
Python 语言服务
Python 提供了许多模块来帮助使用 Python 语言。 这些模块支持标记化、解析、语法分析、字节码反汇编以及各种其他工具。

 JavaCC Interpreter (AST to Symbol Table) 

https://ruslanspivak.com/lsbasi-part1/

AST interpreter Backus–Naur Form syntax tree

Introduction to AST manipulation in ROSE
Abstract Syntax Trees
https://ix.cs.uoregon.edu/~norris/pat/index.cgi?n=Main.ROSEIntro

Presentation on theme: "Programming Languages 2nd edition Tucker and Noonan"— Presentation transcript:
https://slideplayer.com/slide/5039873/

https://staff.csie.ncu.edu.tw/chia/Course/Compiler/lexparse2.html
     Catalog of Compiler Construction Tools
Lexer and Parser Generators Compiler Construction Kits

https://www.sigmdel.ca/michel/program/delphi/parser/parser1_en.html
Part 1 of Parsing and Evaluating Mathematical Expressions
   building parsers  using Pascal or Delphi JEDI Code Library (JCL)’s unit JclExprEval.pas, Renate Schaaf’s TExpress TParser Renate Schaaf, Alin Flaider and Stefan Hoffmeister or symbolic.pas by Marco van de Voort.

parsing code scanner interpreter   sequence  terms separated

Behavioral.State.Pattern (Delphi Sample) Intent      Allow an object to alter its behavior when its internal state changes. The object will appear to change its class.     An object-oriented state machine     wrapper + polymorphic wrappee + collaboration

character table parsing integer digit number  Integer  floating-point types  Data Types
https://www.cs.cmu.edu/Groups/AI/html/cltl/clm/node189.html

使用巴科斯範式(BNF/EBNF)定義語言 https://hackmd.io/@ShenTengTu/HJzCM3aDr

The Asf+Sdf Meta-Environment: A Component-Based Language Development Environment
https://www.sciencedirect.com/science/article/pii/S1571066104809174?via%3Dihub
https://eelcovisser.org/research/#ASF+SDF
https://www2.cs.sfu.ca/~cameron/Teaching/384/99-3/regexp-plg.html
https://github.com/cheminfo/sdf-parser

Backus Naur Form Regex BNF Grammar  Regular Expressions 

https://medium.com/@chetcorcos/introduction-to-parsers-644d1b5d7f3d

https://github.com/eatkins/tree-sitter-ebnf-generator

Concret Syntax Tree (CST)  Abstract Syntax Tree (AST)  CST exact parsed tree representation
https://en.wikipedia.org/wiki/Context-free_grammar
https://pyfound.blogspot.com/2020/04/replacing-cpythons-parser-python.html

tree sitter algorithm  Tree-sitter is a parser generator tool and an incremental parsing library. It can build a concrete syntax tree for a source file and efficiently update the syntax tree as the source file is edited.
https://tree-sitter.github.io/tree-sitter/
https://rustrepo.com/repo/tree-sitter-tree-sitter
https://archive.casouri.cat/note/2021/emacs-tree-sitter/index.html
https://lists.gnu.org/archive/html/emacs-devel/2022-01/msg00410.html

https://docs.revenera.com/fne/2021_09/adminguide/content/helplibrary/Model_Definition_Grammar_and_Syntax_EBNF.htm

https://en.wikipedia.org/wiki/Category:Parsing_algorithms
Parsing algorithms
Top-down        LL Recursive descent https://en.wikipedia.org/wiki/LL_parser
        Tail recursive Pratt parser
Bottom-up   
    Precedence
        Simple Operator
            Shunting-yard Bounded-context LR https://en.wikipedia.org/wiki/LR_parser
        Simple Look-ahead Canonical Generalized CYK Recursive ascent Shift-reduce
Mixed, other   
    Combinator Chart Earley https://en.wikipedia.org/wiki/Earley_parser
Related topics   
    PEG Definite clause grammar Deterministic parsing Dynamic programming Memoization Parser generator
        LALR Parse tree AST Scannerless parsing History of compiler construction Comparison of parser generators

https://en.wikipedia.org/wiki/GLR_parser
https://en.wikipedia.org/wiki/Category:Parsing_algorithms
https://en.wikipedia.org/wiki/LALR_parser
https://en.wikipedia.org/wiki/Earley_parser

Context-Free parsers  GLL Syntax LALR  Left corner parser  LL  LR GLR

深入淺出教你寫編譯器（Compiler）  https://jaceju.net/simple-compiler/

a compiler is a program that can read a program in one language - the source language - and translate it into an equivalent program in another language - the target language
Finite-state machine Scanner Semantic analysis
https://hackmd.io/@ComputerScienceNote/BJLyuNi6D

Gyroscopic Stabilization Wheeler Self Balancing 平衡車

 Balancing Control of Two-Wheel Bicycle Problems

 https://www.hindawi.com/journals/mpe/2020/6724382/

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

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

https://en.wikipedia.org/wiki/Center_of_gravity_(disambiguation)

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

感測器 英文 詞彙

 inertial 慣性
Measurement 量測
accelerometer 加速度計
gyroscope 陀螺儀
magnetometer 磁力計
magnetic field detection 磁場檢測
gauss magnetic 高斯磁
linear acceleration 線性加速度
Ultra-compact 超微小
high-performance 高效能
e-compass 電子羅盤 指南針
Capacitive sensing 電容式感應
Accelerometers 加速度計  
Board Mount Motion 板載運動
Position Sensors 位置傳感器  
Distance Sensors 距離傳感器
Gyroscopes 陀螺儀
IMUs Inertial Measurement Units 慣性測量單元
Inclinometers 傾角儀
Industrial Motion 工業運動
Position Sensors 位置傳感器
Speed Sensors 速度傳感器
Tilt Switches 傾斜開關
Vibration Sensors 振動傳感器
Capacitance sensors detect 電容傳感器檢測
 Audio Sensor 音頻傳感器
 Biometric Sensors 生物識別傳感器
 Capacitive Touch Sensors 電容式觸摸傳感器
 Current Sensors  電流傳感器  
 Encoders  編碼器  
 Environmental Sensors  環境傳感器  
 Flow Sensors  流量傳感器
 Force Sensors & Load Cells 力傳感器和稱重傳感器
 Linear Displacement Sensors 線性位移傳感器
 Liquid Level Sensors 液位傳感器  
 Magnetic Sensors 磁傳感器
 Motion & Position Sensors 運動和位置傳感器  
 Optical Sensors 光學傳感器  
 Pressure Sensors 壓力傳感器
 Proximity Sensors 接近傳感器
 Sensor Development Tools 傳感器開發工具
 Sensor Hardware & Accessories 傳感器硬件和配件
 Temperature Sensors 溫度傳感器   
Load Cell 荷重元
Force Sensor壓力
Piezo Vibration Sensor 壓電式振動感測
Thermocouple 熱電偶
Seebeck 熱電效應
Hall effect 霍爾效應
strain gauge, strain gage 應變片
Ultrasonic transducer  超聲換能器
piezoelectric transducers 壓電傳感器
capacitive transducers 電容式微加工超聲換能器
pressure 壓力
acceleration 加速度
temperature 溫度
strain 拉緊
force 力量
Vibration Sensor 震動感測
eletrostatically 靜電
Electrostatics 靜電學
sensitive 敏感
material 材料
reloading 負重
Precision 精確
barometric 氣壓
altitude 高度
Magneto Resistance 磁阻抗

 

https://terms.naer.edu.tw/

 國家教育研究院-物理學名詞-高中含以下物理學學術名詞

https://sheethub.com/data.gov.tw/%E5%9C%8B%E5%AE%B6%E6%95%99%E8%82%B2%E7%A0%94%E7%A9%B6%E9%99%A2-%E7%89%A9%E7%90%86%E5%AD%B8%E5%90%8D%E8%A9%9E-%E9%AB%98%E4%B8%AD%E5%90%AB%E4%BB%A5%E4%B8%8B%E7%89%A9%E7%90%86%E5%AD%B8%E5%AD%B8%E8%A1%93%E5%90%8D%E8%A9%9E 

Springer Handbook of Semiconductor Devices pdf

https://www.arduinolibraries.info/libraries

https://www.rutronik.com/fileadmin/Rutronik/Downloads/printmedia/products/01_semiconductors/analog_and_sensors_en.pdf

  inertial accelerometer gyroscope compass Inclinometers Position Distance Sensors ic drone
drone "all in one" Sensors  board  drone Drone Flight Controller Explained

solution fpv drone Flight Controller  ESC package AIO

https://oscarliang.com/top-5-best-fc-mini-quad/

word relation map dictionary thesaurus Associations

 https://trishhopkinson.com/2014/12/03/need-a-word-association-generator-these-are-free-and-better-than-your-average-thesaurus/

 https://visuwords.com/

https://wordassociations.net/en 

https://graphwords.com/

https://www.leydesdorff.net/words/

https://link.springer.com/article/10.3758/s13428-019-01208-2

https://www.isko.org/cyclo/thesaurus

https://eadh.org/projects/historical-thesaurus-english

https://www.thesaurus.com/browse/association

 

  small smaller strong stronger Comparative Superlative Adjectives

https://www.perfect-english-grammar.com/adjectives-comparative-and-superlative.html

https://www.charlesdowdy.me/%E6%AF%94%E8%BC%83%E7%B4%9A%E6%9C%80%E9%AB%98%E7%B4%9A%E5%96%AE%E5%AD%97%E8%A1%A8/

synonyms Opposite adjective

 

 https://englishgrammarhere.com/adjectives/comparative-and-superlative-adjectives-100-examples-and-exercises/

Comparative and Superlative Adjectives

color type Color Name List thesaurus

 https://graf1x.com/list-of-colors-with-color-names/

https://www.ncl.ucar.edu/Document/Graphics/named_colors.shtml 

https://en.wikipedia.org/wiki/List_of_colors:_A%E2%80%93F

Colors in alphabetical order A–F

Delphi Bit Byte Moving J R Stockton Rotate Right shr shl

 https://people.cs.nctu.edu.tw/~tsaiwn/sisc/runtime_error_200_div_by_0/www.merlyn.demon.co.uk/del-bits.htm

http://www.delphibasics.co.uk/RTL.asp?Name=xor 

http://www.delphibasics.co.uk/RTL.asp?Name=shl

https://www.interviewcake.com/concept/java/bit-shift

https://onlinetoolz.net/bitshift

Logical Arithmetic  Circular Rotate through carry shift

https://www.geeksforgeeks.org/rotate-bits-of-an-integer/

https://www.freepascal.org/docs-html/rtl/system/roldword.html

https://www.freepascal.org/docs-html/rtl/system/rolbyte.html

https://docwiki.embarcadero.com/RADStudio/Sydney/en/Expressions_(Delphi)

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

 

https://docwiki.embarcadero.com/Libraries/Sydney/en/System.Classes.TBits.Bits

https://docwiki.embarcadero.com/Libraries/Sydney/en/System.Classes.TBits

https://github.com/StarWong/MyLibary/blob/316624818c46b954206d9cbef4799e6e5250aa60/HashLib4Pascal/HashLib/src/Utils/HlpBits.pas

class function TBits.RotateLeft8(a_value: Byte; a_n: Int32): Byte;
begin
...
  a_n := a_n and 7;
  Result := (a_value shl a_n) or (a_value shr (8 - a_n));
...
end;

class function TBits.RotateRight8(a_value: Byte; a_n: Int32): Byte;
begin
{$IFDEF DEBUG}
  System.Assert(a_n >= 0);
{$ENDIF DEBUG}
{$IFDEF FPC}
  Result := RorByte(a_value, a_n);
{$ELSE}
  a_n := a_n and 7;
  Result := (a_value shr a_n) or (a_value shl (8 - a_n));
{$ENDIF FPC}
end;

class function TBits.RotateRight32(a_value: UInt32; a_n: Int32): UInt32;
begin
{$IFDEF DEBUG}
  System.Assert(a_n >= 0);
{$ENDIF DEBUG}
{$IFDEF FPC}
  Result := RorDWord(a_value, a_n);
{$ELSE}
{$IFNDEF SHIFT_OVERFLOW_BUG_FIXED}
  a_n := a_n and 31;
{$ENDIF SHIFT_OVERFLOW_BUG_FIXED}
  Result := (a_value shr a_n) or (a_value shl (32 - a_n));
{$ENDIF FPC}
end;

MOSFET

 APT10035LLL MOSFET-based high voltage short pulse

https://aip.scitation.org/doi/pdf/10.1063/1.5021211 

 MOSFET Gate Driver Circuit Design for High Repetitive (200kHz) High Voltage (10kV) Solid-State Pulsed-Power Modulator

部首 請問草字頭的字為何有兩種寫法

 艸 艹  丱 卝 ㄍㄨㄞ 卝部 艸 草 ㄘㄠˇ     

 

丱     ㄏㄨㄥˋ       丱     ㄍㄨㄢˋ

 

苟、敬、護、獲、雚、觀、夢、萬、舊

 

https://www.ptt.cc/bbs/Wrong_spell/M.1222961505.A.6EC.html

WEB Developer skills via bootstrap react.js EXT.js figma adobexd sql java mediaquery Web Developer Skills From Basics To Extra

 https://www.upwork.com/hire/bootstrap-designers/eg/ismailia/

 https://www.templatesthemes.net/tags/dashboard/

https://www.upwork.com/hire/javascript-developers/eg/ismailia/ 

JavaScript VUE.js EXTJS Angular React

MVC MVP MVVM Design Pattern  Architecture JavaScript Framework

JavaScript Framework 

Localstorage SessionStorage Cookies WebSQL IndexedDb

 EXTJS  React Spring Mvc

rich web application frameworks 

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

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

javascript CanvasKit Skia  WebAssembly

Angular vs Knockout.js vs Vue.js vs Backbone.js: Which JavaScript Framework Suits

Linear Operational analog Waveform phase modulation calculation Differential Substrate Arithmetic

https://en.wikipedia.org/wiki/List_of_LM-series_integrated_circuits

https://www.geeksforgeeks.org/analog-to-analog-conversion-modulation/ 

https://www.neophotonics.com/what-is-phase-modulation/

https://www.monolithicpower.com/en/power-factor-correction

identify max switching frequency of a MOSFET switching frequency Eon Freq wheeling diode Power MOSFET switching behavior

  identify max switching frequency of a MOSFET switching frequency Eon Freq wheeling diode Power MOSFET switching behavior
https://www.analog.com/ru/app-notes/an-140.html

High Speed 650V IGBTs for DC-DC Conversion up to 200 kHz 

200Khz switching frequency MOSFET wheeling diode 650v

Maximizing the Performance of GaN with Ideal Diode Mode
https://www.ti.com › lit › snoa932
PDF
Dead Time Loss Versus Dead Time Settings With 200kHz Switching Frequency. ... between TI GaN with ideal diode mode, a 650V SiC MOSFET, discrete e-mode.

application. A 1200V, 160mohm SiC MOSFET from Cree Inc ...
https://www.richardsonrfpd.com › docs › rfpd › C...
PDF
limits the switching frequency at or below 200 kHz. ... Body diode recovery time trr. Body diode charge Qrr. 1200V. 650V. 650V.

https://electronics.stackexchange.com/questions/291342/freewheeling-diode-needed

Dual Operational Amplifiers LM358

 Dual Operational Amplifiers LM358 

MOSFET 2N7000  N-Channel 60-V (D-S) MOSFET - Vishay Siliconix N-Channel Enhancement-Mode Vertical DMOS FET, Microchip Technology.
FDS4935A - MOSFET – Dual, P-Channel, PowerTrench 30 V