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

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

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