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

industrial: Fix AdvLed not shown when created at runtime.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7148 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-09-02 17:34:51 +00:00
parent 947e735949
commit 4ba6d322a1
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/industrialstuff/source/AdvLed.pas
View File

@ -161,7 +161,8 @@ begin
FBlinkTimer := TTimer.Create(nil);
FBlinkTimer.OnTimer := @DoTimer;
FBlinkTimer.Enabled := false;
if (csDesigning in ComponentState) then BitmapNeeded;
//if (csDesigning in ComponentState) then
BitmapNeeded;
end;
// destroy control
@ -176,7 +177,12 @@ end;
// loaded
procedure TAdvLed.Loaded;
begin
begin
inherited;
if FKind <> lkCustom then
BitmapNeeded;
{
Try
If (csDesigning in ComponentState) Then Exit ;
// Load Bitmap if necessary
@ -184,6 +190,7 @@ procedure TAdvLed.Loaded;
Finally
inherited Loaded;
End;
}
end;
// timer