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

tvplanit: Remove all "uses messages" (implies "uses Windows")

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4798 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-22 07:59:17 +00:00
parent 89e16097a4
commit 7d184408a7
38 changed files with 116 additions and 147 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
components/tvplanit/source/vpprtfmtcbox.pas
View File

@@ -34,11 +34,10 @@ interface
uses
{$IFDEF LCL}
LMessages,LCLProc,LCLType,LCLIntf,
LMessages, LCLProc,LCLType,LCLIntf,
{$ELSE}
Windows,Messages,
Windows, Messages,
{$ENDIF}
Messages,
SysUtils,
Classes,
Controls,
@@ -56,11 +55,10 @@ type
procedure Change; override;
function GetAbout : string;
procedure Loaded; override;
procedure Notification (AComponent : TComponent;
Operation : TOperation); override;
procedure Notification (AComponent: TComponent; Operation: TOperation); override;
procedure SetAbout (const Value : string);
procedure SetControlLink (const v : TVpControlLink);
procedure VpPrintFormatChanged (var Msg : TMessage); message Vp_PrintFormatChanged;
procedure VpPrintFormatChanged (var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF}); message Vp_PrintFormatChanged;
public
constructor Create (AOwner : TComponent); override;
@@ -234,7 +232,7 @@ begin
end;
end;
procedure TVpPrintFormatComboBox.VpPrintFormatChanged (var Msg : TMessage);
procedure TVpPrintFormatComboBox.VpPrintFormatChanged(var Msg: {$IFDEF DELPHI}TMessage{$ELSE}TLMessage{$ENDIF});
begin
UpdateItems;
end;