Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Вниз

Перерисовка StatusBar   Найти похожие ветки 

 
так себе   (2007-02-10 16:24) [0]

На форме 2 Radiobuttin"а. В зависимости какой из них выбран должен выводиться текст в StatusBar. делал так:
procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
 Panel: TStatusPanel; const Rect: TRect);
begin
   if Radiobutton1.Checked then
 begin
   with  StatusBar1.Canvas do
   begin
     FillRect(rect);
     Font.Color := clRed;
     TextOut(rect.Left, Rect.Top, "  Долг");
   end;
 end else
 begin
   with  StatusBar1.Canvas do
   begin
     FillRect(rect);
     Font.Color := clgreen;
     TextOut(rect.Left, Rect.Top, "  Переплата");
   end;
 end;
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
   StatusBar1.OnDrawPanel := StatusBar1DrawPanel;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
 StatusBar1.OnDrawPanel := StatusBar1DrawPanel;
end;

В зависимости от того какой RadioButton вкючен перед запуском приложения - тот текс и выводится.
Однако при переключении RadioButton"ов смена выводимого текста не происходит. Что не так?


 
ANB ©   (2007-02-10 16:27) [1]


> StatusBar1.OnDrawPanel := StatusBar1DrawPanel;

Что мы хотели сделать этими операторами ???

Вызови в онкликах процедуру обновления статусбара.


 
так себе   (2007-02-10 16:38) [2]


> Вызови в онкликах процедуру обновления статусбара.

StatusBar1.Refresh
Спасибо, сразу и не сообразил


 
Loginov Dmitry ©   (2007-02-10 16:41) [3]


 procedure TForm1.RadioButton1Click(Sender: TObject);
 const
   Values: array[0..1] of string = ("Долг", "Переплата");
 begin
   StatusBar1.SimpleText := Values[TRadioButton(Sender).Tag];
 end;


 
Johnmen ©   (2007-02-10 20:54) [4]


> так себе   (10.02.07 16:24) 

А зачем конструкции типа
begin;
 begin;
    ...
   end;
 end;
?



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2007.03.04;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.041 c
2-1171536281
SQL
2007-02-15 13:44
2007.03.04
Проблемма с вводом даты в Windows XP


6-1159195346
PanModem
2006-09-25 18:42
2007.03.04
Как соединить два компа при помощи модемов?


15-1169305603
xayam
2007-01-20 18:06
2007.03.04
Баланс


15-1170650293
Ssilent
2007-02-05 07:38
2007.03.04
Может кто знает?


15-1171193492
Parus
2007-02-11 14:31
2007.03.04
Всё этот самый ASP VBScript





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский