1
0
mirror of https://github.com/salvadordf/CEF4Delphi.git synced 2025-06-12 22:07:39 +02:00

Added the Lazarus_Linux_Console\LibraryBrowser demo

This commit is contained in:
Salvador Díaz Fau
2024-06-02 18:27:25 +02:00
parent bf11a7586e
commit 543af9be90
14 changed files with 1411 additions and 1 deletions

View File

@ -0,0 +1,37 @@
unit ucustommessage;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils;
type
TMsgInfo = record
Msg : integer;
StrParam : string;
IntParam : integer;
end;
TCustomMessage = class
protected
FValue : TMsgInfo;
public
constructor Create(const aValue : TMsgInfo);
property Value : TMsgInfo read FValue;
end;
implementation
constructor TCustomMessage.Create(const aValue : TMsgInfo);
begin
inherited Create;
FValue := aValue;
end;
end.