برنامج مواقيت الصلاة لكل ولايات الوطن ( للجزائر فقط )

PHP كود :

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs,unit2, Vcl.StdCtrls, Xml.xmldom,
  Xml.XMLIntf, Xml.Win.msxmldom, Xml.XMLDoc;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Button1: TButton;
    ComboBox1: TComboBox;
    XMLDocument1: TXMLDocument;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var pray:Tpray;
Node: IXMLNode;
begin
XMLDocument1.Active:=true;
Node := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('city') ;
while node <>nil do  begin

if  trim(Node.Attributes['name']) = trim(combobox1.Text) then
break;

Node := Node.NextSibling;
end;



pray:=calcpray(strtofloat(node.ChildNodes['longitude'].text),
strtofloat(node.ChildNodes['latitude'].Text),
strtofloat(node.ChildNodes['timezone'].Text),
Date,2,0);
label2.Caption:=timetostr((pray.fajr));
label3.Caption:=timetostr((pray.Shrouk));
label4.Caption:=timetostr(pray.Asr);
label5.Caption:=timetostr(pray.Maghrib);
label6.Caption:=timetostr(pray.Isha);
label1.Caption:=timetostr(pray.zuhr);
XMLDocument1.Active:=false;
end;






procedure TForm1.FormCreate(Sender: TObject);
var
Node: IXMLNode;
begin
XMLDocument1.Active:=true;
Node := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('city') ;
while node <>nil do  begin
ComboBox1.Items.Add(Node.Attributes['name']);
Node := Node.NextSibling;
end;
combobox1.ItemIndex:=1;
XMLDocument1.Active:=true;
end;

end.

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
var
Node: IXMLNode;
begin
XMLDocument1.Active:=true;
node := XMLDocument1.DocumentElement.ChildNodes.First.ChildNodes.FindNode('city') ;
while node <>nil do  begin
ComboBox1.Items.Add(Node.Attributes['name']);

with listview1.Items.Add do begin
  caption:=node.Attributes['name'];
  SubItems.Add(node.ChildNodes['state'].Text);
end;

Node := Node.NextSibling;
end;
combobox1.ItemIndex:=1;
XMLDocument1.Active:=true;
end;

PHP كود :

function Find_Min(Arr: array of TDateTime): TDateTime;
var
  i : Integer; M :TDateTime;
begin
  M:=Arr[0];
  for i:=0 to 5 do
if Arr[i]<M then Result:=Arr[i];
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
tm:Array[0..5] of TDateTime;
begin
 for i := 0 to 5 do  begin
  tm[i]:= Time-strtotime(st[i]);
end;
  showmessage(timetostr( Find_Min(tm)))
end;

PHP كود :

procedure TForm1.FormCreate(Sender: TObject);
//////
if ParamStr(1)='/hide' then begin
Application.ShowMainForm := False;
TrayIcon1.Visible := True;
end;
// اضافة
procedure TForm1.N2Click(Sender: TObject);
begin
    RunOnStartup(Application.ExeName+' /hide', false, false)
end;

// حذف
procedure TForm1.N3Click(Sender: TObject);
begin
  RunOnStartup(Application.ExeName+' /hide', false, true) ;
end;