Search options (Page 158 of 400)

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    SaveDialog: TSaveDialog;
begin
    SaveDialog := TSaveDialog.Create(Form1);

    if SaveDialog.Execute then
    begin
        ShowMessage( SaveDialog.FileName );
    end;

    SaveDialog.Free;
end;

procedure Form1_Button2_OnClick (Sender: string; var Cancel: boolean);
var
    s: string;
begin
    s := '';
    SelectDirectory('Caption', 'c:\', s); // default dialog
    SelectDirectory('Caption', 'c:\', s, True); // with button create a directory
    SelectDirectory('Caption', 'c:\', s, True, True); // with button create a directory and shows files
    if s<>'' then ShowMessage(s);
end;

Form1.Edit1.Text := FloatToStr(now*24*60*60); 

procedure Form1_OnShow (Sender: string; Action: string);
begin
   // script1
   // ...


   // script2
   // ...


   // script3
   // ...
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin
   OnShow1;
   OnShow2;
   OnShow3;
end;

procedure OnShow1;
begin
  // some script
end;

procedure OnShow2;
begin
  // some script
end;

procedure OnShow3;
begin
  // some script
end;

SaleTransHist.tgSaleInvTransHist.Cells[12,i] := '0';

HTTPGet(url: string): string

HTTPGetFile(url: string; SaveToFile: string): boolean

procedure SaleTransHist_tgSaleInvTransHist_OnChange (Sender: string);
var
    i,c: integer;
    sPrevRow: string;
begin
    sPrevRow := '';
    c := SaleTransHist.tgSaleInvTransHist.RowCount-1;
    for i := 0 to c do
    begin
        if SaleTransHist.tgSaleInvTransHist.Cells[0,i] = sPrevRow then
        begin
            sPrevRow := SaleTransHist.tgSaleInvTransHist.Cells[0,i];
            SaleTransHist.tgSaleInvTransHist.Cell[0,i].Empty := true;
            SaleTransHist.tgSaleInvTransHist.Cell[1,i].Empty := true;

            SaleTransHist.tgSaleInvTransHist.Cell[3,i].Empty := true;
            SaleTransHist.tgSaleInvTransHist.Cell[4,i].Empty := true;

            SaleTransHist.tgSaleInvTransHist.Cell[12,i].Empty := true;

            SaleTransHist.tgSaleInvTransHist.Cell[13,i].Empty := true;
            SaleTransHist.tgSaleInvTransHist.Cell[14,i].Empty := true;
            SaleTransHist.tgSaleInvTransHist.Cell[15,i].Empty := true;
            SaleTransHist.tgSaleInvTransHist.Cell[16,i].Empty := true;
        end else sPrevRow := SaleTransHist.tgSaleInvTransHist.Cells[0,i];

    end;
end;

function TreeFindItem(Sender: TTreeView;NodeItem: TTreeNode;Name: String):TTreeNode;
begin
  if(NodeItem=Nil) then NodeItem := Sender.Items.GetFirstNode
  else NodeItem := NodeItem.GetFirstChild;
  if(NodeItem<>Nil) and (NodeItem.Text <> Name) then
  repeat
    NodeItem := NodeItem.GetNextSibling;
  until (NodeItem=Nil) or (NodeItem.Text=Name);
  Result := NodeItem;
end;

function TreeAddItem(Sender: TTreeView;ItemList: TStrings;BookMark: TBookMark;Resort: Boolean):TTreeNode;
var
  ThisNode,Node: TTreeNode;
  i:    integer;
begin
  Node := Nil;
  for i := 0 to ItemList.Count-1 do
  begin
    ThisNode := TreeFindItem(Sender,Node,ItemList[i]);
    if(ThisNode<>Nil) then Node := ThisNode
    else begin
      if I<Itemlist.count-1
        then begin
          if I=0 then Node := Sender.items.Add(Node, Itemlist[i])
          else Node := Sender.items.AddChild(Node, Itemlist[i]);
        end
        else begin
          if I=0 then Node := Sender.items.AddObject(Node, Itemlist[i],Bookmark)
          else Node := Sender.items.AddChildObject(Node, Itemlist[i],Bookmark);
        end;
      Node.stateIndex := Node.level + 1;
      if Resort and (Node.parent <> nil) then Node.parent.alphasort;
    end;
  end;
  Result := Node;
end;

function TreeGetItem(Sender: TTreeView;ItemList: TStrings):TTreeNode;
begin
  Result := TreeAddItem(Sender, Itemlist, nil, false);
end;

procedure TreeDeleteItem(Sender: TTreeView;ItemList: TStrings;level: integer);
var
  Node, Parent: TTreeNode;
begin
  Node := TreeGetItem(Sender,ItemList);
  while Node.level>=Level do
    begin
      Parent := Node.parent;
      Node.delete;
      if (Parent=nil)or(Parent.hasChildren) then break;
      Node := Parent;
    end;
end;


begin

end.