Шығыс Қазақстан облысының білім басқармасы



Pdf көрінісі
бет148/180
Дата06.01.2022
өлшемі4,77 Mb.
#15026
1   ...   144   145   146   147   148   149   150   151   ...   180
Байланысты:
УМК-ОББ

end
5. 
DBGrid1  компонентінің  төменде  көрсетілген    OnGetBtnParams  және 
OnTitleBtnClick 
оқиғалар 
өндеушілерін 
құрыңыз: 
 
procedure 
TfmMain.DBGrid1
GetBtnParams
(Sender: TObject; Field: TField;  AFont: TFont; var Background: 
TColor; var SortMarker: TSortMarker; IsDown: Boolean); 
begin 


145 
 
   if (Field <> nil) and (Field.FullName = NameSortField) then begin 
     if Desc  
then SortMarker:=smUp 
else SortMarker:=smDown; 
   end;  
end; 
 
procedure TfmMain.DBGrid1
TitleBtnClick
(Sender: TObject; ACol: Integer; Field: 
TField); 
begin 
    if (Field <> nilthen begin 
       if NameSortField=Field.FullName then Desc:=Not(Desc) 
       else begin 
            
Desc:=False; 
            
NameSortField:=Field.FullName; 
        
   end; 
    end; 
end; 
6. 
Бағдарламаны  орындау  үшін  іске  қосыңыз  және  бағаналар  атауларында 
батырмалардың  жұмысын  тексеріңіз  –  бағананың  жаңа  атауын  шерткенде  батырма  осы 
бағана атауында пайда болуы қажет, ол орналасқан бағана атауын шерткенде батарма өзінің 
сыртқы түрін өзгерту керек.  


Достарыңызбен бөлісу:
1   ...   144   145   146   147   148   149   150   151   ...   180




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет