Jump to content
Fórum Script Brasil

CorN_Sk8

Membros
  • Content Count

    92
  • Joined

  • Last visited

Community Reputation

0 Neutro

About CorN_Sk8

  1. CorN_Sk8

    Web Update

    cara esse código que seis passaram ai tá muito ruim.... sem zuera... por exemplo if data.Caption='01/10/04' then a.Caption:='011004'; if data.Caption='02/10/04' then a.Caption:='021004'; if data.Caption='03/10/04' then a.Caption:='031004'; if data.Caption='04/10/04' then a.Caption:='041004'; if data.Caption='05/10/04' then a.Caption:='051004'; if data.Caption='06/10/04' then a.Caption:='061004'; if data.Caption='07/10/04' then a.Caption:='071004'; if data.Caption='08/10/04' then a.Caption:='081004'; ... isso poderia ser substituido por simplesmente isso StringReplace(Data.Caption, '/', '', [rfReplaceAll]) ou até mesmo FomatDateTime('DDMMYY', StrToDate(Data.Caption)); sem falar de outras formas que tambem dariam certo, em apenas 1 linha... Sugiro que antes que façam um atualizar do seu prog, estudem um pouco de lógica de prog., desculpe o modo de falar meu, parece um pouco ignorância... outro ponto, não utilizar o UrlMon.... use componentes como TIDHTTPClient da palheta indy, ou HttpClient da palheta ICS (www.overbyte.be)....
  2. para agilizar ainda mais o sistema utilize expressão regular, usando a função: int preg_match(string pattern, string subject, array [matches]); ficaria mais ou menos assim o código: <? $text = "http://www.google.com.br"; if (preg_match("(?i)(FTP|HTTP[S])://([_a-z\d\-]+(\.[_a-z\d\-]+)+)((/[ _a-z\d\-\\\.]+)+)*", $text, $matchs)){ for($x = 0; $x < $count($matchs); $x++){ echo $match[$x][0] . "<br>"; } } ?> a expressão pode ser (?i)((FTP|HTTP)://)?([_a-z\d\-]+(\.[_a-z\d\-]+)+)((/[ _a-z\d\-\\\.]+)+)* para poder pegar urls sem http:// ou ftp:// ou https:// mas não acho recomendável... espero ter ajudado... flws
  3. var Canvas: TCanvas; begin Canvas := TCanvas.Create; Canvas.Handle := GetWindowDc(0); // faça o que quiser Canvas.Free; end; com esse código você manipula o que está sendo mostrado no vídeo, não captura apenas uma janela ou outra, você desenha na onde quiser e ele vai ficar por cima.
  4. porque voce não usa if TryStrToInt(N) ? Obs: Você pode usar o Try de outra forma: try except on E: Exception do begin ShowMessage(E.Message); end; end;
  5. http://www.delphix.br2.net/arquivos/txt/De..._DEL_Win_XP.txt
  6. procedure TF_Cad_Orc.BitBtn9Click(Sender: TObject); begin with dados.Q_Kit do begin close; sql.clear; sql.add ('SELECT SUM (Kit_Total_Fin) AS TOTAL FROM TBL_Kit WHERE ID_ORCA = '+QuotedStr(dbedit60.text)); ShowMessage(SQL.TEXT); open; vai aparecer uma mensagem com a query veja se está tudo OK
  7. CorN_Sk8

    Ajudaaa Por Favor

    se for o que eu to pensando, vai ficar enorme mesmo, o tamanho é proporcial a resolução, a melhor solução é desenvolver softwares para 800x600 que quando voce mudar para 1024x768 fica normal ... um botao de 25x25 em 1024x768 não é nada mais em 800x600 ele vira um botaozaooo justamente porque a tela tem menos pixels
  8. CorN_Sk8

    Calculadora

    eu desenvolvi uma funcao para calculos aritimeticos mas não esta totalmente pronta, se voce quiser tentar termina-la http://www.delphix.br2.net/forums/index.ph...findpost&p=3590
  9. CorN_Sk8

    Formatando Valores

    floattostrf(valor, 18,2) formatfloat('###.###.###,##0', valor) format("%m", [valor])
  10. $sexo = strtoupper($user["iam"]); if($sexo == "MAN") || ($sexo == "HOMEM") $gender = Male else if ($sexo == "WOMAN") || ($sexo == "MULHER") $gender = Female;
  11. você tem que ligar elas, relacionar, exemplo: ai sua query vai ficar assim: Select * from Clientes C, Produtos P, Vendas V where V.CodCliente = C.Codigo and V.CodProduto = P.Codigo legal né ?
  12. pronto, terminei. Unit1.pas unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; procedure Button1Click(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); private procedure Load; { Private declarations } public { Public declarations } end; var Form1: TForm1; BMP: TBitmap; P: TPoint; P_Clicked: TPoint; Clicked: Boolean = false; implementation {$R *.dfm} procedure TForm1.Load; var MyRect, MyOther: TRect; X, Y: Integer; begin if Image1.Width > BMP.Width then X := (Image1.Width - BMP.Width) div 2 else X := 0; if Image1.Height > BMP.Height then Y := (Image1.Height - BMP.Height) div 2 else Y := 0; MyRect := Rect(P.X, P.Y, P.X + Image1.Width, P.Y + Image1.Height); MyOther := Rect(X,Y,Image1.Width, Image1.Height); Image1.Canvas.CopyRect(MyOther,BMP.Canvas,MyRect); end; procedure TForm1.Button1Click(Sender: TObject); begin P.X := 0; P.Y := 0; BMP := TBitmap.Create; BMP.LoadFromFile('C:\teste.bmp'); Load; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if BMP = nil then exit; P_Clicked.X := X; P_Clicked.Y := Y; Clicked := True; end; procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if Clicked = false then exit; P.X := P.X + (X - P_Clicked.X); P.Y := P.Y + (Y - P_Clicked.Y); if P.X < 0 then P.X := 0 else if P.X > BMP.Width - Image1.Width then P.X := BMP.Width - Image1.Width; if P.Y < 0 then P.Y := 0 else if P.Y > BMP.Height - Image1.Height then P.Y := BMP.Height - Image1.Height; if Image1.Width > BMP.Width then P.X := 0; if Image1.Height > BMP.Height then P.Y := 0; P_Clicked.X := X; P_Clicked.Y := Y; Load; end; procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Clicked := False; end; procedure TForm1.FormCreate(Sender: TObject); begin DoubleBuffered := True; end; end.
  13. hum meu caro irei criar um código melhor para você e posto ainda hoje
  14. CorN_Sk8

    Como Fazer?

    algo do tipo
  15. CorN_Sk8

    Dúvida Com Time

    de uma olhada nesse tópico http://scriptbrasil.com.br/forum/index.php...topic=75847&hl=
×
×
  • Create New...