You've already forked CEF4Delphi
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:
@ -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.
|
||||
|
Reference in New Issue
Block a user