代码拉取完成，页面将自动刷新
object Main: TMain
Left = 0
Top = 0
Caption = 'Accueil'
ClientHeight = 692
ClientWidth = 1260
Position = DesktopCenter
WindowState = wsMaximized
FormFactor.Width = 320
FormFactor.Height = 480
FormFactor.Devices = [Desktop]
OnCreate = FormCreate
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnResize = FormResize
OnPaint = FormPaint
OnShow = FormShow
DesignerMasterStyle = 0
object Rectangle2: TRectangle
Align = Client
Fill.Color = claSlategray
Opacity = 0.500000000000000000
Size.Width = 1260.000000000000000000
Size.Height = 692.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
Visible = False
end
object Rectangle1: TRectangle
Align = Client
Fill.Color = claWhite
Opacity = 0.500000000000000000
Size.Width = 1260.000000000000000000
Size.Height = 692.000000000000000000
Size.PlatformDefault = False
Stroke.Kind = None
end
object PopupMenu1: TPopupMenu
Left = 1144
Top = 104
object PoP_Biochimic: TMenuItem
Text = 'Biochimic'
OnClick = PoP_BiochimicClick
end
object PoP_Serologie: TMenuItem
Text = 'Serologie'
OnClick = PoP_SerologieClick
end
object PoP_Hemostase: TMenuItem
Text = 'Hemostase'
OnClick = PoP_HemostaseClick
end
object PoP_Hemogramme: TMenuItem
Text = 'Hemogramme'
OnClick = PoP_HemogrammeClick
end
end
object PopupMenu2: TPopupMenu
Left = 1216
Top = 56
object PoP2_Hemog: TMenuItem
Text = 'Hemogramme'
OnClick = PoP2_HemogClick
end
object PoP2_Hemos: TMenuItem
Text = 'Hemostase | VS'
OnClick = PoP2_HemosClick
end
object PoP2_Boi: TMenuItem
Text = 'Biochimique'
OnClick = PoP2_BoiClick
end
object PoP2_Serologie: TMenuItem
Text = 'Serologie'
OnClick = PoP2_SerologieClick
end
end
object SaveDialog1: TSaveDialog
DefaultExt = '.Bak'
FileName = 'Backupbase'
Filter = 'BAK file|*.BAK|db file|*.db'
Options = [ofOverwritePrompt, ofHideReadOnly, ofFileMustExist, ofEnableSizing]
OnTypeChange = SaveDialog1TypeChange
Left = 1128
Top = 8
end
object Layout13: TLayout
Align = Client
Size.Width = 1260.000000000000000000
Size.Height = 692.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object HeaderT: TTabControl
Align = Top
ClipChildren = True
ClipParent = True
Size.Width = 1260.000000000000000000
Size.Height = 161.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'tabcontrolstyle'
TabIndex = 0
TabOrder = 0
TabPosition = PlatformDefault
Sizes = (
1260s
129s
1260s
129s
1260s
129s
1260s
129s
1260s
129s)
object H_Accueil: TTabItem
CustomIcon.TransparentColor = -16777194
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
StyledSettings = [Style, FontColor]
HelpType = htKeyword
IsSelected = True
Size.Width = 91.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'tabitemstyle'
TabOrder = 0
Text = #61461' Accueil'
ExplicitSize.cx = 62.000000000000000000
ExplicitSize.cy = 30.000000000000000000
object Panel4: TPanel
Align = Client
Opacity = 0.699999988079071100
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
end
object Layout6: TLayout
Align = Client
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Layout22: TLayout
Align = Left
Position.X = 129.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Label5: TLabel
Cursor = crHandPoint
StyledSettings = [Style, FontColor]
HitTest = True
Position.X = 35.000000000000000000
Position.Y = 50.000000000000000000
Size.Width = 60.000000000000000000
Size.Height = 31.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.VertAlign = Trailing
Text = 'Fen'#234'tres'
TabOrder = 2
object ShadowEffect7: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label8: TLabel
StyledSettings = [FontColor]
Position.X = 20.000000000000000000
Position.Y = 97.000000000000000000
Size.Width = 89.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 19.000000000000000000
Text = 'Navigation'
TabOrder = 3
end
object Label4: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 24.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 69.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 40.000000000000000000
TextSettings.FontColor = xFF97E9A5
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #62162
TabOrder = 1
OnClick = Label4Click
object ShadowEffect9: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation2: TColorAnimation
Delay = 0.200000002980232200
Duration = 0.500000000000000000
PropertyName = 'TextSettings.FontColor'
StartValue = xFF97E9A5
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
end
object Layout24: TLayout
Align = Left
Position.X = 571.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object Label11: TLabel
Cursor = crHandPoint
StyledSettings = [Style, FontColor]
HitTest = True
Position.X = 32.000000000000000000
Position.Y = 58.000000000000000000
Size.Width = 70.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.VertAlign = Trailing
Text = #192' propos'
TabOrder = 2
object ShadowEffect6: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label14: TLabel
StyledSettings = [FontColor]
Position.X = 16.000000000000000000
Position.Y = 97.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 19.000000000000000000
Text = 'Information'
TabOrder = 3
end
object Label10: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 27.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 68.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 40.000000000000000000
TextSettings.FontColor = xFFD7263D
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61530
TabOrder = 1
OnClick = Label10Click
object ShadowEffect3: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation5: TColorAnimation
Delay = 0.200000002980232200
Duration = 0.500000000000000000
PropertyName = 'TextSettings.FontColor'
StartValue = xFFD7263D
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
end
object Layout25: TLayout
Align = Left
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object Label2: TLabel
Cursor = crHandPoint
StyledSettings = [Style, FontColor]
HitTest = True
Position.X = 18.000000000000000000
Position.Y = 57.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Trailing
Text = 'Page d'#39'accueil'
TabOrder = 2
object ShadowEffect2: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label3: TLabel
StyledSettings = [FontColor]
Position.X = 44.000000000000000000
Position.Y = 97.000000000000000000
Size.Width = 49.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 19.000000000000000000
Text = 'Acceil'
TabOrder = 0
end
object Label1: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 15.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 100.000000000000000000
Size.Height = 70.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 50.000000000000000000
TextSettings.FontColor = xFFD11149
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61461
TabOrder = 1
OnClick = Label1Click
object ShadowEffect1: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation1: TColorAnimation
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFD11149
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
end
object Line6: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 128.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line7: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 256.000000000000000000
Position.Y = 2.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line8: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 570.000000000000000000
Position.Y = 2.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line9: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 699.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Layout23: TLayout
Align = Left
Position.X = 258.000000000000000000
Size.Width = 313.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
object Label13: TLabel
Cursor = crHandPoint
StyledSettings = [Style, FontColor]
HitTest = True
Position.X = 182.000000000000000000
Position.Y = 57.000000000000000000
Size.Width = 110.000000000000000000
Size.Height = 46.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.VertAlign = Trailing
Text = 'Param'#232'tre de l'#39#233'tablissement'
TabOrder = 2
object ShadowEffect13: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label7: TLabel
Cursor = crHandPoint
StyledSettings = [Style, FontColor]
HitTest = True
Position.X = 43.000000000000000000
Position.Y = 50.000000000000000000
Size.Width = 82.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.VertAlign = Trailing
Text = 'Param'#234'tres'
TabOrder = 4
object ShadowEffect5: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label9: TLabel
StyledSettings = [FontColor]
Position.X = 108.000000000000000000
Position.Y = 97.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 19.000000000000000000
Text = 'Param'#234'tres'
TabOrder = 5
end
object Line1: TLine
LineType = Left
Position.X = 154.000000000000000000
Position.Y = 16.000000000000000000
Size.Width = 5.000000000000000000
Size.Height = 80.000000000000000000
Size.PlatformDefault = False
Stroke.Thickness = 0.500000000000000000
end
object Label6: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 35.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 89.000000000000000000
Size.Height = 68.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 40.000000000000000000
TextSettings.FontColor = xFF448FA3
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61573
TabOrder = 3
OnClick = Label6Click
object ShadowEffect4: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation3: TColorAnimation
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFF448FA3
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
object Label12: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 179.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 105.000000000000000000
Size.Height = 92.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 40.000000000000000000
TextSettings.FontColor = xFF0F7A7B
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61688
TabOrder = 1
OnClick = Label12Click
object ShadowEffect12: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation4: TColorAnimation
Delay = 0.200000002980232200
Duration = 0.500000000000000000
PropertyName = 'TextSettings.FontColor'
StartValue = xFF0F7A7B
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
end
end
end
object H_Editeur: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
StyledSettings = [Style, FontColor]
IsSelected = False
Size.Width = 81.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61468' Outils'
ExplicitSize.cx = 71.000000000000000000
ExplicitSize.cy = 30.000000000000000000
object Panel6: TPanel
Align = Client
Opacity = 0.699999988079071100
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
end
object Layout26: TLayout
Align = Client
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
object Layout34: TLayout
Align = Left
Position.X = 257.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Label72: TLabel
StyledSettings = [Style, FontColor]
Position.X = 23.000000000000000000
Position.Y = 70.000000000000000000
Size.Width = 83.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Text = 'Calculatrice'
TabOrder = 1
object ShadowEffect60: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label73: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 16.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 97.000000000000000000
Size.Height = 74.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 50.000000000000000000
TextSettings.FontColor = xFFEC4E20
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61932
TabOrder = 0
OnClick = Label73Click
object ShadowEffect61: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation35: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
PropertyName = 'TextSettings.FontColor'
StartValue = xFFEC4E20
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
end
object Line17: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 257.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 131.000000000000000000
Size.PlatformDefault = False
end
object Line18: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 386.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 131.000000000000000000
Size.PlatformDefault = False
end
object Layout9: TLayout
Align = Left
Size.Width = 257.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object Layout33: TLayout
Align = Left
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Label70: TLabel
StyledSettings = [Style, FontColor]
Position.X = 18.000000000000000000
Position.Y = 55.000000000000000000
Size.Width = 93.000000000000000000
Size.Height = 34.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.HorzAlign = Center
Text = 'Sauvgarder la base de donn'#233'e'
TabOrder = 1
object ShadowEffect58: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label71: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 24.000000000000000000
Position.Y = 7.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 82.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 50.000000000000000000
TextSettings.FontColor = xFFB6006B
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61587
TabOrder = 0
OnClick = Label71Click
object ColorAnimation34: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFB6006B
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect59: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Layout35: TLayout
Align = Left
Position.X = 129.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object Label74: TLabel
StyledSettings = [Style, FontColor]
Position.X = 32.000000000000000000
Position.Y = 57.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 48.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.HorzAlign = Center
Text = 'Restaurer la base de donn'#233'e'
TabOrder = 1
object ShadowEffect62: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label75: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 32.000000000000000000
Position.Y = 7.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 98.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 50.000000000000000000
TextSettings.FontColor = xFF0F7A7B
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61600
TabOrder = 0
OnClick = Label75Click
object ColorAnimation36: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFF0F7A7B
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect63: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Label22: TLabel
StyledSettings = [FontColor]
Position.X = 63.000000000000000000
Position.Y = 96.000000000000000000
Size.Width = 131.000000000000000000
Size.Height = 33.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 19.000000000000000000
Text = 'Base de donn'#233'e'
TabOrder = 0
end
object Line16: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 128.000000000000000000
Position.Y = 8.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 97.000000000000000000
Size.PlatformDefault = False
end
end
end
end
object H_Gen_Patient: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
StyledSettings = [Style, FontColor]
IsSelected = False
Size.Width = 94.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61918' G'#233'n'#233'ral'
Visible = False
ExplicitSize.cx = 94.000000000000000000
ExplicitSize.cy = 30.000000000000000000
object Panel10: TPanel
Align = Client
Opacity = 0.699999988079071100
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
end
object Layout: TLayout
Align = Client
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
object Layout_Exit_Patient: TLayout
Align = Left
Position.X = 861.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
object Label16: TLabel
StyledSettings = [Style, FontColor]
Position.X = 37.000000000000000000
Position.Y = 70.000000000000000000
Size.Width = 55.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.HorzAlign = Center
Text = 'Fermer'
TabOrder = 1
object ShadowEffect10: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label15: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 36.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 57.000000000000000000
Size.Height = 74.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFD7263D
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #62163
TabOrder = 0
OnClick = Label15Click
object ColorAnimation6: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFD7263D
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect8: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Layout5: TLayout
Align = Left
Position.X = 603.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 5
object Label28: TLabel
StyledSettings = [Style, FontColor]
Position.X = 24.000000000000000000
Position.Y = 65.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 27.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.HorzAlign = Center
Text = 'impression'
TabOrder = 1
object ShadowEffect19: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label23: TLabel
StyledSettings = [Style, FontColor]
Position.X = 36.000000000000000000
Position.Y = 89.000000000000000000
Size.Width = 57.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.HorzAlign = Center
Text = #61703
TabOrder = 2
end
object Label27: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 24.000000000000000000
Position.Y = 20.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 90.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFF44AF69
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61487
TabOrder = 0
OnClick = Label27Click
object ShadowEffect20: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation15: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
PropertyName = 'TextSettings.FontColor'
StartValue = xFF44AF69
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
end
object Layout7: TLayout
Align = Left
Position.X = 474.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object Label29: TLabel
StyledSettings = [Style, FontColor]
Position.X = 18.000000000000000000
Position.Y = 60.000000000000000000
Size.Width = 93.000000000000000000
Size.Height = 37.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.HorzAlign = Center
Text = 'Recherche'
TabOrder = 1
object ShadowEffect21: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label30: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 24.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 88.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFB6006B
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61442
TabOrder = 0
OnClick = Label30Click
object ColorAnimation16: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFB6006B
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect22: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Layout8: TLayout
Align = Left
Position.X = 345.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Label31: TLabel
StyledSettings = [Style, FontColor]
Position.X = 18.000000000000000000
Position.Y = 65.000000000000000000
Size.Width = 87.000000000000000000
Size.Height = 24.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.HorzAlign = Center
Text = 'Analyse'
TabOrder = 1
object ShadowEffect23: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label64: TLabel
StyledSettings = [Style, FontColor]
Position.X = 37.000000000000000000
Position.Y = 89.000000000000000000
Size.Width = 57.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.HorzAlign = Center
Text = #61703
TabOrder = 2
end
object Label32: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 24.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 98.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFFFAD05
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61508
TabOrder = 0
OnClick = Label32Click
object ColorAnimation17: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFFFAD05
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect24: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Line2: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 345.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line3: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 474.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line4: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 602.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line5: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 731.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Layout18: TLayout
Align = Left
Size.Width = 345.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object Label51: TLabel
StyledSettings = [Style, FontColor]
Position.X = 36.000000000000000000
Position.Y = 70.000000000000000000
Size.Width = 57.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Text = 'Ajouter'
TabOrder = 6
object ShadowEffect43: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label63: TLabel
StyledSettings = [Style, FontColor]
Position.X = 248.000000000000000000
Position.Y = 70.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Text = 'Supprimer'
TabOrder = 4
object ShadowEffect53: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label66: TLabel
StyledSettings = [Style, FontColor]
Position.X = 136.000000000000000000
Position.Y = 70.000000000000000000
Size.Width = 65.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Text = 'Modifier'
TabOrder = 3
object ShadowEffect56: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label62: TLabel
StyledSettings = [Style, FontColor]
Position.X = 118.000000000000000000
Position.Y = 102.000000000000000000
Size.Width = 61.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Text = 'G'#233'n'#233'ral'
TabOrder = 5
object ShadowEffect52: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Line14: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 104.000000000000000000
Position.Y = 10.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 80.000000000000000000
Size.PlatformDefault = False
end
object Line15: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 216.000000000000000000
Position.Y = 10.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 80.000000000000000000
Size.PlatformDefault = False
end
object Label61: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 248.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 74.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFD11149
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61453
TabOrder = 1
OnClick = Label61Click
object ShadowEffect51: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation31: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFD11149
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
object Label65: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 136.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 57.000000000000000000
Size.Height = 74.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFEC4E20
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61686
TabOrder = 0
OnClick = Label65Click
object ShadowEffect55: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation33: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
PropertyName = 'TextSettings.FontColor'
StartValue = xFFEC4E20
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
object Label52: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 32.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 57.000000000000000000
Size.Height = 74.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFF448FA3
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61543
TabOrder = 2
OnClick = Label52Click
object ShadowEffect44: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation27: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFF448FA3
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
end
object Line10: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 860.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Layout14: TLayout
Align = Left
Position.X = 732.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object Label24: TLabel
StyledSettings = [Style, FontColor]
Position.X = 34.000000000000000000
Position.Y = 62.000000000000000000
Size.Width = 61.000000000000000000
Size.Height = 43.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.HorzAlign = Center
Text = 'Le temps passe'
TabOrder = 1
object ShadowEffect25: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label25: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 20.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 89.000000000000000000
Size.Height = 90.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFDF37C8
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #62068
TabOrder = 0
OnClick = Label25Click
object ColorAnimation18: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFDF37C8
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect26: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Line19: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 988.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
end
end
object H_Gen_RechercheP: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
StyledSettings = [Style, FontColor]
IsSelected = False
Size.Width = 94.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61918' G'#233'n'#233'ral'
Visible = False
ExplicitSize.cx = 94.000000000000000000
ExplicitSize.cy = 30.000000000000000000
object Panel12: TPanel
Align = Client
Opacity = 0.699999988079071100
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
end
object Layout29: TLayout
Align = Client
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
object Layout_Exit_RechercheP: TLayout
Align = Left
Position.X = 645.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object Label17: TLabel
StyledSettings = [Style, FontColor]
Position.X = 40.000000000000000000
Position.Y = 80.000000000000000000
Size.Width = 49.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Text = 'Fermer'
TabOrder = 1
object ShadowEffect11: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label18: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 36.000000000000000000
Position.Y = 17.000000000000000000
Size.Width = 57.000000000000000000
Size.Height = 88.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFD7263D
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #62163
TabOrder = 0
OnClick = Label18Click
object ColorAnimation7: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFD7263D
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect14: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Layout15: TLayout
Align = Left
Position.X = 258.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object Label45: TLabel
StyledSettings = [Style, FontColor]
Position.X = 28.000000000000000000
Position.Y = 80.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Text = 'Supprimer'
TabOrder = 1
object ShadowEffect37: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label46: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 16.000000000000000000
Position.Y = 16.000000000000000000
Size.Width = 89.000000000000000000
Size.Height = 88.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFD7263D
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61453
TabOrder = 0
OnClick = Label46Click
object ShadowEffect38: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
object ColorAnimation24: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFD7263D
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
end
end
object Layout16: TLayout
Align = Left
Position.X = 129.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
object Label47: TLabel
StyledSettings = [Style, FontColor]
Position.X = 18.000000000000000000
Position.Y = 64.000000000000000000
Size.Width = 93.000000000000000000
Size.Height = 49.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.HorzAlign = Center
Text = 'Modifier'
TabOrder = 1
object ShadowEffect39: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label48: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 24.000000000000000000
Position.Y = 17.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 88.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFD11149
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61686
TabOrder = 0
OnClick = Label48Click
object ColorAnimation25: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFD11149
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect40: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Layout17: TLayout
Align = Left
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 5
object Label50: TLabel
StyledSettings = [Style, FontColor]
Position.X = 10.000000000000000000
Position.Y = 72.000000000000000000
Size.Width = 108.000000000000000000
Size.Height = 41.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.HorzAlign = Center
Text = 'Afficher/cacher Param'#232'tre de Filter'
TabOrder = 1
object ShadowEffect42: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label49: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 8.000000000000000000
Position.Y = 17.000000000000000000
Size.Width = 113.000000000000000000
Size.Height = 96.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 50.000000000000000000
TextSettings.FontColor = xFFFFAD05
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61552
TabOrder = 0
OnClick = Label49Click
object ColorAnimation26: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFFFAD05
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect41: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Line20: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 128.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line21: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 257.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line22: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 387.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line23: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 515.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Layout4: TLayout
Align = Left
Position.X = 387.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object Label21: TLabel
StyledSettings = [Style, FontColor]
Position.X = 20.000000000000000000
Position.Y = 80.000000000000000000
Size.Width = 89.000000000000000000
Size.Height = 41.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.HorzAlign = Center
Text = 'R'#233'initialiser les filtres'
TabOrder = 1
object ShadowEffect17: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label223: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 24.000000000000000000
Position.Y = 17.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 104.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFF8D30D8
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61616
TabOrder = 0
OnClick = Label223Click
object ColorAnimation9: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFF8D30D8
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect18: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Line24: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 643.000000000000000000
Position.Y = -8.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Layout21: TLayout
Align = Left
Position.X = 516.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Label33: TLabel
StyledSettings = [Style, FontColor]
Position.X = 34.000000000000000000
Position.Y = 72.000000000000000000
Size.Width = 61.000000000000000000
Size.Height = 41.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.HorzAlign = Center
Text = 'Le temps passe'
TabOrder = 1
object ShadowEffect27: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label34: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 32.000000000000000000
Position.Y = 17.000000000000000000
Size.Width = 65.000000000000000000
Size.Height = 96.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFDF37C8
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #62068
TabOrder = 0
OnClick = Label34Click
object ColorAnimation19: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFDF37C8
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect28: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Line25: TLine
LineType = Left
Opacity = 0.800000011920928900
Position.X = 771.000000000000000000
Position.Y = -8.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
end
end
object H_Gen_NouveauP: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
StyledSettings = [Style, FontColor]
IsSelected = False
Size.Width = 94.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61918' G'#233'n'#233'ral'
Visible = False
ExplicitSize.cx = 94.000000000000000000
ExplicitSize.cy = 30.000000000000000000
object Panel13: TPanel
Align = Client
Opacity = 0.699999988079071100
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
end
object Layout30: TLayout
Align = Client
Size.Width = 1260.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 4
object Layout20: TLayout
Align = Left
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Label56: TLabel
StyledSettings = [Style, FontColor]
Position.X = 18.000000000000000000
Position.Y = 52.000000000000000000
Size.Width = 93.000000000000000000
Size.Height = 49.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.HorzAlign = Center
Text = 'Eenregistrer'
TabOrder = 1
object ShadowEffect48: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label55: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 24.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 88.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFFFAD05
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61639
TabOrder = 0
OnClick = Label55Click
object ColorAnimation29: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
PropertyName = 'TextSettings.FontColor'
StartValue = xFFFFAD05
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect47: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Layout3: TLayout
Align = Left
Position.X = 258.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object Label19: TLabel
StyledSettings = [Style, FontColor]
Position.X = 40.000000000000000000
Position.Y = 67.000000000000000000
Size.Width = 49.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Text = 'Fermer'
TabOrder = 1
object ShadowEffect15: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label20: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 36.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 57.000000000000000000
Size.Height = 74.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFD7263D
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #62163
TabOrder = 0
OnClick = Label20Click
object ColorAnimation8: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
Inverse = True
PropertyName = 'TextSettings.FontColor'
StartValue = xFFD7263D
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect16: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Layout19: TLayout
Align = Left
Position.X = 129.000000000000000000
Size.Width = 129.000000000000000000
Size.Height = 129.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object Label53: TLabel
StyledSettings = [Style, FontColor]
Position.X = 18.000000000000000000
Position.Y = 65.000000000000000000
Size.Width = 93.000000000000000000
Size.Height = 25.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.HorzAlign = Center
Text = 'Vid'#233
TabOrder = 1
object ShadowEffect45: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
object Label54: TLabel
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 24.000000000000000000
Position.Y = 15.000000000000000000
Size.Width = 81.000000000000000000
Size.Height = 88.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 45.000000000000000000
TextSettings.FontColor = xFFD11149
TextSettings.HorzAlign = Center
TextSettings.VertAlign = Leading
Text = #61462
TabOrder = 0
OnClick = Label54Click
object ColorAnimation28: TColorAnimation
AnimationType = InOut
Delay = 0.200000002980232200
Duration = 0.500000000000000000
PropertyName = 'TextSettings.FontColor'
StartValue = xFFD11149
StopValue = xFF0197F6
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object ShadowEffect46: TShadowEffect
Distance = 3.000000000000000000
Direction = 45.000000000000000000
Softness = 0.200000002980232200
Opacity = 0.600000023841857900
ShadowColor = claBlack
end
end
end
object Line11: TLine
LineType = Left
Position.X = 258.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line12: TLine
LineType = Left
Position.X = 128.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
object Line13: TLine
LineType = Left
Position.X = 386.000000000000000000
Position.Y = -6.000000000000000000
Size.Width = 9.000000000000000000
Size.Height = 137.000000000000000000
Size.PlatformDefault = False
end
end
end
end
object ListT: TTabControl
Align = Left
FullSize = True
Position.Y = 161.000000000000000000
Size.Width = 201.000000000000000000
Size.Height = 531.000000000000000000
Size.PlatformDefault = False
TabIndex = 0
TabOrder = 1
TabPosition = PlatformDefault
Sizes = (
201s
501s)
object Medical: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
StyledSettings = [Style, FontColor]
IsSelected = True
Size.Width = 199.000000000000000000
Size.Height = 30.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = 'Medical'
ExplicitSize.cx = 175.000000000000000000
ExplicitSize.cy = 26.000000000000000000
object Panel5: TPanel
Align = Client
Size.Width = 201.000000000000000000
Size.Height = 501.000000000000000000
Size.PlatformDefault = False
TabOrder = 3
object TreeView1: TTreeView
Align = Client
Size.Width = 201.000000000000000000
Size.Height = 501.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Viewport.Width = 197.000000000000000000
Viewport.Height = 497.000000000000000000
object T_Accueil: TTreeViewItem
Cursor = crHandPoint
StyledSettings = [Style]
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFFD7263D
IsChecked = False
IsExpanded = False
IsSelected = False
TabOrder = 0
Text = #61474' Page d'#39'accueil'
OnClick = T_AccueilClick
end
object T_Patient: TTreeViewItem
StyledSettings = [Style]
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFF0197F6
IsChecked = False
IsExpanded = False
IsSelected = False
TabOrder = 1
Text = #61981' Patient'
OnClick = T_PatientClick
object Patient_Recherche: TTreeViewItem
StyledSettings = [Style]
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFFB6006B
IsChecked = False
IsExpanded = False
IsSelected = False
TabOrder = 0
Text = #61442' Recherche patient'
OnClick = Patient_RechercheClick
end
object New_Patient: TTreeViewItem
StyledSettings = [Style]
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFF6DB425
IsChecked = False
IsExpanded = False
IsSelected = False
TabOrder = 1
Text = #61870' Nouveau patient'
OnClick = New_PatientClick
end
end
object T_RDV: TTreeViewItem
StyledSettings = [Style]
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFFD11149
IsChecked = False
IsExpanded = False
IsSelected = False
TabOrder = 2
Text = #62142' D'#233'connecter'
OnClick = T_RDVClick
end
end
end
end
end
object MainT: TTabControl
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 531.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'tabcontrolstyle'
TabIndex = 0
TabOrder = 2
TabPosition = PlatformDefault
OnDblClick = MainTDblClick
Sizes = (
1059s
503s
1059s
499s
1059s
499s
1059s
499s
1059s
499s)
object P_Accueil: TTabItem
CustomIcon.Height = 470
CustomIcon.Width = 1600
CustomIcon = <
item
FileName = 'C:\Users\Kacemo\Desktop\RGP\Assets\Blood-Drop-1600x470.jpg'
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFFD7263D
StyledSettings = [Style]
IsSelected = True
Size.Width = 141.000000000000000000
Size.Height = 28.000000000000000000
Size.PlatformDefault = False
StyleLookup = 'tabitemcustom'
TabOrder = 0
Text = #61474' Page d'#39'accueil'
OnClick = P_AccueilClick
OnResize = P_AccueilResize
ExplicitSize.cx = 141.000000000000000000
ExplicitSize.cy = 30.000000000000000000
object L_Left_P_Accueil: TLayout
Align = Left
Size.Width = 528.000000000000000000
Size.Height = 503.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object GrouBox1_Table: TGroupBox
Align = Top
StyledSettings = [Style, FontColor, Other]
Padding.Left = 10.000000000000000000
Padding.Top = 25.000000000000000000
Padding.Right = 10.000000000000000000
Padding.Bottom = 10.000000000000000000
Size.Width = 528.000000000000000000
Size.Height = 233.000000000000000000
Size.PlatformDefault = False
Text = 'Les 10 derni'#232'res homme ajouter'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 18.000000000000000000
TabOrder = 3
object StringGrid1: TStringGrid
Align = Client
CanFocus = True
ClipChildren = True
Size.Width = 508.000000000000000000
Size.Height = 198.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
RowCount = 10
Options = [ColumnResize, ColumnMove, ColLines, RowLines, RowSelect, AlwaysShowSelection, Tabs, Header, HeaderClick, AutoDisplacement]
Viewport.Width = 504.000000000000000000
Viewport.Height = 173.000000000000000000
end
object Label_Refresh1: TLabel
Anchors = [akTop, akRight]
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 494.000000000000000000
Position.Y = 26.000000000000000000
RotationAngle = 360.000000000000000000
Size.Width = 22.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 20.000000000000000000
TextSettings.FontColor = xFF1398B4
TextSettings.HorzAlign = Center
Text = #61473
TabOrder = 0
OnMouseDown = Label_Refresh1MouseDown
OnMouseUp = Label_Refresh1MouseUp
object ColorAnimation10: TColorAnimation
Duration = 0.500000000000000000
Interpolation = Back
PropertyName = 'TextSettings.FontColor'
StartValue = xFF1398B4
StopValue = xFF0FC46D
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object FloatAnimation1: TFloatAnimation
Duration = 0.500000000000000000
OnFinish = FloatAnimation1Finish
PropertyName = 'RotationAngle'
StartValue = 0.000000000000000000
StopValue = 360.000000000000000000
Trigger = 'IsChecked=true'
end
end
end
object GrouBox3_Table: TGroupBox
Align = Bottom
StyledSettings = [Style, FontColor, Other]
Padding.Left = 10.000000000000000000
Padding.Top = 25.000000000000000000
Padding.Right = 10.000000000000000000
Padding.Bottom = 10.000000000000000000
Position.Y = 270.000000000000000000
Size.Width = 528.000000000000000000
Size.Height = 233.000000000000000000
Size.PlatformDefault = False
Text = 'Les 10 derni'#232'res femmes ajouter'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 18.000000000000000000
TabOrder = 1
object StringGrid3: TStringGrid
Align = Client
CanFocus = True
ClipChildren = True
Size.Width = 508.000000000000000000
Size.Height = 198.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
RowCount = 10
Options = [ColumnResize, ColumnMove, ColLines, RowLines, RowSelect, AlwaysShowSelection, Tabs, Header, HeaderClick, AutoDisplacement]
Viewport.Width = 504.000000000000000000
Viewport.Height = 173.000000000000000000
end
object Label_Refresh3: TLabel
Anchors = [akTop, akRight]
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 494.000000000000000000
Position.Y = 26.000000000000000000
RotationAngle = 360.000000000000000000
Size.Width = 22.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 20.000000000000000000
TextSettings.FontColor = xFF1398B4
TextSettings.HorzAlign = Center
Text = #61473
TabOrder = 0
OnMouseDown = Label_Refresh3MouseDown
OnMouseUp = Label_Refresh3MouseUp
object ColorAnimation12: TColorAnimation
Duration = 0.500000000000000000
Interpolation = Back
PropertyName = 'TextSettings.FontColor'
StartValue = xFF1398B4
StopValue = xFF0FC46D
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object FloatAnimation3: TFloatAnimation
Duration = 0.500000000000000000
OnFinish = FloatAnimation3Finish
PropertyName = 'RotationAngle'
StartValue = 0.000000000000000000
StopValue = 360.000000000000000000
Trigger = 'IsChecked=true'
end
end
end
end
object L_Right_P_Accueil: TLayout
Align = Right
Position.X = 531.000000000000000000
Size.Width = 528.000000000000000000
Size.Height = 503.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object GrouBox2_Table: TGroupBox
Align = Top
StyledSettings = [Style, FontColor, Other]
Padding.Left = 10.000000000000000000
Padding.Top = 25.000000000000000000
Padding.Right = 10.000000000000000000
Padding.Bottom = 10.000000000000000000
Size.Width = 528.000000000000000000
Size.Height = 233.000000000000000000
Size.PlatformDefault = False
Text = 'Les 10 derni'#232'res groupage'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 18.000000000000000000
TabOrder = 1
object StringGrid2: TStringGrid
Align = Client
CanFocus = True
ClipChildren = True
Size.Width = 508.000000000000000000
Size.Height = 198.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
RowCount = 10
Options = [ColumnResize, ColumnMove, ColLines, RowLines, RowSelect, AlwaysShowSelection, Tabs, Header, HeaderClick, AutoDisplacement]
Viewport.Width = 504.000000000000000000
Viewport.Height = 173.000000000000000000
end
object Label_Refresh2: TLabel
Anchors = [akTop, akRight]
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 494.000000000000000000
Position.Y = 26.000000000000000000
RotationAngle = 360.000000000000000000
Size.Width = 22.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 20.000000000000000000
TextSettings.FontColor = xFF1398B4
TextSettings.HorzAlign = Center
Text = #61473
TabOrder = 0
OnMouseDown = Label_Refresh2MouseDown
OnMouseUp = Label_Refresh2MouseUp
object ColorAnimation11: TColorAnimation
Duration = 0.500000000000000000
Interpolation = Back
PropertyName = 'TextSettings.FontColor'
StartValue = xFF1398B4
StopValue = xFF0FC46D
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object FloatAnimation2: TFloatAnimation
Duration = 0.500000000000000000
OnFinish = FloatAnimation2Finish
PropertyName = 'RotationAngle'
StartValue = 0.000000000000000000
StopValue = 360.000000000000000000
Trigger = 'IsChecked=true'
end
end
end
object GrouBox4_Table: TGroupBox
Align = Bottom
StyledSettings = [Style, FontColor, Other]
Padding.Left = 10.000000000000000000
Padding.Top = 25.000000000000000000
Padding.Right = 10.000000000000000000
Padding.Bottom = 10.000000000000000000
Position.Y = 270.000000000000000000
Size.Width = 528.000000000000000000
Size.Height = 233.000000000000000000
Size.PlatformDefault = False
Text = 'Les 10 derni'#232'res patient ajouter'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 18.000000000000000000
TabOrder = 0
object StringGrid4: TStringGrid
Align = Client
CanFocus = True
ClipChildren = True
Size.Width = 508.000000000000000000
Size.Height = 198.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
RowCount = 10
Options = [ColumnResize, ColumnMove, ColLines, RowLines, RowSelect, AlwaysShowSelection, Tabs, Header, HeaderClick, AutoDisplacement]
Viewport.Width = 504.000000000000000000
Viewport.Height = 173.000000000000000000
end
object Label_Refresh4: TLabel
Anchors = [akTop, akRight]
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 494.000000000000000000
Position.Y = 26.000000000000000000
RotationAngle = 360.000000000000000000
Size.Width = 22.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 20.000000000000000000
TextSettings.FontColor = xFF1398B4
TextSettings.HorzAlign = Center
Text = #61473
TabOrder = 0
OnMouseDown = Label_Refresh4MouseDown
OnMouseUp = Label_Refresh4MouseUp
object ColorAnimation13: TColorAnimation
Duration = 0.500000000000000000
Interpolation = Back
PropertyName = 'TextSettings.FontColor'
StartValue = xFF1398B4
StopValue = xFF0FC46D
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object FloatAnimation4: TFloatAnimation
Duration = 0.500000000000000000
OnFinish = FloatAnimation4Finish
PropertyName = 'RotationAngle'
StartValue = 0.000000000000000000
StopValue = 360.000000000000000000
Trigger = 'IsChecked=true'
end
end
end
end
end
object Patient: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFF0197F6
StyledSettings = [Style]
IsSelected = False
Size.Width = 88.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61981' Patient'
Visible = False
OnClick = PatientClick
ExplicitSize.cx = 88.000000000000000000
ExplicitSize.cy = 30.000000000000000000
object StatusBar1: TStatusBar
Position.Y = 477.000000000000000000
ShowSizeGrip = True
Size.Width = 1059.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Status_Edit3: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 3
ReadOnly = True
TextSettings.Font.Family = 'Candara'
TextSettings.HorzAlign = Center
Position.X = 760.000000000000000000
Position.Y = -5.000000000000000000
HitTest = False
Size.Width = 100.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyledSettings = [Style, FontColor]
end
object Status_Edit2: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 4
ReadOnly = True
TextSettings.Font.Family = 'Candara'
TextSettings.HorzAlign = Center
Position.X = 464.000000000000000000
Position.Y = -5.000000000000000000
HitTest = False
Size.Width = 100.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyledSettings = [Style, FontColor]
end
object Status_Edit1: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
TabOrder = 5
ReadOnly = True
TextSettings.Font.Family = 'Candara'
TextSettings.HorzAlign = Center
Position.X = 168.000000000000000000
Position.Y = -5.000000000000000000
HitTest = False
Size.Width = 100.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyledSettings = [Style, FontColor]
end
object Label26: TLabel
Position.X = 8.000000000000000000
Position.Y = 3.000000000000000000
Size.Width = 137.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
Text = 'Nombre de Patient'
TabOrder = 0
end
object Label59: TLabel
Position.X = 592.000000000000000000
Position.Y = 3.000000000000000000
Size.Width = 145.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
Text = 'Nombre des Interns'
TabOrder = 1
end
object Label60: TLabel
Position.X = 296.000000000000000000
Position.Y = 3.000000000000000000
Size.Width = 153.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
Text = 'Nombre des Externs'
TabOrder = 2
end
end
object Refresh_Patient_Table: TLabel
Anchors = [akTop, akRight]
Cursor = crHandPoint
StyledSettings = [Style, FontColor]
Hint = 'Refresh'
HitTest = True
Position.X = 1030.000000000000000000
RotationAngle = 360.000000000000000000
Size.Width = 22.000000000000000000
Size.Height = 22.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 20.000000000000000000
TextSettings.FontColor = xFF1398B4
TextSettings.HorzAlign = Center
Text = #61473
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnMouseDown = Refresh_Patient_TableMouseDown
OnMouseUp = Refresh_Patient_TableMouseUp
object ColorAnimation14: TColorAnimation
Duration = 0.500000000000000000
Interpolation = Back
PropertyName = 'TextSettings.FontColor'
StartValue = xFF1398B4
StopValue = xFF0FC46D
Trigger = 'IsMouseOver=true'
TriggerInverse = 'IsMouseOver=false'
end
object FloatAnimation5: TFloatAnimation
Duration = 0.500000000000000000
OnFinish = FloatAnimation5Finish
PropertyName = 'RotationAngle'
StartValue = 0.000000000000000000
StopValue = 360.000000000000000000
Trigger = 'IsChecked=true'
end
end
object StringGrid5: TStringGrid
Align = Client
CanFocus = True
ClipChildren = True
Margins.Left = 5.000000000000000000
Margins.Top = 23.000000000000000000
Margins.Right = 5.000000000000000000
Size.Width = 1049.000000000000000000
Size.Height = 454.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
RowCount = 100000
Options = [ColumnResize, ColumnMove, ColLines, RowLines, RowSelect, AlwaysShowSelection, Tabs, Header, HeaderClick, AutoDisplacement]
OnCellClick = StringGrid5CellClick
OnCellDblClick = StringGrid5CellDblClick
Viewport.Width = 1045.000000000000000000
Viewport.Height = 429.000000000000000000
end
end
object Recherche_Patient: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFFB6006B
StyledSettings = [Style]
IsSelected = False
Size.Width = 167.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61442' Recherche patient'
Visible = False
OnClick = Recherche_PatientClick
ExplicitSize.cx = 167.000000000000000000
ExplicitSize.cy = 30.000000000000000000
object Layout1: TLayout
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 306.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object StringGrid6: TStringGrid
Align = Client
CanFocus = True
ClipChildren = True
Margins.Left = 5.000000000000000000
Margins.Top = 5.000000000000000000
Margins.Right = 5.000000000000000000
Margins.Bottom = 5.000000000000000000
Size.Width = 1049.000000000000000000
Size.Height = 296.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
OnCellClick = StringGrid6CellClick
OnCellDblClick = StringGrid6CellDblClick
Viewport.Width = 1045.000000000000000000
Viewport.Height = 271.000000000000000000
end
end
object Layout2: TLayout
Align = Top
Size.Width = 1059.000000000000000000
Size.Height = 193.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object GroupBox1: TGroupBox
Align = Top
StyledSettings = [Style, FontColor, Other]
Position.Y = 81.000000000000000000
Size.Width = 1059.000000000000000000
Size.Height = 112.000000000000000000
Size.PlatformDefault = False
Text = 'Param'#232'tre de Filtres '
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TabOrder = 0
object GroupBox2: TGroupBox
Align = Left
StyledSettings = [Style, FontColor, Other]
Margins.Left = 5.000000000000000000
Margins.Top = 20.000000000000000000
Margins.Right = 5.000000000000000000
Margins.Bottom = 5.000000000000000000
Position.X = 5.000000000000000000
Position.Y = 20.000000000000000000
Size.Width = 212.000000000000000000
Size.Height = 87.000000000000000000
Size.PlatformDefault = False
Text = 'Recherche par'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TabOrder = 0
object RB_Nom: TRadioButton
Anchors = [akLeft]
StyledSettings = [Size, Style, FontColor]
GroupName = 'Recherche'
IsChecked = True
Position.X = 16.000000000000000000
Position.Y = 40.000000000000000000
Size.Width = 73.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Text = 'Nom'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
OnChange = RB_NomChange
end
object RB_Prenom: TRadioButton
Anchors = [akRight]
StyledSettings = [Size, Style, FontColor]
GroupName = 'Recherche'
Margins.Top = 10.000000000000000000
Position.X = 107.000000000000000000
Position.Y = 40.000000000000000000
Size.Width = 89.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Text = 'Prenom'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
OnChange = RB_PrenomChange
end
end
object GroupBox3: TGroupBox
Align = Left
StyledSettings = [Style, FontColor, Other]
Margins.Left = 5.000000000000000000
Margins.Top = 20.000000000000000000
Margins.Right = 5.000000000000000000
Margins.Bottom = 5.000000000000000000
Position.X = 227.000000000000000000
Position.Y = 20.000000000000000000
Size.Width = 222.000000000000000000
Size.Height = 87.000000000000000000
Size.PlatformDefault = False
Text = 'Type'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TabOrder = 1
ParentShowHint = False
ShowHint = False
object RB_Interne: TRadioButton
Anchors = [akLeft]
StyledSettings = [Size, Style, FontColor]
GroupName = 'Type'
Position.X = 27.000000000000000000
Position.Y = 40.000000000000000000
Size.Width = 65.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
Text = 'Interne'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
OnChange = RB_InterneChange
end
object RB_Externe: TRadioButton
Anchors = [akRight]
StyledSettings = [Size, Style, FontColor]
GroupName = 'Type'
Position.X = 126.000000000000000000
Position.Y = 40.000000000000000000
Size.Width = 68.000000000000000000
Size.Height = 19.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
Text = 'Enterne'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
OnChange = RB_ExterneChange
end
end
object Label76: TLabel
Anchors = [akRight, akBottom]
Cursor = crHandPoint
StyledSettings = [Style]
HitTest = True
Position.X = 1033.000000000000000000
Position.Y = 90.000000000000000000
RotationAngle = 180.000000000000000000
Size.Width = 17.000000000000000000
Size.Height = 17.000000000000000000
Size.PlatformDefault = False
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 30.000000000000000000
TextSettings.FontColor = xFF0A2472
Text = #61655
TabOrder = 2
OnClick = Label76Click
end
object GroupBox4: TGroupBox
Align = Client
StyledSettings = [Style, FontColor, Other]
Margins.Left = 5.000000000000000000
Margins.Top = 20.000000000000000000
Margins.Right = 37.000000000000000000
Margins.Bottom = 5.000000000000000000
Size.Width = 563.000000000000000000
Size.Height = 87.000000000000000000
Size.PlatformDefault = False
Text = 'Autre'
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
TabOrder = 3
object Layout12: TLayout
Align = Left
Position.X = 374.000000000000000000
Size.Width = 187.000000000000000000
Size.Height = 87.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
object Edit2: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Anchors = [akLeft, akRight]
TabOrder = 0
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Position.X = 13.000000000000000000
Position.Y = 36.000000000000000000
Size.Width = 161.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TextPrompt = 'Groupage'
StyledSettings = [Style, FontColor]
OnChangeTracking = Edit2ChangeTracking
end
end
object Layout11: TLayout
Align = Left
Position.X = 187.000000000000000000
Size.Width = 187.000000000000000000
Size.Height = 87.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Edit_Search_Commune: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Anchors = [akLeft, akRight]
TabOrder = 1
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Position.X = 13.000000000000000000
Position.Y = 36.000000000000000000
Size.Width = 161.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TextPrompt = 'Commune'
StyledSettings = [Style, FontColor]
OnChangeTracking = Edit_Search_CommuneChangeTracking
end
end
object Layout10: TLayout
Align = Left
Size.Width = 187.000000000000000000
Size.Height = 87.000000000000000000
Size.PlatformDefault = False
TabOrder = 2
object Edit_Search_Wilaya: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Anchors = [akLeft, akRight]
TabOrder = 0
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Position.X = 16.000000000000000000
Position.Y = 36.000000000000000000
Size.Width = 161.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TextPrompt = 'Wilaya'
StyledSettings = [Style, FontColor]
OnChangeTracking = Edit_Search_WilayaChangeTracking
end
end
end
end
object Layout31: TLayout
Align = Top
Size.Width = 1059.000000000000000000
Size.Height = 81.000000000000000000
Size.PlatformDefault = False
TabOrder = 1
object Edit_Recherche: TEdit
Touch.InteractiveGestures = [LongTap, DoubleTap]
Anchors = [akLeft, akRight]
StyleLookup = 'searchedit'
TabOrder = 0
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
Position.X = 120.000000000000000000
Position.Y = 25.000000000000000000
Size.Width = 819.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
TextPrompt = 'Recherch'
StyledSettings = [Size, Style, FontColor]
OnChangeTracking = Edit_RechercheChangeTracking
end
end
end
end
object Nouveau_Patient: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFF6DB425
StyledSettings = [Style]
IsSelected = False
Size.Width = 155.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61870' Nouveau patient'
Visible = False
OnClick = Nouveau_PatientClick
OnResize = Nouveau_PatientResize
ExplicitSize.cx = 155.000000000000000000
ExplicitSize.cy = 30.000000000000000000
object TabControl_NouveauP: TTabControl
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 299.000000000000000000
Size.PlatformDefault = False
TabIndex = 0
TabOrder = 1
TabPosition = PlatformDefault
Sizes = (
1059s
270s
1059s
270s
1059s
270s
1059s
270s
1059s
270s)
object TabItem1: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF0B5351
StyledSettings = [Style]
IsSelected = True
Size.Width = 112.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61597' Information'
ExplicitSize.cx = 105.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_Information: TFrame2
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited GroupBox1: TGroupBox
Padding.Left = 5.000000000000000000
Padding.Right = 5.000000000000000000
Size.Width = 680.000000000000000000
Size.Height = 270.000000000000000000
TabOrder = 1
inherited L_Top_1: TLayout
Position.X = 5.000000000000000000
Size.Width = 670.000000000000000000
inherited AC_Edit1: TEdit
Size.Width = 548.000000000000000000
end
end
inherited L_Top_2: TLayout
Position.X = 5.000000000000000000
Size.Width = 670.000000000000000000
inherited L_Right_2: TLayout
Position.X = 331.000000000000000000
end
end
inherited L_Top_3: TLayout
Position.X = 5.000000000000000000
Size.Width = 670.000000000000000000
inherited L_Right_3: TLayout
Position.X = 331.000000000000000000
end
end
inherited L_Top_4: TLayout
Position.X = 5.000000000000000000
Size.Width = 670.000000000000000000
inherited L_Right_4: TLayout
Position.X = 331.000000000000000000
end
end
end
inherited GroupBox2: TGroupBox
Position.X = 680.000000000000000000
Size.Height = 270.000000000000000000
TabOrder = 0
end
end
end
object TabItem2: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF6F1A07
StyledSettings = [Style]
IsSelected = False
Size.Width = 125.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61681' Hemogramme'
ExplicitSize.cx = 124.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_Hemogramme: TFrame3
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited L_Top: TLayout
Size.Width = 1059.000000000000000000
inherited Label32: TLabel
StyledSettings = [Style, FontColor]
Position.X = 389.000000000000000000
Size.Width = 276.000000000000000000
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
end
end
inherited Layout_Frame3: TLayout
Size.Width = 1059.000000000000000000
Size.Height = 237.000000000000000000
inherited L_Left: TLayout
Size.Height = 237.000000000000000000
inherited Hemog_Edit4: TEdit
Position.Y = 195.537185668945300000
end
inherited Hemog_Label4: TLabel
Position.Y = 195.537185668945300000
end
inherited Hemog_Label3: TLabel
Position.Y = 134.818176269531200000
end
inherited Hemog_Edit3: TEdit
Position.Y = 134.818176269531200000
end
inherited Hemog_Edit2: TEdit
Position.Y = 74.099174499511720000
end
inherited Hemog_Label2: TLabel
Position.Y = 74.099174499511720000
end
inherited Hemog_Label1: TLabel
Position.Y = 14.359502792358400000
end
inherited Hemog_Edit1: TEdit
Position.Y = 14.359502792358400000
end
end
inherited L_Right: TLayout
Position.X = 531.000000000000000000
Size.Height = 237.000000000000000000
inherited Hemog_Edit6: TEdit
TabOrder = 0
Position.Y = 14.359502792358400000
end
inherited Hemog_Label6: TLabel
Position.Y = 74.099174499511720000
end
inherited Hemog_Edit5: TEdit
TabOrder = 1
Position.Y = 74.099174499511720000
end
inherited Hemog_Label5: TLabel
Position.Y = 14.359502792358400000
end
inherited Hemog_Label7: TLabel
Position.Y = 134.818176269531200000
end
inherited Hemog_Edit7: TEdit
Position.Y = 134.818176269531200000
end
inherited Hemog_Edit8: TEdit
Position.Y = 195.537185668945300000
end
inherited Hemog_Label8: TLabel
Position.Y = 195.537185668945300000
end
end
end
end
end
object TabItem3: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF9055A2
StyledSettings = [Style]
IsSelected = False
Size.Width = 134.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61982' Hemostase | VS'
ExplicitSize.cx = 131.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_Hemostase: TFrame4
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited Layout_Frame: TLayout
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
inherited GroupBox3: TGroupBox
Size.Height = 270.000000000000000000
inherited Hemos_Edit1: TEdit
Position.Y = 32.109085083007810000
end
inherited Hemos_Edit2: TEdit
Position.Y = 120.472717285156300000
end
inherited Hemos_Edit3: TEdit
Position.Y = 208.836349487304700000
end
inherited Hemos_Label3: TLabel
Position.Y = 208.836349487304700000
end
inherited Hemos_Label2: TLabel
Position.Y = 120.472717285156300000
end
inherited Hemos_Label1: TLabel
Position.Y = 29.163635253906250000
end
end
inherited GroupBox4: TGroupBox
Position.X = 529.000000000000000000
Size.Height = 270.000000000000000000
inherited GroupBox5: TGroupBox
Size.Height = 165.000000000000000000
inherited Memo1: TMemo
Size.Height = 130.000000000000000000
Viewport.Width = 510.000000000000000000
Viewport.Height = 130.000000000000000000
end
end
end
end
end
end
object TabItem4: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF3D2B3D
StyledSettings = [Style]
IsSelected = False
Size.Width = 165.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61635' Analyse Biochimique'
ExplicitSize.cx = 168.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_Biochimic: TFrame6
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited Layout0: TLayout
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
inherited Layout1: TLayout
Margins.Top = 5.000000000000000000
Position.X = 531.000000000000000000
Position.Y = 5.000000000000000000
Size.Height = 265.000000000000000000
TabOrder = 3
inherited Bio_Edit11: TEdit
Position.Y = 14.836364746093750000
end
inherited Label2: TLabel
Position.Y = 14.836364746093750000
end
inherited Bio_Edit12: TEdit
TabOrder = 1
Position.Y = 66.872734069824220000
end
inherited Label4: TLabel
Position.Y = 66.872734069824220000
end
inherited Bio_Edit13: TEdit
TabOrder = 2
Position.Y = 118.909088134765600000
end
inherited Label6: TLabel
Position.Y = 118.909088134765600000
end
inherited Bio_Edit14: TEdit
TabOrder = 3
Position.Y = 170.945465087890600000
end
inherited Label8: TLabel
Position.Y = 170.945465087890600000
TextSettings.Font.Family = '16'
end
inherited Bio_Edit15: TEdit
TabOrder = 4
Position.Y = 222.981826782226600000
end
inherited Label10: TLabel
Position.Y = 222.981826782226600000
TabOrder = 6
end
inherited Label51: TLabel
Position.Y = 14.836364746093750000
end
inherited Label52: TLabel
Position.Y = 66.872734069824220000
end
inherited Label53: TLabel
Position.Y = 118.909088134765600000
end
inherited Label54: TLabel
Position.Y = 170.945465087890600000
TabOrder = 7
end
inherited Label55: TLabel
Position.Y = 222.981826782226600000
TabOrder = 5
end
end
inherited Layout2: TLayout
Margins.Top = 5.000000000000000000
Position.X = 795.000000000000000000
Position.Y = 5.000000000000000000
Size.Height = 265.000000000000000000
TabOrder = 2
inherited Bio_Edit16: TEdit
Position.Y = 14.836364746093750000
end
inherited Label12: TLabel
Position.Y = 14.836364746093750000
end
inherited Bio_Edit17: TEdit
TabOrder = 1
Position.Y = 66.872734069824220000
end
inherited Label14: TLabel
Position.Y = 66.872734069824220000
TextSettings.Font.Family = '16'
end
inherited Bio_Edit18: TEdit
TabOrder = 2
Position.Y = 118.909088134765600000
end
inherited Label16: TLabel
Position.Y = 118.909088134765600000
end
inherited Bio_Edit19: TEdit
TabOrder = 3
Position.Y = 170.945465087890600000
end
inherited Label18: TLabel
Position.Y = 170.945465087890600000
TabOrder = 5
end
inherited Label56: TLabel
Position.Y = 14.836364746093750000
end
inherited Label57: TLabel
Position.Y = 66.872734069824220000
end
inherited Label58: TLabel
Position.Y = 118.909088134765600000
end
inherited Label59: TLabel
Position.Y = 170.945465087890600000
TabOrder = 4
end
end
inherited Layout3: TLayout
Margins.Top = 5.000000000000000000
Position.Y = 5.000000000000000000
Size.Height = 265.000000000000000000
TabOrder = 0
inherited Bio_Edit1: TEdit
Position.Y = 14.836364746093750000
end
inherited Label22: TLabel
Position.Y = 14.836364746093750000
end
inherited Bio_Edit2: TEdit
TabOrder = 1
Position.Y = 66.872734069824220000
end
inherited Label24: TLabel
Position.Y = 66.872734069824220000
end
inherited Bio_Edit3: TEdit
TabOrder = 2
Position.Y = 118.909088134765600000
end
inherited Label26: TLabel
Position.Y = 118.909088134765600000
end
inherited Bio_Edit4: TEdit
TabOrder = 3
Position.Y = 170.945465087890600000
end
inherited Label28: TLabel
Position.Y = 170.945465087890600000
end
inherited Bio_Edit5: TEdit
TabOrder = 4
Position.Y = 222.981826782226600000
end
inherited Label30: TLabel
Position.Y = 222.981826782226600000
TabOrder = 6
end
inherited Label41: TLabel
Position.Y = 14.836364746093750000
end
inherited Label42: TLabel
Position.Y = 66.872734069824220000
end
inherited Label43: TLabel
Position.Y = 118.909088134765600000
end
inherited Label44: TLabel
Position.Y = 170.945465087890600000
TabOrder = 7
end
inherited Label45: TLabel
Position.Y = 222.981826782226600000
TabOrder = 5
end
end
inherited Layout4: TLayout
Margins.Top = 5.000000000000000000
Position.Y = 5.000000000000000000
Size.Height = 265.000000000000000000
TabOrder = 1
inherited Bio_Edit6: TEdit
Position.Y = 14.836364746093750000
end
inherited Label32: TLabel
Position.Y = 14.836364746093750000
end
inherited Bio_Edit7: TEdit
TabOrder = 1
Position.Y = 66.872734069824220000
end
inherited Label34: TLabel
Position.Y = 66.872734069824220000
end
inherited Bio_Edit8: TEdit
TabOrder = 2
Position.Y = 118.909088134765600000
end
inherited Label36: TLabel
Position.Y = 118.909088134765600000
end
inherited Bio_Edit9: TEdit
TabOrder = 3
Position.Y = 170.945465087890600000
end
inherited Label38: TLabel
Position.Y = 170.945465087890600000
end
inherited Bio_Edit10: TEdit
TabOrder = 4
Position.Y = 222.981826782226600000
end
inherited Label40: TLabel
Position.Y = 222.981826782226600000
TabOrder = 6
end
inherited Label46: TLabel
Position.Y = 14.836364746093750000
end
inherited Label47: TLabel
Position.Y = 66.872734069824220000
end
inherited Label48: TLabel
Position.Y = 118.909088134765600000
end
inherited Label49: TLabel
Position.Y = 170.945465087890600000
TabOrder = 7
end
inherited Label50: TLabel
Position.Y = 222.981826782226600000
TabOrder = 5
end
end
end
end
end
object TabItem5: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF83781B
StyledSettings = [Style]
IsSelected = False
Size.Width = 95.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61506' Serologie'
ExplicitSize.cx = 89.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_Serologie: TFrame5
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited TabControl1: TTabControl
Size.Width = 1059.000000000000000000
Size.Height = 260.000000000000000000
Sizes = (
1059s
234s
1059s
234s)
inherited TabItem8: TTabItem
Size.Width = 109.000000000000000000
Size.Height = 26.000000000000000000
ExplicitSize.cx = 140.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inherited GroupBox6: TGroupBox
Size.Height = 234.000000000000000000
inherited RB_HA_IgM: TRadioButton
Position.Y = 160.918380737304700000
Size.Height = 22.000000000000000000
end
inherited RB_HA_IgG: TRadioButton
Position.Y = 160.918380737304700000
Size.Height = 22.000000000000000000
end
inherited CB_HA_Anit_VHA: TCheckBox
Position.X = 100.000000000000000000
Size.Width = 97.000000000000000000
end
end
inherited GroupBox7: TGroupBox
Size.Height = 234.000000000000000000
inherited CB_HB_Anti_VHB: TCheckBox
Position.Y = 66.311218261718750000
Size.Width = 100.000000000000000000
end
inherited CB_HB_Antigene_BHs: TCheckBox
Position.Y = 181.324188232421900000
Size.Height = 22.000000000000000000
end
end
inherited GroupBox8: TGroupBox
Size.Height = 234.000000000000000000
inherited CB_HC_Anti_VHC: TCheckBox
Position.X = 64.000000000000000000
Position.Y = 108.096931457519500000
Size.Width = 96.000000000000000000
end
end
inherited GroupBox9: TGroupBox
Size.Height = 234.000000000000000000
inherited CB_VIH_Anti_VIH: TCheckBox
Position.X = 108.000000000000000000
Position.Y = 108.096931457519500000
Size.Width = 97.000000000000000000
end
end
end
inherited TabItem9: TTabItem
Size.Width = 214.000000000000000000
Size.Height = 26.000000000000000000
ExplicitSize.cx = 279.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inherited GroupBox16: TGroupBox
Size.Width = 784.000000000000000000
Size.Height = 234.000000000000000000
inherited GroupBox10: TGroupBox
Size.Width = 301.000000000000000000
Size.Height = 194.000000000000000000
inherited CB_MI_Anti_EBV: TCheckBox
Position.X = 169.184570312500000000
Position.Y = 49.910247802734370000
Size.Width = 100.000000000000000000
end
inherited CB_MI_VCA: TCheckBox
Position.X = 34.830535888671870000
Position.Y = 49.935897827148440000
Size.Width = 97.000000000000000000
Size.Height = 22.000000000000000000
end
inherited CB_MI_EBNA: TCheckBox
Position.X = 34.870803833007810000
Position.Y = 145.692306518554700000
Size.Width = 105.000000000000000000
Size.Height = 22.000000000000000000
end
inherited CB_MI_EA: TCheckBox
Position.X = 169.104034423828100000
Position.Y = 145.692306518554700000
Size.Width = 84.000000000000000000
Size.Height = 22.000000000000000000
end
end
inherited GroupBox13: TGroupBox
Size.Height = 194.000000000000000000
inherited CB_RUB_IgM: TCheckBox
Position.X = 45.000000000000000000
Position.Y = 42.474357604980470000
Size.Width = 165.000000000000000000
Size.Height = 22.000000000000000000
end
inherited CB_RUB_IgA: TCheckBox
Position.X = 45.000000000000000000
Position.Y = 97.192314147949220000
Size.Width = 165.000000000000000000
Size.Height = 22.000000000000000000
end
inherited CB_RUB_IgG: TCheckBox
Position.X = 45.000000000000000000
Position.Y = 151.910263061523400000
Size.Width = 165.000000000000000000
Size.Height = 22.000000000000000000
end
end
inherited GroupBox11: TGroupBox
Size.Height = 194.000000000000000000
inherited CB_SFT_Anti_O: TCheckBox
Position.X = 63.000000000000000000
Position.Y = 48.666656494140630000
Size.Width = 83.000000000000000000
end
inherited CB_SFT_Anti_H: TCheckBox
Position.X = 63.000000000000000000
Position.Y = 133.230758666992200000
Size.Width = 83.000000000000000000
end
end
end
inherited GroupBox17: TGroupBox
Position.X = 784.000000000000000000
Size.Height = 234.000000000000000000
inherited GroupBox15: TGroupBox
Size.Height = 194.000000000000000000
inherited CB_Toxo_Anti_IgM: TCheckBox
Position.X = 80.000000000000000000
Position.Y = 86.000000000000000000
Size.Width = 96.000000000000000000
Size.Height = 22.000000000000000000
end
end
end
end
end
end
end
end
inline Frame_Principale: TFrame1
Align = Top
Size.Width = 1059.000000000000000000
Size.Height = 200.000000000000000000
Size.PlatformDefault = False
TabOrder = 0
inherited GroupBox_Info: TGroupBox
Size.Width = 768.000000000000000000
Size.Height = 200.000000000000000000
inherited Layout_Top_1: TLayout
Size.Width = 758.000000000000000000
inherited Layout_Right1: TLayout
Position.X = 455.000000000000000000
inherited IP_ComboBox2: TComboBox
Position.Y = 3.710144042968750000
end
end
inherited Layout_Left_1: TLayout
inherited IP_Label4: TLabel
Position.Y = 4.000000000000000000
Size.Width = 63.000000000000000000
end
inherited IP_ComboBox1: TComboBox
Position.Y = 4.000000000000000000
end
end
end
inherited Layout_Top_3: TLayout
Size.Width = 758.000000000000000000
inherited Layout_Right3: TLayout
Position.X = 455.000000000000000000
inherited IP_Label7: TLabel
Size.Width = 79.000000000000000000
end
end
end
inherited Layout_Top_4: TLayout
Size.Width = 758.000000000000000000
inherited Layout_Right4: TLayout
Position.X = 455.000000000000000000
inherited IP_Label6: TLabel
Position.Y = 4.000000000000000000
Size.Width = 79.000000000000000000
end
end
inherited Layout_Left_4: TLayout
inherited IP_Label2: TLabel
Position.Y = 4.000000000000000000
Size.Width = 47.000000000000000000
end
end
end
inherited Layout_Top_2: TLayout
Size.Width = 758.000000000000000000
inherited Layout_Right2: TLayout
Position.X = 455.000000000000000000
end
inherited Layout_Left_2: TLayout
inherited IP_Edit1: TEdit
Position.Y = 4.289855957031250000
Visible = False
end
end
end
end
inherited GroupBox_Liens: TGroupBox
Position.X = 768.000000000000000000
Size.Height = 200.000000000000000000
inherited Button1: TButton
Position.Y = 32.000000000000000000
OnClick = Frame_PrincipaleButton1Click
end
inherited Button2: TButton
Position.Y = 136.000000000000000000
OnClick = Frame_PrincipaleButton2Click
end
inherited Button3: TButton
TabOrder = 3
Visible = False
end
end
end
end
object Edit_Patient: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 16.000000000000000000
TextSettings.FontColor = xFFF46063
StyledSettings = [Style]
IsSelected = False
Size.Width = 114.000000000000000000
Size.Height = 32.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61827' Edit Patient'
Visible = False
OnResize = Edit_PatientResize
ExplicitSize.cx = 114.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_EP_Principale: TFrame1
Align = Top
Size.Width = 1059.000000000000000000
Size.Height = 200.000000000000000000
Size.PlatformDefault = False
inherited GroupBox_Info: TGroupBox
Size.Width = 768.000000000000000000
Size.Height = 200.000000000000000000
inherited Layout_Top_1: TLayout
Size.Width = 758.000000000000000000
inherited Layout_Right1: TLayout
Position.X = 455.000000000000000000
end
inherited Layout_Left_1: TLayout
inherited IP_Label4: TLabel
Position.Y = 4.000000000000000000
Size.Width = 63.000000000000000000
end
end
end
inherited Layout_Top_3: TLayout
Size.Width = 758.000000000000000000
inherited Layout_Right3: TLayout
Position.X = 455.000000000000000000
end
end
inherited Layout_Top_4: TLayout
Size.Width = 758.000000000000000000
inherited Layout_Right4: TLayout
Position.X = 455.000000000000000000
inherited IP_Label6: TLabel
Position.Y = 4.000000000000000000
Size.Width = 71.000000000000000000
end
end
inherited Layout_Left_4: TLayout
inherited IP_Label2: TLabel
Position.Y = 4.000000000000000000
Size.Width = 55.000000000000000000
end
end
end
inherited Layout_Top_2: TLayout
Size.Width = 758.000000000000000000
inherited Layout_Right2: TLayout
Position.X = 455.000000000000000000
end
end
end
inherited GroupBox_Liens: TGroupBox
Position.X = 768.000000000000000000
Size.Height = 200.000000000000000000
inherited Button1: TButton
Position.Y = 31.000000000000000000
Text = 'Enregistrer'
OnClick = Frame_EP_PrincipaleButton1Click
end
inherited Button2: TButton
Position.Y = 135.000000000000000000
OnClick = Frame_EP_PrincipaleButton2Click
end
inherited Button3: TButton
TabOrder = 3
OnClick = Frame_EP_PrincipaleButton3Click
end
end
end
object TabControl1: TTabControl
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 299.000000000000000000
Size.PlatformDefault = False
TabIndex = 4
TabOrder = 1
TabPosition = PlatformDefault
Sizes = (
1059s
270s
1059s
270s
1059s
270s
1059s
270s
1059s
270s)
object TabItem8: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF0B5351
StyledSettings = [Style]
IsSelected = False
Size.Width = 112.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61597' Information'
ExplicitSize.cx = 105.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_EP_Information: TFrame2
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited GroupBox1: TGroupBox
Size.Width = 680.000000000000000000
Size.Height = 270.000000000000000000
inherited L_Top_1: TLayout
Size.Width = 680.000000000000000000
inherited AC_Edit1: TEdit
Size.Width = 558.000000000000000000
end
end
inherited L_Top_2: TLayout
Size.Width = 680.000000000000000000
inherited L_Right_2: TLayout
Position.X = 341.000000000000000000
end
end
inherited L_Top_3: TLayout
Size.Width = 680.000000000000000000
inherited L_Right_3: TLayout
Position.X = 341.000000000000000000
end
end
inherited L_Top_4: TLayout
Size.Width = 680.000000000000000000
inherited L_Right_4: TLayout
Position.X = 341.000000000000000000
end
end
end
inherited GroupBox2: TGroupBox
Position.X = 680.000000000000000000
Size.Height = 270.000000000000000000
end
end
end
object TabItem9: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF6F1A07
StyledSettings = [Style]
IsSelected = False
Size.Width = 125.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61681' Hemogramme'
ExplicitSize.cx = 124.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_EP_Hemogramme: TFrame3
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited L_Top: TLayout
Size.Width = 1059.000000000000000000
inherited Label32: TLabel
StyledSettings = [Style, FontColor]
Position.X = 392.000000000000000000
Size.Width = 276.000000000000000000
TextSettings.Font.Family = 'Candara'
TextSettings.Font.Size = 16.000000000000000000
end
end
inherited Layout_Frame3: TLayout
Size.Width = 1059.000000000000000000
Size.Height = 237.000000000000000000
inherited L_Left: TLayout
Size.Height = 237.000000000000000000
inherited Hemog_Edit4: TEdit
TabOrder = 3
Position.Y = 195.537185668945300000
end
inherited Hemog_Label4: TLabel
Position.Y = 195.537185668945300000
TabOrder = 4
end
inherited Hemog_Label3: TLabel
Position.Y = 134.818176269531200000
TabOrder = 5
end
inherited Hemog_Edit3: TEdit
TabOrder = 2
Position.Y = 134.818176269531200000
end
inherited Hemog_Edit2: TEdit
TabOrder = 1
Position.Y = 74.099174499511720000
end
inherited Hemog_Label2: TLabel
Position.Y = 74.099174499511720000
TabOrder = 23
end
inherited Hemog_Label1: TLabel
Position.Y = 14.359502792358400000
TabOrder = 25
end
inherited Hemog_Edit1: TEdit
Position.Y = 14.359502792358400000
end
end
inherited L_Right: TLayout
Position.X = 531.000000000000000000
Size.Height = 237.000000000000000000
inherited Hemog_Edit6: TEdit
TabOrder = 0
Position.Y = 14.359502792358400000
end
inherited Hemog_Label6: TLabel
Position.Y = 74.099174499511720000
end
inherited Hemog_Edit5: TEdit
TabOrder = 1
Position.Y = 74.099174499511720000
end
inherited Hemog_Label5: TLabel
Position.Y = 14.359502792358400000
end
inherited Hemog_Label7: TLabel
Position.Y = 134.818176269531200000
end
inherited Hemog_Edit7: TEdit
Position.Y = 134.818176269531200000
end
inherited Hemog_Edit8: TEdit
Position.Y = 195.537185668945300000
end
inherited Hemog_Label8: TLabel
Position.Y = 195.537185668945300000
end
end
end
end
end
object TabItem10: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF9055A2
StyledSettings = [Style]
IsSelected = False
Size.Width = 134.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61982' Hemostase | VS'
ExplicitSize.cx = 131.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_EP_Hemostase: TFrame4
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited Layout_Frame: TLayout
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
inherited GroupBox3: TGroupBox
Size.Height = 270.000000000000000000
inherited Hemos_Edit1: TEdit
Position.Y = 32.109100341796880000
end
inherited Hemos_Edit2: TEdit
Position.Y = 120.472717285156300000
end
inherited Hemos_Edit3: TEdit
Position.Y = 208.836364746093800000
end
inherited Hemos_Label3: TLabel
Position.Y = 208.836364746093800000
end
inherited Hemos_Label2: TLabel
Position.Y = 120.472717285156300000
end
inherited Hemos_Label1: TLabel
Position.Y = 29.163635253906250000
end
end
inherited GroupBox4: TGroupBox
Position.X = 529.000000000000000000
Size.Height = 270.000000000000000000
inherited GroupBox5: TGroupBox
Size.Height = 165.000000000000000000
inherited Memo1: TMemo
Size.Height = 130.000000000000000000
Viewport.Width = 510.000000000000000000
Viewport.Height = 130.000000000000000000
end
end
end
end
end
end
object TabItem11: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF3D2B3D
StyledSettings = [Style]
IsSelected = False
Size.Width = 165.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61635' Analyse Biochimique'
ExplicitSize.cx = 168.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_EP_Biochimic: TFrame6
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited Layout0: TLayout
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
inherited Layout1: TLayout
Position.X = 531.000000000000000000
Size.Height = 270.000000000000000000
TabOrder = 3
inherited Bio_Edit11: TEdit
Position.Y = 15.418182373046880000
end
inherited Label2: TLabel
Position.Y = 15.418182373046880000
end
inherited Bio_Edit12: TEdit
Position.Y = 68.436363220214850000
end
inherited Label4: TLabel
Position.Y = 68.436363220214850000
end
inherited Bio_Edit13: TEdit
Position.Y = 121.454544067382800000
end
inherited Label6: TLabel
Position.Y = 121.454544067382800000
end
inherited Bio_Edit14: TEdit
Position.Y = 174.472717285156300000
end
inherited Label8: TLabel
Position.Y = 174.472717285156300000
end
inherited Bio_Edit15: TEdit
Position.Y = 227.490905761718800000
end
inherited Label10: TLabel
Position.Y = 227.490905761718800000
end
inherited Label51: TLabel
Position.Y = 15.418182373046880000
end
inherited Label52: TLabel
Position.Y = 68.436363220214850000
end
inherited Label53: TLabel
Position.Y = 121.454544067382800000
end
inherited Label54: TLabel
Position.Y = 174.472717285156300000
end
inherited Label55: TLabel
Position.Y = 227.490905761718800000
end
end
inherited Layout2: TLayout
Position.X = 795.000000000000000000
Size.Height = 270.000000000000000000
TabOrder = 2
inherited Bio_Edit16: TEdit
Position.Y = 15.418182373046880000
end
inherited Label12: TLabel
Position.Y = 15.418182373046880000
end
inherited Bio_Edit17: TEdit
Position.Y = 68.436363220214850000
end
inherited Label14: TLabel
Position.Y = 68.436363220214850000
end
inherited Bio_Edit18: TEdit
Position.Y = 121.454544067382800000
end
inherited Label16: TLabel
Position.Y = 121.454544067382800000
end
inherited Bio_Edit19: TEdit
Position.Y = 174.472717285156300000
end
inherited Label18: TLabel
Position.Y = 174.472717285156300000
end
inherited Label56: TLabel
Position.Y = 15.418182373046880000
end
inherited Label57: TLabel
Position.Y = 68.436363220214850000
end
inherited Label58: TLabel
Position.Y = 121.454544067382800000
end
inherited Label59: TLabel
Position.Y = 174.472717285156300000
end
end
inherited Layout3: TLayout
Size.Height = 270.000000000000000000
TabOrder = 0
inherited Bio_Edit1: TEdit
Position.Y = 15.418182373046880000
end
inherited Label22: TLabel
Position.Y = 15.418182373046880000
end
inherited Bio_Edit2: TEdit
Position.Y = 68.436363220214850000
end
inherited Label24: TLabel
Position.Y = 68.436363220214850000
end
inherited Bio_Edit3: TEdit
Position.Y = 121.454544067382800000
end
inherited Label26: TLabel
Position.Y = 121.454544067382800000
end
inherited Bio_Edit4: TEdit
Position.Y = 174.472717285156300000
end
inherited Label28: TLabel
Position.Y = 174.472717285156300000
end
inherited Bio_Edit5: TEdit
Position.Y = 227.490905761718800000
end
inherited Label30: TLabel
Position.Y = 227.490905761718800000
end
inherited Label41: TLabel
Position.Y = 15.418182373046880000
end
inherited Label42: TLabel
Position.Y = 68.436363220214850000
end
inherited Label43: TLabel
Position.Y = 121.454544067382800000
end
inherited Label44: TLabel
Position.Y = 174.472717285156300000
end
inherited Label45: TLabel
Position.Y = 227.490905761718800000
end
end
inherited Layout4: TLayout
Size.Height = 270.000000000000000000
TabOrder = 1
inherited Bio_Edit6: TEdit
Position.Y = 15.418182373046880000
end
inherited Label32: TLabel
Position.Y = 15.418182373046880000
end
inherited Bio_Edit7: TEdit
Position.Y = 68.436363220214850000
end
inherited Label34: TLabel
Position.Y = 68.436363220214850000
end
inherited Bio_Edit8: TEdit
Position.Y = 121.454544067382800000
end
inherited Label36: TLabel
Position.Y = 121.454544067382800000
end
inherited Bio_Edit9: TEdit
Position.Y = 174.472717285156300000
end
inherited Label38: TLabel
Position.Y = 174.472717285156300000
end
inherited Bio_Edit10: TEdit
Position.Y = 227.490905761718800000
end
inherited Label40: TLabel
Position.Y = 227.490905761718800000
end
inherited Label46: TLabel
Position.Y = 15.418182373046880000
end
inherited Label47: TLabel
Position.Y = 68.436363220214850000
end
inherited Label48: TLabel
Position.Y = 121.454544067382800000
end
inherited Label49: TLabel
Position.Y = 174.472717285156300000
end
inherited Label50: TLabel
Position.Y = 227.490905761718800000
end
end
end
end
end
object TabItem12: TTabItem
CustomIcon = <
item
end>
TextSettings.Font.Family = 'FontAwesome'
TextSettings.Font.Size = 14.000000000000000000
TextSettings.FontColor = xFF83781B
StyledSettings = [Style]
IsSelected = True
Size.Width = 95.000000000000000000
Size.Height = 29.000000000000000000
Size.PlatformDefault = False
StyleLookup = ''
TabOrder = 0
Text = #61506' Serologie'
ExplicitSize.cx = 89.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inline Frame_EP_Serologie: TFrame5
Align = Client
Size.Width = 1059.000000000000000000
Size.Height = 270.000000000000000000
Size.PlatformDefault = False
inherited TabControl1: TTabControl
Size.Width = 1059.000000000000000000
Size.Height = 260.000000000000000000
Sizes = (
1059s
234s
1059s
234s)
inherited TabItem8: TTabItem
Size.Width = 109.000000000000000000
Size.Height = 26.000000000000000000
ExplicitSize.cx = 140.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inherited GroupBox6: TGroupBox
Size.Height = 234.000000000000000000
inherited RB_HA_IgM: TRadioButton
Position.Y = 144.652709960937500000
end
inherited RB_HA_IgG: TRadioButton
Position.Y = 144.652709960937500000
end
inherited CB_HA_Anit_VHA: TCheckBox
Size.Width = 81.000000000000000000
end
end
inherited GroupBox7: TGroupBox
Size.Height = 234.000000000000000000
inherited CB_HB_Anti_VHB: TCheckBox
Position.Y = 61.483253479003900000
end
inherited CB_HB_Antigene_BHs: TCheckBox
Position.Y = 147.589950561523400000
end
end
inherited GroupBox8: TGroupBox
Size.Height = 234.000000000000000000
inherited CB_HC_Anti_VHC: TCheckBox
Position.Y = 107.500000000000000000
end
end
inherited GroupBox9: TGroupBox
Size.Height = 234.000000000000000000
inherited CB_VIH_Anti_VIH: TCheckBox
Position.Y = 107.500000000000000000
end
end
end
inherited TabItem9: TTabItem
Size.Width = 214.000000000000000000
Size.Height = 26.000000000000000000
ExplicitSize.cx = 279.000000000000000000
ExplicitSize.cy = 30.000000000000000000
inherited GroupBox16: TGroupBox
Size.Width = 784.000000000000000000
Size.Height = 234.000000000000000000
inherited GroupBox10: TGroupBox
Size.Width = 301.000000000000000000
Size.Height = 194.000000000000000000
inherited CB_MI_Anti_EBV: TCheckBox
Position.X = 181.000000000000000000
Position.Y = 26.894470214843750000
end
inherited CB_MI_VCA: TCheckBox
Position.X = 48.000000000000000000
Position.Y = 136.080398559570300000
end
inherited CB_MI_EBNA: TCheckBox
Position.X = 40.000000000000000000
Position.Y = 26.894470214843750000
end
inherited CB_MI_EA: TCheckBox
Position.X = 181.000000000000000000
Position.Y = 136.080398559570300000
end
end
inherited GroupBox13: TGroupBox
Size.Height = 194.000000000000000000
inherited CB_RUB_IgM: TCheckBox
Position.Y = 22.994976043701170000
end
inherited CB_RUB_IgA: TCheckBox
Position.Y = 81.487434387207030000
end
inherited CB_RUB_IgG: TCheckBox
Position.Y = 139.979888916015600000
end
end
inherited GroupBox11: TGroupBox
Size.Height = 194.000000000000000000
inherited CB_SFT_Anti_O: TCheckBox
Position.Y = 48.341705322265630000
end
inherited CB_SFT_Anti_H: TCheckBox
Position.Y = 113.658294677734400000
end
end
end
inherited GroupBox17: TGroupBox
Position.X = 784.000000000000000000
Size.Height = 234.000000000000000000
inherited GroupBox15: TGroupBox
Size.Height = 194.000000000000000000
inherited CB_Toxo_Anti_IgM: TCheckBox
Position.Y = 81.487434387207030000
end
end
end
end
end
end
end
end
end
end
end
object BindSourceDB1: TBindSourceDB
DataSet = DataModule1.FDQ_Groupage
ScopeMappings = <>
Left = 1184
Top = 8
end
object BindingsList1: TBindingsList
Methods = <>
OutputConverters = <>
Left = 1124
Top = 77
object LinkGridToDataSourceBindSourceDB1: TLinkGridToDataSource
Category = 'Quick Bindings'
DataSource = BindSourceDB1
GridControl = StringGrid2
Columns = <>
end
object LinkGridToDataSourceBindSourceDB2: TLinkGridToDataSource
Category = 'Quick Bindings'
DataSource = BindSourceDB2
GridControl = StringGrid4
Columns = <>
end
object LinkGridToDataSourceBindSourceDB3: TLinkGridToDataSource
Category = 'Quick Bindings'
DataSource = BindSourceDB3
GridControl = StringGrid5
Columns = <>
end
object LinkGridToDataSourceBindSourceDB4: TLinkGridToDataSource
Category = 'Quick Bindings'
DataSource = BindSourceDB4
GridControl = StringGrid6
Columns = <>
end
object LinkGridToDataSourceBindSourceDB5: TLinkGridToDataSource
Category = 'Quick Bindings'
DataSource = BindSourceDB5
GridControl = StringGrid1
Columns = <>
end
object LinkGridToDataSourceBindSourceDB6: TLinkGridToDataSource
Category = 'Quick Bindings'
DataSource = BindSourceDB6
GridControl = StringGrid3
Columns = <>
end
end
object BindSourceDB2: TBindSourceDB
DataSet = DataModule1.FDQ_Patient
ScopeMappings = <>
Left = 1192
Top = 104
end
object BindSourceDB3: TBindSourceDB
DataSet = DataModule1.FDQ_Patient_Table
ScopeMappings = <>
Left = 1144
Top = 56
end
object BindSourceDB4: TBindSourceDB
DataSet = DataModule1.FDQ_Recherche
ScopeMappings = <>
Left = 1072
Top = 24
end
object BindSourceDB5: TBindSourceDB
DataSet = DataModule1.FDQ_Homme
ScopeMappings = <>
Left = 1048
Top = 24
end
object BindSourceDB6: TBindSourceDB
DataSet = DataModule1.FDQ_Femme
ScopeMappings = <>
Left = 1136
Top = 96
end
object FDGUIxWaitCursor1: TFDGUIxWaitCursor
Provider = 'FMX'
Left = 1152
Top = 48
end
end
此处可能存在不合适展示的内容，页面不予展示。您可通过相关编辑功能自查并修改。
如您确认内容无涉及 不当用语 / 纯广告导流 / 暴力 / 低俗色情 / 侵权 / 盗版 / 虚假 / 无价值内容或违法国家有关法律法规的内容，可点击提交进行申诉，我们将尽快为您处理。
马建仓 AI 助手