pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

jvcllaz: Set package version numbers to 1.0.5 for upcoming OPM release. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6969 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-29 16:06:12 +00:00
parent 4e22eb8649
commit 5296af1508
82 changed files with 366 additions and 366 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
components/jvcllaz/run/JvRuntimeDesign/jvdesignclip.pas
View File

@ -5,7 +5,7 @@ unit JvDesignClip;
interface
uses
LCLProc, LCLType, LResources, LCLIntf, LMessages, Classes;
LCLProc, LCLType, LResources, LCLIntf, Classes;
type
TJvDesignComponentClipboard = class(TObject)
@ -14,7 +14,7 @@ type
FParentComponent: TComponent;
procedure Close;
procedure Open;
procedure ReadError(Reader: TReader; const Msg: string; var Handled: Boolean);
procedure ReadError({%H-}Reader: TReader; const {%H-}Msg: string; var Handled: Boolean);
public
constructor Create(ParentComponent: TComponent);
@ -36,8 +36,7 @@ procedure DesignCopyStreamToClipboard(InFmt: Cardinal; InS: TStream);
implementation
uses
SysUtils, Clipbrd,
JvDesignUtils;
SysUtils, Clipbrd;
var
CF_COMPONENTSTREAM: UINT;
@ -63,7 +62,7 @@ function DesignLoadComponentFromBinaryStream(InStream: TStream;
InComponent: TComponent; InOnError: TReaderError): TComponent;
var
MS: TMemoryStream;
SZ: Int64;
SZ: Int64 = 0;
begin
InStream.Read(SZ, SizeOf(SZ));
MS := TMemoryStream.Create;
@ -84,9 +83,11 @@ begin
end;
procedure DesignCopyStreamToClipboard(InFmt: Cardinal; InS: TStream);
{
var
HMem: THandle;
PMem: Pointer;
}
begin
Clipboard.Open;
Clipboard.AddFormat( InFmt, InS);
@ -118,9 +119,11 @@ begin
end;
procedure DesignCopyStreamFromClipboard(InFmt: Cardinal; InS: TStream);
{
var
HMem: THandle;
PMem: Pointer;
}
begin
Clipboard.GetFormat(InFmt, InS);
{ HMem := Clipboard.GetAsHandle(InFmt);

38
components/jvcllaz/run/JvRuntimeDesign/jvdesignimp.pas
View File

@ -141,10 +141,10 @@ type
procedure PaintDragRects;
public
constructor Create(AOwner: TJvDesignSurface); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
procedure MouseDown({%H-}Button: TMouseButton; {%H-}Shift: TShiftState;
X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
procedure MouseMove({%H-}Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp({%H-}Button: TMouseButton; {%H-}Shift: TShiftState;
X, Y: Integer); override;
end;
@ -155,11 +155,11 @@ type
procedure CalcDragRect; virtual;
procedure PaintDragRect; virtual;
public
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
procedure MouseDown({%H-}Button: TMouseButton; {%H-}Shift: TShiftState;
X, Y: Integer); override;
procedure MouseMove({%H-}Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp({%H-}Button: TMouseButton; {%H-}Shift: TShiftState;
{%H-}X, {%H-}Y: Integer); override;
end;
TJvDesignSizer = class(TJvDesignBander)
@ -184,7 +184,7 @@ type
// IDesignerNotify interface
procedure Modified; override;
// procedure Notification(AnObject: TPersistent; Operation: TOperation); reintroduce;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure Notification({%H-}AComponent: TComponent; {%H-}Operation: TOperation); override;
// IDesigner, IDesignerHook interface
function GetCustomForm: TCustomForm;
@ -193,13 +193,13 @@ type
function GetShiftState: TShiftState; override;
function IsDesignMsg(Sender: TControl; var Msg: TLMessage): Boolean; override;
procedure PaintGrid; override;
procedure PrepareFreeDesigner(AFreeComponent: boolean); override;
procedure SelectOnlyThisComponent(AComponent: TComponent);override;
procedure SetCustomForm(Value: TCustomForm);
procedure SetIsControl(Value: Boolean);
function UniqueName(const BaseName: string): string; override;
procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure ValidateRename(AComponent: TComponent; const CurName, NewName: string); override; //reintroduce;
procedure PrepareFreeDesigner({%H-}AFreeComponent: boolean); override;
procedure SelectOnlyThisComponent({%H-}AComponent: TComponent);override;
procedure SetCustomForm({%H-}Value: TCustomForm);
procedure SetIsControl({%H-}Value: Boolean);
function UniqueName(const {%H-}BaseName: string): string; override;
procedure UTF8KeyPress(var {%H-}UTF8Key: TUTF8Char); override;
procedure ValidateRename({%H-}AComponent: TComponent; const {%H-}CurName, {%H-}NewName: string); override; //reintroduce;
//{$IFDEF COMPILER9_UP}
//procedure PaintMenu;
@ -210,7 +210,8 @@ type
end;
{TJvDesignDesigner = class(TIDesigner) //class(TComponent, IDesignerHook)
(*
TJvDesignDesigner = class(TIDesigner) //class(TComponent, IDesignerHook)
private
FMessenger: TJvDesignCustomMessenger;
public
@ -235,7 +236,8 @@ type
property Messenger: TJvDesignCustomMessenger read FMessenger write FMessenger;
property IsControl: Boolean read GetIsControl write SetIsControl;
property Form: TCustomForm read GetCustomForm write SetCustomForm;
end; }
end;
*)
TJvDesignDesignerMessenger = class(TJvDesignCustomMessenger)
private
@ -1304,7 +1306,7 @@ end;
function TJvDesignDesigner.UniqueName(const BaseName: string): string;
begin
//
Result := '';
end;
procedure TJvDesignDesigner.UTF8KeyPress(var UTF8Key: TUTF8Char);

16
components/jvcllaz/run/JvRuntimeDesign/jvdesignsurface.pas
View File

@ -41,9 +41,7 @@ interface
uses
Classes, SysUtils,
LCLProc, LCLType, LResources, LCLIntf, LMessages,
Forms, Controls, Graphics,
Dialogs,
ExtCtrls, Contnrs;
Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
TJvDesignSurface = class;
@ -63,7 +61,7 @@ type
function IsDesignMessage(ASender: TControl; var AMessage: TLMessage): Boolean; virtual;
procedure Clear; virtual;
procedure DesignChildren(AContainer: TWinControl; ADesigning: Boolean);
procedure DesignComponent(AComponent: TComponent; ADesigning: Boolean); virtual;
procedure DesignComponent({%H-}AComponent: TComponent; {%H-}ADesigning: Boolean); virtual;
property Container: TWinControl read FContainer write SetContainer;
property OnDesignMessage: TJvDesignMessage read FOnDesignMessage write FOnDesignMessage;
end;
@ -172,7 +170,7 @@ type
procedure NeedMessenger;
procedure NeedSelector;
//procedure PaintContainerBkgnd(ADC: HDC);
procedure ReaderError(Reader: TReader; const Msg: string; var Handled: Boolean);
procedure ReaderError({%H-}Reader: TReader; const {%H-}Msg: string; var Handled: Boolean);
procedure SetActive(AValue: Boolean);
procedure SetContainer(AValue: TWinControl);
//procedure SetDrawGrid(const Value: Boolean);
@ -228,7 +226,7 @@ type
TJvDesignScrollBox = class(TScrollBox)
protected
procedure AutoScrollInView(AControl: TControl); //CV override;
procedure AutoScrollInView({%H-}AControl: TControl); //CV override;
end;
TJvDesignPanel = class(TPanel)
@ -818,9 +816,10 @@ begin
end;
}
{
type
TAccessWinControl = class(TWinControl);
}
function TJvDesignSurface.IsDesignMessage(ASender: TControl;
var AMsg: TLMessage; const APt: TPoint): Boolean;
@ -845,11 +844,12 @@ function TJvDesignSurface.IsDesignMessage(ASender: TControl;
Result := True;
end;
end;
}
var
PosChangedHandle: HWND;
I: Integer;
Control: TAccessWinControl;
}
begin
if not Active then
Result := False

19
components/jvcllaz/run/JvRuntimeDesign/jvdesignutils.pas
View File

@ -25,11 +25,11 @@ type
FCanvas: TCanvas;
FDC: HDC;
FDCControl: TWinControl;
FDCOrigin: TPoint; // DC origin on desktop
// FDCOrigin: TPoint; // DC origin on desktop
FFlags: TDesignerDCFlags;
FFormClientOrigin: TPoint; // Form client origin on desktop
FFormOrigin: TPoint; // DC origin relative to designer Form
FDcSize: TPoint;
// FFormClientOrigin: TPoint; // Form client origin on desktop
// FFormOrigin: TPoint; // DC origin relative to designer Form
// FDcSize: TPoint;
FForm: TCustomForm;
FSavedDC: HDC;
FPaintCount: integer;
@ -44,7 +44,7 @@ type
procedure Clear;
procedure BeginPainting;
procedure EndPainting;
function RectVisible(ALeft, ATop, ARight, ABottom: integer): boolean;
function RectVisible({%H-}ALeft, {%H-}ATop, {%H-}ARight, {%H-}ABottom: integer): boolean;
property Canvas: TCanvas read FCanvas;
property DC: HDC read FDC;
property Form: TCustomForm read FForm;
@ -351,22 +351,23 @@ end;
function TDesignerDeviceContext.GetDCOrigin: TPoint;
begin
Result := Point(0, 0);
end;
function TDesignerDeviceContext.GetDCSize: TPoint;
begin
Result := Point(0, 0);
end;
function TDesignerDeviceContext.GetFormClientOrigin: TPoint;
begin
Result := Point(0, 0);
end;
function TDesignerDeviceContext.GetFormOrigin: TPoint;
begin
Result := Point(0, 0);
end;
constructor TDesignerDeviceContext.Create;
@ -412,7 +413,7 @@ end;
function TDesignerDeviceContext.RectVisible(ALeft, ATop, ARight,
ABottom: integer): boolean;
begin
Result := false;
end;