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

jvcllaz: Fix JvDesignerDemo crashing on Qt when a panel added to the designer surface is resized.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6966 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-05-28 13:42:05 +00:00
parent f05bc54e79
commit 988fb4f578
2 changed files with 204 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

248
components/jvcllaz/examples/JvDesigner/jvDesignerDemo.lpi
View File

@ -1,10 +1,12 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<MainUnit Value="0"/> <Flags>
<CompatibilityMode Value="True"/>
</Flags>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
<Icon Value="0"/> <Icon Value="0"/>
@ -17,15 +19,13 @@
</BuildModes> </BuildModes>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|o|so);*~;backup"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<FormatVersion Value="2"/> <FormatVersion Value="2"/>
<Modes Count="1"> <Modes Count="1">
<Mode0 Name="default"> <Mode0 Name="default">
<local> <local>
<LaunchingApplication PathPlusParams="\usr\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> <LaunchingApplication PathPlusParams="\usr\bin\xterm -T &apos;Lazarus Run Output&apos; -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local> </local>
</Mode0> </Mode0>
</Modes> </Modes>
@ -38,11 +38,11 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item2> </Item2>
</RequiredPackages> </RequiredPackages>
<Units Count="28"> <Units Count="31">
<Unit0> <Unit0>
<Filename Value="jvDesignerDemo.lpr"/> <Filename Value="jvDesignerDemo.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UsageCount Value="37"/> <UsageCount Value="43"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="main.pas"/> <Filename Value="main.pas"/>
@ -50,7 +50,7 @@
<ComponentName Value="MainForm"/> <ComponentName Value="MainForm"/>
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UsageCount Value="37"/> <UsageCount Value="43"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@ -58,33 +58,33 @@
<Filename Value="..\jvdesignsurface.pas"/> <Filename Value="..\jvdesignsurface.pas"/>
<UnitName Value="JvDesignSurface"/> <UnitName Value="JvDesignSurface"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<UsageCount Value="25"/> <UsageCount Value="24"/>
</Unit2> </Unit2>
<Unit3> <Unit3>
<Filename Value="..\tp_register.pas"/> <Filename Value="..\tp_register.pas"/>
<CursorPos X="82" Y="19"/> <CursorPos X="82" Y="19"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="..\jvresources.pas"/> <Filename Value="..\jvresources.pas"/>
<UnitName Value="JvResources"/> <UnitName Value="JvResources"/>
<TopLine Value="148"/> <TopLine Value="148"/>
<CursorPos X="17" Y="164"/> <CursorPos X="17" Y="164"/>
<UsageCount Value="15"/> <UsageCount Value="14"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="..\..\codetools\laz2_xmlwrite.pas"/> <Filename Value="..\..\codetools\laz2_xmlwrite.pas"/>
<UnitName Value="laz2_XMLWrite"/> <UnitName Value="laz2_XMLWrite"/>
<TopLine Value="172"/> <TopLine Value="172"/>
<CursorPos X="25" Y="187"/> <CursorPos X="25" Y="187"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit5> </Unit5>
<Unit6> <Unit6>
<Filename Value="..\..\..\fpc\2.4.3\source\rtl\win32\system.pp"/> <Filename Value="..\..\..\fpc\2.4.3\source\rtl\win32\system.pp"/>
<UnitName Value="System"/> <UnitName Value="System"/>
<TopLine Value="51"/> <TopLine Value="51"/>
<CursorPos X="3" Y="66"/> <CursorPos X="3" Y="66"/>
<UsageCount Value="13"/> <UsageCount Value="12"/>
</Unit6> </Unit6>
<Unit7> <Unit7>
<Filename Value="E:\sw\laz_jvdesigner\mainunit.pas"/> <Filename Value="E:\sw\laz_jvdesigner\mainunit.pas"/>
@ -94,54 +94,54 @@
<UnitName Value="mainUnit"/> <UnitName Value="mainUnit"/>
<TopLine Value="106"/> <TopLine Value="106"/>
<CursorPos Y="120"/> <CursorPos Y="120"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit7> </Unit7>
<Unit8> <Unit8>
<Filename Value="..\..\..\designer\controlselection.pp"/> <Filename Value="..\..\..\designer\controlselection.pp"/>
<UnitName Value="ControlSelection"/> <UnitName Value="ControlSelection"/>
<TopLine Value="1252"/> <TopLine Value="1252"/>
<CursorPos X="3" Y="1257"/> <CursorPos X="3" Y="1257"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit8> </Unit8>
<Unit9> <Unit9>
<Filename Value="..\..\..\lcl\include\wincontrol.inc"/> <Filename Value="..\..\..\lcl\include\wincontrol.inc"/>
<TopLine Value="4691"/> <TopLine Value="4691"/>
<CursorPos Y="4707"/> <CursorPos Y="4707"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="..\..\..\lcl\controls.pp"/> <Filename Value="..\..\..\lcl\controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<TopLine Value="1947"/> <TopLine Value="1947"/>
<CursorPos X="15" Y="1733"/> <CursorPos X="15" Y="1733"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="..\..\..\fpc\2.4.3\source\packages\fcl-db\src\dbase\dbf_idxfile.pas"/> <Filename Value="..\..\..\fpc\2.4.3\source\packages\fcl-db\src\dbase\dbf_idxfile.pas"/>
<TopLine Value="1226"/> <TopLine Value="1226"/>
<CursorPos X="31" Y="1236"/> <CursorPos X="31" Y="1236"/>
<UsageCount Value="8"/> <UsageCount Value="7"/>
</Unit11> </Unit11>
<Unit12> <Unit12>
<Filename Value="E:\sw\laz_jvdesigner\jvdesignutils.pas"/> <Filename Value="E:\sw\laz_jvdesigner\jvdesignutils.pas"/>
<UnitName Value="JvDesignUtils"/> <UnitName Value="JvDesignUtils"/>
<TopLine Value="58"/> <TopLine Value="58"/>
<CursorPos X="19"/> <CursorPos X="19"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit12> </Unit12>
<Unit13> <Unit13>
<Filename Value="E:\sw\laz_jvdesigner\jvdesignimp.pas"/> <Filename Value="E:\sw\laz_jvdesigner\jvdesignimp.pas"/>
<UnitName Value="JvDesignImp"/> <UnitName Value="JvDesignImp"/>
<TopLine Value="1213"/> <TopLine Value="1213"/>
<CursorPos X="30" Y="1241"/> <CursorPos X="30" Y="1241"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit13> </Unit13>
<Unit14> <Unit14>
<Filename Value="..\jvdesignimp.pas"/> <Filename Value="..\jvdesignimp.pas"/>
<UnitName Value="JvDesignImp"/> <UnitName Value="JvDesignImp"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos Y="1481"/> <CursorPos Y="1481"/>
<UsageCount Value="26"/> <UsageCount Value="25"/>
<Bookmarks Count="1"> <Bookmarks Count="1">
<Item0 X="23" Y="363" ID="1"/> <Item0 X="23" Y="363" ID="1"/>
</Bookmarks> </Bookmarks>
@ -150,14 +150,14 @@
<Filename Value="..\..\..\lcl\include\control.inc"/> <Filename Value="..\..\..\lcl\include\control.inc"/>
<TopLine Value="1577"/> <TopLine Value="1577"/>
<CursorPos Y="1593"/> <CursorPos Y="1593"/>
<UsageCount Value="12"/> <UsageCount Value="11"/>
</Unit15> </Unit15>
<Unit16> <Unit16>
<Filename Value="..\jvdesignutils.pas"/> <Filename Value="..\jvdesignutils.pas"/>
<UnitName Value="JvDesignUtils"/> <UnitName Value="JvDesignUtils"/>
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<CursorPos X="72" Y="13"/> <CursorPos X="72" Y="13"/>
<UsageCount Value="15"/> <UsageCount Value="14"/>
</Unit16> </Unit16>
<Unit17> <Unit17>
<Filename Value="..\jvdesignclip.pas"/> <Filename Value="..\jvdesignclip.pas"/>
@ -165,7 +165,7 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="24"/> <TopLine Value="24"/>
<CursorPos X="25" Y="2"/> <CursorPos X="25" Y="2"/>
<UsageCount Value="15"/> <UsageCount Value="14"/>
</Unit17> </Unit17>
<Unit18> <Unit18>
<Filename Value="..\jvconsts.pas"/> <Filename Value="..\jvconsts.pas"/>
@ -173,141 +173,226 @@
<EditorIndex Value="-1"/> <EditorIndex Value="-1"/>
<TopLine Value="155"/> <TopLine Value="155"/>
<CursorPos X="90" Y="186"/> <CursorPos X="90" Y="186"/>
<UsageCount Value="10"/> <UsageCount Value="9"/>
</Unit18> </Unit18>
<Unit19> <Unit19>
<Filename Value="..\..\..\lcl\include\canvas.inc"/> <Filename Value="..\..\..\lcl\include\canvas.inc"/>
<TopLine Value="387"/> <TopLine Value="387"/>
<CursorPos Y="406"/> <CursorPos Y="406"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit19> </Unit19>
<Unit20> <Unit20>
<Filename Value="..\..\..\lcl\include\customcontrol.inc"/> <Filename Value="..\..\..\lcl\include\customcontrol.inc"/>
<TopLine Value="107"/> <TopLine Value="107"/>
<CursorPos Y="136"/> <CursorPos Y="136"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit20> </Unit20>
<Unit21> <Unit21>
<Filename Value="E:\sw\laz_designer\jvdesignsurface.pas"/> <Filename Value="E:\sw\laz_designer\jvdesignsurface.pas"/>
<TopLine Value="301"/> <TopLine Value="301"/>
<CursorPos X="69" Y="312"/> <CursorPos X="69" Y="312"/>
<UsageCount Value="9"/> <UsageCount Value="8"/>
</Unit21> </Unit21>
<Unit22> <Unit22>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/> <Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/>
<UnitName Value="JvDesignSurface"/> <UnitName Value="JvDesignSurface"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<TopLine Value="1125"/> <TopLine Value="342"/>
<CursorPos Y="1147"/> <CursorPos Y="361"/>
<UsageCount Value="10"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit22> </Unit22>
<Unit23> <Unit23>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignclip.pas"/> <Filename Value="..\..\run\JvRuntimeDesign\jvdesignclip.pas"/>
<UnitName Value="JvDesignClip"/> <UnitName Value="JvDesignClip"/>
<EditorIndex Value="2"/> <EditorIndex Value="5"/>
<TopLine Value="193"/> <TopLine Value="172"/>
<CursorPos Y="216"/> <CursorPos Y="208"/>
<UsageCount Value="10"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit23> </Unit23>
<Unit24> <Unit24>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignutils.pas"/> <Filename Value="..\..\run\JvRuntimeDesign\jvdesignutils.pas"/>
<UnitName Value="JvDesignUtils"/> <UnitName Value="JvDesignUtils"/>
<EditorIndex Value="3"/> <EditorIndex Value="6"/>
<TopLine Value="407"/> <TopLine Value="178"/>
<CursorPos X="52" Y="420"/> <CursorPos Y="207"/>
<UsageCount Value="10"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit24> </Unit24>
<Unit25> <Unit25>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/> <Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<UnitName Value="JvDesignImp"/> <UnitName Value="JvDesignImp"/>
<EditorIndex Value="5"/> <EditorIndex Value="7"/>
<TopLine Value="1397"/> <TopLine Value="1007"/>
<CursorPos Y="1430"/> <CursorPos Y="1029"/>
<UsageCount Value="10"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit25> </Unit25>
<Unit26> <Unit26>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\forms.pp"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\forms.pp"/>
<UnitName Value="Forms"/> <UnitName Value="Forms"/>
<EditorIndex Value="6"/> <EditorIndex Value="8"/>
<TopLine Value="1737"/> <TopLine Value="1737"/>
<CursorPos X="3" Y="1754"/> <CursorPos X="3" Y="1754"/>
<UsageCount Value="10"/> <UsageCount Value="13"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit26> </Unit26>
<Unit27> <Unit27>
<Filename Value="..\..\design\JvRuntimeDesign\JvRuntimeDesignReg.pas"/> <Filename Value="..\..\design\JvRuntimeDesign\jvruntimedesignreg.pas"/>
<IsVisibleTab Value="True"/> <UnitName Value="JvRuntimeDesignReg"/>
<EditorIndex Value="4"/> <EditorIndex Value="-1"/>
<CursorPos X="39" Y="7"/> <CursorPos X="39" Y="7"/>
<UsageCount Value="12"/>
</Unit27>
<Unit28>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\include\control.inc"/>
<EditorIndex Value="3"/>
<TopLine Value="3305"/>
<CursorPos Y="3324"/>
<UsageCount Value="10"/> <UsageCount Value="10"/>
<Loaded Value="True"/> <Loaded Value="True"/>
</Unit27> </Unit28>
<Unit29>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<EditorIndex Value="4"/>
<TopLine Value="8121"/>
<CursorPos Y="8145"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit29>
<Unit30>
<Filename Value="C:\lazarus-trunk_fpc304\lcl\lclmessageglue.pas"/>
<UnitName Value="LCLMessageGlue"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="2"/>
<TopLine Value="102"/>
<CursorPos X="64" Y="114"/>
<UsageCount Value="10"/>
<Loaded Value="True"/>
</Unit30>
</Units> </Units>
<JumpHistory Count="16" HistoryIndex="15"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="main.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="164" Column="36" TopLine="137"/> <Caret Line="8122" TopLine="8103"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="main.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="8123" TopLine="8103"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="265" Column="17" TopLine="265"/> <Caret Line="8125" TopLine="8103"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="8127" TopLine="8103"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="43" Column="30" TopLine="15"/> <Caret Line="8128" TopLine="8103"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="404" Column="23" TopLine="404"/> <Caret Line="8130" TopLine="8103"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignutils.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="96" Column="30" TopLine="79"/> <Caret Line="8131" TopLine="8103"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignclip.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="143" Column="23" TopLine="143"/> <Caret Line="8139" TopLine="8121"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignclip.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="199" TopLine="193"/> <Caret Line="8142" TopLine="8121"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignclip.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\wincontrol.inc"/>
<Caret Line="8145" TopLine="8121"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/> <Filename Value="C:\lazarus-trunk_fpc304\lcl\include\control.inc"/>
<Caret Line="351" Column="29" TopLine="345"/> <Caret Line="3324" TopLine="3305"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/> <Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="1226" TopLine="1215"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/> <Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/>
<Caret Line="11" Column="30"/> <Caret Line="436" TopLine="418"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/> <Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/>
<Caret Line="681" Column="34" TopLine="660"/> <Caret Line="438" TopLine="418"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/> <Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="265" Column="28" TopLine="265"/> <Caret Line="1227" TopLine="1215"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignutils.pas"/> <Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="65" Column="38" TopLine="65"/> <Caret Line="1234" TopLine="1215"/>
</Position16> </Position16>
<Position17>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="994" TopLine="977"/>
</Position17>
<Position18>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="995" TopLine="977"/>
</Position18>
<Position19>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="1003" TopLine="977"/>
</Position19>
<Position20>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/>
<Caret Line="540" TopLine="522"/>
</Position20>
<Position21>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/>
<Caret Line="542" TopLine="522"/>
</Position21>
<Position22>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="1006" TopLine="977"/>
</Position22>
<Position23>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="1008" TopLine="979"/>
</Position23>
<Position24>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="1025" TopLine="1007"/>
</Position24>
<Position25>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="1026" TopLine="1007"/>
</Position25>
<Position26>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="1028" TopLine="1007"/>
</Position26>
<Position27>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Caret Line="1029" TopLine="1007"/>
</Position27>
<Position28>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/>
<Caret Line="922" TopLine="905"/>
</Position28>
<Position29>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/>
<Caret Line="333" TopLine="315"/>
</Position29>
<Position30>
<Filename Value="..\..\run\JvRuntimeDesign\jvdesignsurface.pas"/>
<Caret Line="361" TopLine="342"/>
</Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>
@ -329,6 +414,15 @@
</Linking> </Linking>
</CompilerOptions> </CompilerOptions>
<Debugging> <Debugging>
<BreakPoints Count="1">
<Item1>
<Kind Value="bpkSource"/>
<WatchScope Value="wpsLocal"/>
<WatchKind Value="wpkWrite"/>
<Source Value="..\..\run\JvRuntimeDesign\jvdesignimp.pas"/>
<Line Value="1232"/>
</Item1>
</BreakPoints>
<Exceptions Count="3"> <Exceptions Count="3">
<Item1> <Item1>
<Name Value="EAbort"/> <Name Value="EAbort"/>

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

@ -182,19 +182,25 @@ type
DDC: TDesignerDeviceContext; DDC: TDesignerDeviceContext;
constructor Create(AMessenger: TJvDesignCustomMessenger); reintroduce; constructor Create(AMessenger: TJvDesignCustomMessenger); reintroduce;
// IDesignerNotify interface // IDesignerNotify interface
procedure Modified; procedure Modified; override;
procedure Notification(AnObject: TPersistent; Operation: TOperation); reintroduce; // procedure Notification(AnObject: TPersistent; Operation: TOperation); reintroduce;
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
// IDesigner, IDesignerHook interface // IDesigner, IDesignerHook interface
function GetCustomForm: TCustomForm; function GetCustomForm: TCustomForm;
procedure SetCustomForm(Value: TCustomForm);
function GetIsControl: Boolean; function GetIsControl: Boolean;
procedure SetIsControl(Value: Boolean); function GetRoot: TComponent;
function GetShiftState: TShiftState; override;
function IsDesignMsg(Sender: TControl; var Msg: TLMessage): Boolean; override; function IsDesignMsg(Sender: TControl; var Msg: TLMessage): Boolean; override;
procedure PaintGrid; override; procedure PaintGrid; override;
procedure ValidateRename(AComponent: TComponent; const CurName, NewName: string); reintroduce; 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; function UniqueName(const BaseName: string): string; override;
function GetRoot: TComponent; procedure UTF8KeyPress(var UTF8Key: TUTF8Char); override;
procedure ValidateRename(AComponent: TComponent; const CurName, NewName: string); override; //reintroduce;
//{$IFDEF COMPILER9_UP} //{$IFDEF COMPILER9_UP}
//procedure PaintMenu; //procedure PaintMenu;
//{$ENDIF COMPILER9_UP} //{$ENDIF COMPILER9_UP}
@ -1251,6 +1257,10 @@ begin
Result := nil; Result := nil;
end; end;
function TJvDesignDesigner.GetShiftState: TShiftState;
begin
Result := [];
end;
function TJvDesignDesigner.IsDesignMsg(Sender: TControl; var Msg: TLMessage): Boolean; function TJvDesignDesigner.IsDesignMsg(Sender: TControl; var Msg: TLMessage): Boolean;
begin begin
Result := Messenger.IsDesignMessage(Sender, Msg); Result := Messenger.IsDesignMessage(Sender, Msg);
@ -1261,8 +1271,8 @@ begin
// //
end; end;
procedure TJvDesignDesigner.Notification(AnObject: TPersistent; procedure TJvDesignDesigner.Notification(AComponent: TComponent; Operation: TOperation);
Operation: TOperation); //procedure TJvDesignDesigner.Notification(AnObject: TPersistent; Operation: TOperation);
begin begin
// //
end; end;
@ -1272,6 +1282,16 @@ begin
// //
end; end;
procedure TJvDesignDesigner.PrepareFreeDesigner(AFreeComponent: boolean);
begin
//
end;
procedure TJvDesignDesigner.SelectOnlyThisComponent(AComponent: TComponent);
begin
//
end;
procedure TJvDesignDesigner.SetCustomForm(Value: TCustomForm); procedure TJvDesignDesigner.SetCustomForm(Value: TCustomForm);
begin begin
// //
@ -1287,6 +1307,11 @@ begin
// //
end; end;
procedure TJvDesignDesigner.UTF8KeyPress(var UTF8Key: TUTF8Char);
begin
//
end;
procedure TJvDesignDesigner.ValidateRename(AComponent: TComponent; procedure TJvDesignDesigner.ValidateRename(AComponent: TComponent;
const CurName, NewName: string); const CurName, NewName: string);
begin begin