Search options (Page 1 of 3)

use script 7 times with different editbox name in one procedure

Good Effort but i am using TProgressBar....

how to use this type off bars????
i am using tprogressbar in vertical style....
and i want to change colors by product type

yes.... use mysql

hi... use mysql 5.5
install mysql on  server
multi users usesoftware at same time using server's ipaddress

hi thanks;;;
but Requirements are...
when i add any tank then progress bar automatically add.

thanks SPARROW....

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
var
sl:TStringList;
jDataStream: TJSONObject;
jValue_01, jValue_02, jValue_03, jValue_04: TJSONString;
jArray: TJSONArray;
i: int;
begin
      sl:=TStringList.Create;
      sl.LoadFromFile(ExtractFilePath(Application.ExeName)+'\json.txt');
      jDataStream := nil;

      jDataStream:=TJSONObject(TJSONObject.ParseJSONValue(sl.Text));
      frm_main.Memo1.Text:=sl.text;
      frm_main.Memo2.Text:=''; //clear

      if jDataStream <> nil then
       begin
            jValue_01 := TJSONString(jDataStream.GetPairByIndex(0).JsonValue);
            jValue_02 := TJSONString(jDataStream.GetPairByIndex(4).JsonValue);
            jValue_03 := TJSONString(jDataStream.GetPairByIndex(2).JsonValue);
            jValue_04 := TJSONString(jDataStream.GetPairByIndex(3).JsonValue);
            frm_main.Memo2.Lines.Add(jValue_01.Value);
            frm_main.Memo2.Lines.Add(jValue_02.Value);
            frm_main.Memo2.Lines.Add(jValue_03.Value);
            frm_main.Memo2.Lines.Add(jValue_04.Value);

     end;

      //free object
      sl.free
end;

thanks..... its works but changes the resolution of screen....
can we scale any third party application like notepad.exe