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

RxFPC:fix paint TRxLockupCombo on resize

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6215 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-02-27 07:00:13 +00:00
parent 6aedb395f4
commit 2fb499d220
2 changed files with 34 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
components/rx/trunk/demos/RxLookup/project1.lpi
View File

@ -55,8 +55,7 @@
<HasResources Value="True"/> <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/> <UnitName Value="Unit1"/>
<IsVisibleTab Value="True"/> <TopLine Value="16"/>
<TopLine Value="22"/>
<CursorPos X="23" Y="74"/> <CursorPos X="23" Y="74"/>
<UsageCount Value="24"/> <UsageCount Value="24"/>
<Loaded Value="True"/> <Loaded Value="True"/>
@ -75,17 +74,19 @@
<Unit3> <Unit3>
<Filename Value="../../../../lcl/controls.pp"/> <Filename Value="../../../../lcl/controls.pp"/>
<UnitName Value="Controls"/> <UnitName Value="Controls"/>
<EditorIndex Value="-1"/> <EditorIndex Value="2"/>
<TopLine Value="1135"/> <TopLine Value="1276"/>
<CursorPos Y="1152"/> <CursorPos X="15" Y="1294"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit3> </Unit3>
<Unit4> <Unit4>
<Filename Value="../../../../lcl/include/control.inc"/> <Filename Value="../../../../lcl/include/control.inc"/>
<EditorIndex Value="-1"/> <EditorIndex Value="3"/>
<TopLine Value="4113"/> <TopLine Value="3771"/>
<CursorPos Y="4129"/> <CursorPos X="3" Y="3778"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit4> </Unit4>
<Unit5> <Unit5>
<Filename Value="../../rxpopupunit.pas"/> <Filename Value="../../rxpopupunit.pas"/>
@ -124,10 +125,12 @@
</Unit9> </Unit9>
<Unit10> <Unit10>
<Filename Value="../../rxdb/rxlookup.pas"/> <Filename Value="../../rxdb/rxlookup.pas"/>
<EditorIndex Value="-1"/> <IsVisibleTab Value="True"/>
<TopLine Value="1520"/> <EditorIndex Value="1"/>
<CursorPos X="33" Y="1520"/> <TopLine Value="1466"/>
<CursorPos X="2" Y="1471"/>
<UsageCount Value="11"/> <UsageCount Value="11"/>
<Loaded Value="True"/>
</Unit10> </Unit10>
<Unit11> <Unit11>
<Filename Value="../../registerrx.pas"/> <Filename Value="../../registerrx.pas"/>
@ -162,7 +165,7 @@
<UsageCount Value="10"/> <UsageCount Value="10"/>
</Unit14> </Unit14>
</Units> </Units>
<JumpHistory Count="13" HistoryIndex="12"> <JumpHistory Count="16" HistoryIndex="15">
<Position1> <Position1>
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="47" TopLine="34"/> <Caret Line="47" TopLine="34"/>
@ -215,6 +218,18 @@
<Filename Value="unit1.pas"/> <Filename Value="unit1.pas"/>
<Caret Line="62" Column="14" TopLine="57"/> <Caret Line="62" Column="14" TopLine="57"/>
</Position13> </Position13>
<Position14>
<Filename Value="unit1.pas"/>
<Caret Line="74" Column="23" TopLine="16"/>
</Position14>
<Position15>
<Filename Value="../../rxdb/rxlookup.pas"/>
<Caret Line="334" Column="3" TopLine="315"/>
</Position15>
<Position16>
<Filename Value="../../rxdb/rxlookup.pas"/>
<Caret Line="277" Column="30" TopLine="259"/>
</Position16>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>
<CompilerOptions> <CompilerOptions>

7
components/rx/trunk/rxdb/rxlookup.pas
View File

@ -274,6 +274,7 @@ type
procedure MouseLeave; override; procedure MouseLeave; override;
procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override; procedure MouseDown(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override; procedure MouseUp(Button: TMouseButton; Shift:TShiftState; X,Y:Integer); override;
procedure Resize; override;
procedure Click; override; procedure Click; override;
function RealGetText: TCaption; override; function RealGetText: TCaption; override;
@ -1464,6 +1465,12 @@ begin
Invalidate; Invalidate;
end; end;
procedure TRxCustomDBLookupCombo.Resize;
begin
inherited Resize;
Invalidate;
end;
procedure TRxCustomDBLookupCombo.Click; procedure TRxCustomDBLookupCombo.Click;
begin begin
inherited Click; inherited Click;