You've already forked lazarus-ccr
* Fix compilation and clean up OLE Demo
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@615 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
@ -3,8 +3,6 @@ object MainForm: TMainForm
|
||||
Height = 575
|
||||
Top = 261
|
||||
Width = 790
|
||||
HorzScrollBar.Page = 789
|
||||
VertScrollBar.Page = 574
|
||||
ActiveControl = Button1
|
||||
Caption = 'Demo for drag''n drop and clipboard transfers'
|
||||
ClientHeight = 575
|
||||
@ -13,6 +11,7 @@ object MainForm: TMainForm
|
||||
Font.Height = -12
|
||||
Font.Name = 'Arial'
|
||||
OnCreate = FormCreate
|
||||
LCLVersion = '0.9.27'
|
||||
Visible = True
|
||||
object Label1: TLabel
|
||||
Left = 10
|
||||
@ -24,6 +23,7 @@ object MainForm: TMainForm
|
||||
Font.Height = -11
|
||||
Font.Name = 'Arial'
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 360
|
||||
@ -36,6 +36,7 @@ object MainForm: TMainForm
|
||||
Font.Height = -11
|
||||
Font.Name = 'Arial'
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
WordWrap = True
|
||||
end
|
||||
object Panel3: TPanel
|
||||
@ -59,6 +60,7 @@ object MainForm: TMainForm
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = [fsBold]
|
||||
ParentColor = False
|
||||
ParentFont = False
|
||||
WordWrap = True
|
||||
end
|
||||
end
|
||||
@ -90,6 +92,7 @@ object MainForm: TMainForm
|
||||
Height = 180
|
||||
Top = 116
|
||||
Width = 330
|
||||
BorderStyle = bsSingle
|
||||
ClipboardFormats.Strings = (
|
||||
'Plain text'
|
||||
'Unicode text'
|
||||
@ -110,6 +113,7 @@ object MainForm: TMainForm
|
||||
Header.MainColumn = -1
|
||||
Header.Options = [hoColumnResize, hoDrag]
|
||||
HintMode = hmTooltip
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 3
|
||||
@ -131,6 +135,7 @@ object MainForm: TMainForm
|
||||
Height = 180
|
||||
Top = 116
|
||||
Width = 330
|
||||
BorderStyle = bsSingle
|
||||
ClipboardFormats.Strings = (
|
||||
'CSV'
|
||||
'HTML Format'
|
||||
@ -154,6 +159,7 @@ object MainForm: TMainForm
|
||||
Header.Options = [hoColumnResize, hoDrag]
|
||||
HintMode = hmTooltip
|
||||
Images = TreeImages
|
||||
ParentFont = False
|
||||
ParentShowHint = False
|
||||
ShowHint = True
|
||||
TabOrder = 4
|
||||
@ -268,7 +274,7 @@ object MainForm: TMainForm
|
||||
end
|
||||
object TabSheet1: TTabSheet
|
||||
Caption = 'Tips'
|
||||
ClientHeight = 219
|
||||
ClientHeight = 217
|
||||
ClientWidth = 677
|
||||
ImageIndex = 2
|
||||
object Label8: TLabel
|
||||
|
@ -167,7 +167,8 @@ begin
|
||||
if Succeeded(DataObject.EnumFormatEtc(DATADIR_GET, EnumFormat)) then
|
||||
begin
|
||||
EnumFormat.Reset;
|
||||
while EnumFormat.Next(1, Format, Fetched) = S_OK do
|
||||
SetLength(Formats, 0);
|
||||
while EnumFormat.Next(1, Format, @Fetched) = S_OK do
|
||||
begin
|
||||
SetLength(Formats, Length(Formats) + 1);
|
||||
Formats[High(Formats)] := Format.cfFormat;
|
||||
@ -204,8 +205,10 @@ end;
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
|
||||
{
|
||||
var
|
||||
Stream: TResourceStream;
|
||||
}
|
||||
|
||||
begin
|
||||
Logger.Channels.Add(TIPCChannel.Create);
|
||||
|
@ -9,7 +9,6 @@
|
||||
</Flags>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
@ -34,7 +33,7 @@
|
||||
<PackageName Value="virtualtreeview_package"/>
|
||||
</Item2>
|
||||
</RequiredPackages>
|
||||
<Units Count="5">
|
||||
<Units Count="2">
|
||||
<Unit0>
|
||||
<Filename Value="ole.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
@ -45,29 +44,15 @@
|
||||
<ComponentName Value="MainForm"/>
|
||||
<HasResources Value="True"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceBaseClass Value="Form"/>
|
||||
<ResourceFilename Value="Main.lrs"/>
|
||||
<UnitName Value="Main"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="..\..\include\intf\win32\dragmanager.inc"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="..\..\include\intf\win32\olemethods.inc"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit3>
|
||||
<Unit4>
|
||||
<Filename Value="..\..\include\intf\win32\intf_uses.inc"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
</Unit4>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<Version Value="8"/>
|
||||
<PathDelim Value="\"/>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Debugging>
|
||||
<UseHeaptrc Value="True"/>
|
||||
|
Reference in New Issue
Block a user