Hi,
Am Montag, den 02.01.2006, 22:18 +0100 schrieb Marc Santhoff:
> Hi,
>
> I'm setting the 'color' property of a TPanel and it is getting pretty
> green. If set back to 'clBtnFace' nothing happens.
>
> procedure TKeyboardForm.rgTestTypeClick(Sender: TObject);
> begin
>
> if (TRadioGroup(Sender).itemindex = 1) then begin
> ...
> lbSignal.Caption := 'Bitte *jede* Taste einmal drücken!';
> pnKeyboard.Color := clGreen;
> pnKeyboard.refresh;
> (* This does work, the panel is getting green. *)
> end;
> end;
> end;
>
> procedure TKeyboardForm.bbStopClick(Sender: TObject);
> begin
> ...
> lbSignal.Caption := 'Abgebrochen.';
> pnKeyboard.Color := clBtnFace;
> pnKeyboard.invalidate;
> pnKeyboard.paint;
> (* Here nothing happens on the panel, it stays green. *)
> ...
> end;
> end;
>
> The caption of the label is set correctly in both cases. Instead of
> 'paint' I tried several combinations of 'refresh', 'redraw' and
> 'invalidate', with no positive result.
>
> I remember something around colors and paint, so it may be a faq ...
Probably a bug..
Which platform?
cheers,
Danny
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
