The Form Tutorial

[Dan Cardin]

It looks much better and niftier and neater and whatnot in the wiki, but i thought i'd make it known here.

The Form Tutorial

[Freddy]

Looks awesome, great job!

[Ron]

Nice job Dan! Very informative!

[Da1King]

This is a great tutorial, Nice Job!

[solemn wishes]

Great tutorial dan, nice explanations and detail.

[nielsie95]

Looks good
Are you sure the dialogs do not work? I'm almost sure they do (at least save, open, font)..

[Dan Cardin]

Looks good
Are you sure the dialogs do not work? I'm almost sure they do (at least save, open, font)..

No, its only the replace and find dialogs that either dont work, or i dont know how to work.

[HappyHacker]

I dont understand the firstbit so i gave up plz help i wanna learn how 2 use scar

[Dan Cardin]

which sections specifically? some of the beginning stuff is meant to teach you about general ideas first and then you'll learn more of what it really means later on.

[Dan's The Man]

I'm also positive the dialogues also work.

You just don't know how to use them properly :D

Here's an example on how to use it (didn't get enough time to finish sine i had to go to bed, but you should get the general idea):[scar]program New;

var
  frmDesign: TForm;
  Memo1: TMemo;
  Button1, Button2, Button3: TButton;
  FindDialog1: TFindDialog;
  ReplaceDialog1: TReplaceDialog;

procedure OnFindDialog(Sender: TObject);
var
  i: Integer;
begin
        for i:=1 to SizeOf(Memo1.Lines) do
                if(Pos(FindDialog1.FindText, Memo1.Lines)<>0) then
                begin
                        Memo1.SelStart:=Pos(FindDialog1.FindText, Memo1.Lines);
                        Memo1.SelLength:=Length(FindDialog1.FindText);
                        Memo1.SetFocus;
                        Break;
                end;
end;

procedure FindClick(Sender: TObject);

begin
  FindDialog1.Execute;
end;

procedure FormInitialize;
begin
        frmDesign := CreateForm;
        frmDesign.Left := 250;
        frmDesign.Top := 114;
        frmDesign.Width := 313;
        frmDesign.Height := 480;
        frmDesign.Caption := 'Find and Replace Example';
        frmDesign.Color := clBtnFace;
        frmDesign.Font.Color := clWindowText;
        frmDesign.Font.Height := -11;
        frmDesign.Font.Name := 'MS Sans Serif';
        frmDesign.Font.Style := [];
        frmDesign.Visible := False;
        frmDesign.PixelsPerInch := 96;
        Memo1 := TMemo.Create(frmDesign);
        Memo1.Parent := frmDesign;
        Memo1.Left := 8;
        Memo1.Top := 40;
        Memo1.Width := 289;
        Memo1.Height := 401;
        Memo1.Lines.Add('Enter your text in this memo and either press the "Find" ');
        Memo1.Lines.Add('button or the "Replace" button to find and/or replace text ');
        Memo1.Lines.Add('from this memo.');
        Memo1.TabOrder := 8;
        Button1 := TButton.Create(frmDesign);
        Button1.Parent := frmDesign;
        Button1.Left := 8;
        Button1.Top := 8;
        Button1.Width := 75;
        Button1.Height := 25;
        Button1.Caption := 'Find';
        Button1.TabOrder := 9;
        Button1.OnClick := @FindClick;
        Button2 := TButton.Create(frmDesign);
        Button2.Parent := frmDesign;
        Button2.Left := 224;
        Button2.Top := 8;
        Button2.Width := 75;
        Button2.Height := 25;
        Button2.Caption := 'Replace';
        Button2.TabOrder := 10;
        Button3 := TButton.Create(frmDesign);
        Button3.Parent := frmDesign;
        Button3.Left := 120;
        Button3.Top := 8;
        Button3.Width := 65;
        Button3.Height := 25;
        Button3.Caption := 'Clear';
        Button3.TabOrder := 11;
        FindDialog1 := TFindDialog.Create(frmDesign);
        FindDialog1.Left := 32;
        FindDialog1.Top := 424;
        FindDialog1.OnFind := @OnFindDialog;
        ReplaceDialog1 := TReplaceDialog.Create(frmDesign);
        ReplaceDialog1.Top := 424;
end;

procedure ShowFormModal;
begin
  frmDesign.ShowModal;
end;

var
  TVA: TVariantArray;

begin
  ThreadSafeCall('FormInitialize', TVA);
  ThreadSafeCall('ShowFormModal', TVA);
end.[/scar]

BTW, SCARs CTRL+SHIFT+I formatting is shit (like 4 spaces). I was using the portable version. And i think i screwed something up in the above code...

But yerr.... Nice tutorial by the way

[Dan Cardin]

I'm also positive the dialogues also work.

You just don't know how to use them properly :D

well that obviously isnt helpful, if you know how to get them to work then a short example wouldnt be as patronizing

[Dan's The Man]

I'm also positive the dialogues also work.

You just don't know how to use them properly :D

well that obviously isnt helpful, if you know how to get them to work then a short example wouldnt be as patronizing

Sorry, look above ^^. I just did it in like 5 minutes since i was busy before :p

The same thing goes with the replace dialog from the find dialog

[Dan Cardin]

yes, i guess, but in this case your dialog is only as good as your code.
In your code, Match case, match whole word only, up, down all wouldnt work. I am aware that at least there are variables for the options, afaik, but if It doesnt properly have those options, then i dont feel the need to write my own functions for them in a tutorial. (i might eventually, but i can see my code either being lacking, or slow, which i wouldnt want to teach to people.

[Dan's The Man]

yes, i guess, but in this case your dialog is only as good as your code.
In your code, Match case, match whole word only, up, down all wouldnt work. I am aware that at least there are variables for the options, afaik, but if It doesnt properly have those options, then i dont feel the need to write my own functions for them in a tutorial. (i might eventually, but i can see my code either being lacking, or slow, which i wouldnt want to teach to people.

Oh you can, you just need to add more code :D That component meets its' purpose, to be a dialog. You still have to have the code yourself.

[Stranger]

It looks much better and niftier and neater and whatnot in the wiki, but i thought i'd make it known here.

The Form Tutorial

Hi,
the link is broken