Holas
Estaba realizando lo que me indican pero no es mucho lo que aparece, o simplemente no me funca bien...
tengo el siguiente procedimiento que se dispara cuando ocurre una condicion
Código Delphi
[-]
procedure TIngreso_Reg.Mensaje_Bloquea;
begin
sBarra.Panels[0].Text:= 'BLOQUEADO';
sBarra.Panels[0].Style:= psOwnerDraw;
Bloquea.Interval:= 500;
end;
y tambien tengo el siguiente codigo para el panel0 del statusbar
Código Delphi
[-]
procedure TIngreso_Reg.sBarraDrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
case Panel.Index of
0:if sw then begin
sBarra.Font.Color:= clBlack;
end
else
begin
sBarra.Canvas.Font.Color:= clBtnFace;
end;
end;
sBarra.Canvas.FillRect(Rect);
sBarra.Canvas.TextOut(Rect.Left,Rect.Top-2, Panel.Text);
end;
Ahora, si bien cambia el texto que existe, no hace un parpadeo... y lo que me interesa es realizar un parpadeo más notorio
igual, seguiré intentando...
tambien estoy tratando de que me muestre y oculte una imagen unas 10 veces para que se note el parpadeo, pero no me funciona bien...
gracias