Générateur de calendrier type agenda

Soyez le premier à donner votre avis sur cette source.

Vue 10 860 fois - Téléchargée 1 580 fois

Description

pour mes besoins au restaurant, j'ai développé cette petite app qui génère un agenda pour une année donnée, avec les jours fériés en contraste. ps : la routine des jours fériés (function IsFerie dans RPCalendrier.pas) s'applique au calendrier luxembourgeois.
Je me suis facilité la vie en utilisant un TClientDataset pour stocker les jours de l'année et utiliser la facilité de quickreport.

Compilé avec Delphi 2007 et Quickreport 4.07

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
14
voilà le RPCalendrier.dfm corrigé pour avoir un petit aperçu du programme sous D7 :

object QRP_CALENDRIER: TQRP_CALENDRIER
Left = 0
Top = 0
Caption = 'QRP_CALENDRIER'
ClientHeight = 648
ClientWidth = 805
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Scaled = False
PixelsPerInch = 96
TextHeight = 13
object QuickRep1: TQuickRep
Left = 0
Top = 0
Width = 476
Height = 674
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = True
Frame.DrawLeft = True
Frame.DrawRight = True
DataSet = cds_date
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Tunga'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
50.000000000000000000
2970.000000000000000000
50.000000000000000000
2100.000000000000000000
200.000000000000000000
50.000000000000000000
0.000000000000000000)
PrinterSettings.Copies = 1
PrinterSettings.OutputBin = Auto
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrintIfEmpty = True
SnapToGrid = True
Units = MM
Zoom = 60
object DetailBand1: TQRBand
Left = 45
Top = 11
Width = 419
Height = 578
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
BeforePrint = PageHeaderBand1BeforePrint
Color = clWhite
ForceNewColumn = False
ForceNewPage = True
Size.Values = (
2548.819444444444000000
1847.673611111111000000)
BandType = rbDetail
object SH_FERIE: TQRShape
Left = 112
Top = 5
Width = 225
Height = 39
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
171.979166666666700000
493.888888888888900000
22.048611111111110000
992.187500000000000000)
Brush.Color = clSilver
Shape = qrsRectangle
end
object QRShape1: TQRShape
Left = 0
Top = 53
Width = 33
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
100.541666666666700000
0.000000000000000000
232.833333333333300000
145.520833333333300000)
Shape = qrsRectangle
end
object QRShape2: TQRShape
Left = 32
Top = 53
Width = 136
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
100.541666666666700000
142.875000000000000000
232.833333333333300000
600.604166666666700000)
Shape = qrsRectangle
end
object QRShape3: TQRShape
Left = 168
Top = 53
Width = 49
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
100.541666666666700000
740.833333333333300000
232.833333333333300000
214.312500000000000000)
Shape = qrsRectangle
end
object QRShape4: TQRShape
Left = 216
Top = 53
Width = 57
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
100.541666666666700000
952.500000000000000000
232.833333333333300000
251.354166666666700000)
Shape = qrsRectangle
end
object QRShape5: TQRShape
Left = 272
Top = 53
Width = 34
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
100.541666666666700000
1201.208333333333000000
232.833333333333300000
150.812500000000000000)
Shape = qrsRectangle
end
object QRShape6: TQRShape
Left = 306
Top = 53
Width = 114
Height = 23
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
100.541666666666700000
1349.375000000000000000
232.833333333333300000
502.708333333333300000)
Shape = qrsRectangle
end
object LBL_NUMJOUR: TQRLabel
Left = 4
Top = 3
Width = 24
Height = 38
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
167.569444444444400000
17.638888888888890000
13.229166666666670000
105.833333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '40'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = 'Tunga'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 26
end
object LBL_MOIS: TQRLabel
Left = 32
Top = 20
Width = 37
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
92.604166666666670000
141.111111111111100000
88.194444444444440000
163.159722222222200000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'vendredi'#168
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tunga'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel1: TQRLabel
Left = 6
Top = 54
Width = 23
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
92.604166666666670000
26.458333333333330000
238.125000000000000000
101.423611111111100000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'heure'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tunga'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel2: TQRLabel
Left = 77
Top = 54
Width = 53
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
92.604166666666670000
339.548611111111100000
238.125000000000000000
233.715277777777800000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'nom du client'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tunga'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel3: TQRLabel
Left = 174
Top = 54
Width = 38
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
92.604166666666670000
767.291666666666700000
238.125000000000000000
167.569444444444400000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 't'#233'l'#233'phone'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tunga'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel4: TQRLabel
Left = 218
Top = 54
Width = 18
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
92.604166666666670000
961.319444444444400000
238.125000000000000000
79.375000000000000000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'salle'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tunga'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel5: TQRLabel
Left = 238
Top = 54
Width = 31
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
92.604166666666670000
1049.513888888889000000
238.125000000000000000
136.701388888888900000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'n'#176' table'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tunga'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel6: TQRLabel
Left = 273
Top = 53
Width = 33
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
92.604166666666670000
1203.854166666667000000
233.715277777777800000
145.520833333333300000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'couverts'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tunga'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel7: TQRLabel
Left = 346
Top = 54
Width = 41
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
92.604166666666670000
1525.763888888889000000
238.125000000000000000
180.798611111111100000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'remarques'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = 'Tunga'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object LBL_ANNEE: TQRLabel
Left = 389
Top = 7
Width = 24
Height = 38
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
167.569444444444400000
1715.381944444444000000
30.868055555555560000
105.833333333333300000)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '40'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -35
Font.Name = 'Tunga'
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 26
end
object QRDBText1: TQRDBText
Left = 32
Top = 3
Width = 15
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
79.375000000000000000
141.111111111111100000
13.229166666666670000
66.145833333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = cds_date
DataField = 'date'
OnPrint = QRDBText1Print
Transparent = False
WordWrap = True
FontSize = 12
end
object QRShape7: TQRShape
Left = 2
Top = 77
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
341.312500000000000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape8: TQRShape
Left = 2
Top = 104
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
460.375000000000000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape9: TQRShape
Left = 2
Top = 130
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
574.145833333333300000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape10: TQRShape
Left = 2
Top = 157
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
693.208333333333300000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape11: TQRShape
Left = 2
Top = 183
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
806.979166666666700000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape12: TQRShape
Left = 2
Top = 210
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
926.041666666666700000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape13: TQRShape
Left = 2
Top = 236
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
1039.812500000000000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape14: TQRShape
Left = 2
Top = 263
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
1158.875000000000000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape15: TQRShape
Left = 2
Top = 289
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
1272.645833333333000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape16: TQRShape
Left = 2
Top = 316
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
1391.708333333333000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape17: TQRShape
Left = 2
Top = 341
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
1505.479166666667000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape18: TQRShape
Left = 2
Top = 368
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
1624.541666666667000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape19: TQRShape
Left = 2
Top = 394
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
1738.312500000000000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape20: TQRShape
Left = 2
Top = 421
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
1857.375000000000000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape21: TQRShape
Left = 2
Top = 447
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
1971.145833333333000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape22: TQRShape
Left = 2
Top = 474
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
121.708333333333300000
7.937500000000000000
2090.208333333333000000
1830.916666666667000000)
Shape = qrsHorLine
end
object QRShape23: TQRShape
Left = 2
Top = 498
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
123.472222222222200000
8.819444444444444000
2196.041666666667000000
1830.034722222222000000)
Shape = qrsHorLine
end
object QRShape24: TQRShape
Left = 2
Top = 522
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
123.472222222222200000
8.819444444444444000
2301.875000000000000000
1830.034722222222000000)
Shape = qrsHorLine
end
object QRShape25: TQRShape
Left = 2
Top = 546
Width = 415
Height = 28
Frame.Color = clGray
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Frame.Style = psDashDotDot
Size.Values = (
123.472222222222200000
8.819444444444444000
2407.708333333333000000
1830.034722222222000000)
Shape = qrsHorLine
end
object LBL_FERIE: TQRLabel
Left = 197
Top = 16
Width = 58
Height = 22
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
97.013888888888890000
868.715277777777800000
70.555555555555560000
255.763888888888900000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'LBL_FERIE'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -21
Font.Name = 'Tunga'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
FontSize = 16
end
end
object QRBand1: TQRBand
Left = 45
Top = 589
Width = 419
Height = 58
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
255.763888888888900000
1847.673611111111000000)
BandType = rbPageFooter
object QRLabel8: TQRLabel
Left = 4
Top = 3
Width = 37
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
79.375000000000000000
17.638888888888890000
13.229166666666670000
163.159722222222200000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'Penser '#224' :'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 12
end
end
end
object cds_date: TClientDataSet
Active = True
Aggregates = <>
FieldDefs = <
item
Name = 'date'
DataType = ftDateTime
end>
IndexDefs = <
item
Name = 'DEFAULT_ORDER'
end
item
Name = 'CHANGEINDEX'
end
item
Name = 'idx_date'
Fields = 'date'
end>
IndexName = 'idx_date'
Params = <>
StoreDefs = True
Left = 16
Top = 16
Data = {
3D0000009619E0BD0100000018000000010000000000030000003D0004646174
65080008000000000001000D44454641554C545F4F5244455202008200000000
00}
end
end

mais, comme il manque ici quelques propriétés, l'affichage est de ce fait pas du tout convaincant et ne permet pas d'apprécier le programme.

cantador
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
Ouvrez le fichier dfm de l'unité RP_Calendrier et recréez la fiche avec votre version de QuickReport, ça devrait aller. Le report n'a rien d'inhabituel.
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
14
j'ai le même souci qu'OFFLAKE..
du certainement à la version de QuickReport.
Messages postés
190
Date d'inscription
mercredi 3 septembre 2008
Statut
Membre
Dernière intervention
17 janvier 2009

c bien
Il s'execute mais durant l'execution un Bug sur la ligne
with TQRP_CALENDRIER.Create(Self) do
Alors...
si cetai du a Mon Delphi7 cette fois ci..
By Offlake
Messages postés
302
Date d'inscription
jeudi 29 septembre 2005
Statut
Membre
Dernière intervention
17 septembre 2013
1
Bonjour,

cette erreur survient si tu compiles avec une version inférieure à delphi 2007. Il faut supprimer la ligne
Application.MainFormOnTaskbar := True;
dans le fichier dpr;

C'est tout ! Note que j'ai bien noté que c'était une source delphi 2007 !
Afficher les 6 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.