Page 2 of 3 FirstFirst 123 LastLast
Results 26 to 50 of 58

Thread: Happy anniversary Wizzup? !

  1. #26
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program New;
     
    var
      SantyForm : TForm;
      TitleLabel : TLabel;
      BirthdayLabel : TLabel;
      HoorayLabelOne : TLabel;
      HoorayLabelTwo : TLabel;
      BirthdayEdit : TEdit;
      SingButton : TButton;
      CancelButton : TButton;
      Background : TImage;
      Sing : Boolean;
      BirthdayName : string;
     
    procedure ContinueScript;
    begin
      if (BirthdayEdit.Text = '    Birthday Person''s Name') then
      begin
        ShowMessage('Fill In Birthday Person''s Name!');
        Exit;
      end;
     
      BirthdayName := BirthdayEdit.Text;
      SantyForm.ModalResult := mrOk;
      Sing := True;
    end;
     
    procedure GenerateOnClicks(Senders : TObject);
    begin
      case Senders of
        SingButton : ContinueScript;
        CancelButton : SantyForm.ModalResult := mrCancel;
      end;
    end;
     
    procedure BirthdayFormShow;
    var
      WhiteBitmap, BlackBitmap : Integer;
    begin
      SantyForm := CreateForm;
      with SantyForm do
      begin
        Position := poScreenCenter;
        BorderStyle := bsNone;
        ClientWidth := 421;
        ClientHeight := 275;
        Font.Name := 'MS Sans Serif';
      end;
      Background := TImage.Create(SantyForm);
      with Background do
      begin
        Parent := SantyForm;
        SetBounds(0, 0, 421, 275);
      end;
      TitleLabel := TLabel.Create(SantyForm);
      with TitleLabel do
      begin
        Parent := SantyForm;
        SetBounds(24, 24, 361, 33);
        Caption := 'Santy'#39's HBS - Happy Birthday Singer';
        Font.Color := clYellow;
        Font.Height := -27;
        Font.Name := 'Monotype Corsiva';
      end;
      BirthdayLabel := TLabel.Create(SantyForm);
      with BirthdayLabel do
      begin
        Parent := SantyForm;
        SetBounds(156, 232, 116, 20);
        Caption := 'Happy Birthday!!';
        Font.Color := clYellow;
        Font.Height := -16;
        Font.Name := 'MS Sans Serif';
      end;
      HoorayLabelOne := TLabel.Create(SantyForm);
      with HoorayLabelOne do
      begin
        Parent := SantyForm;
        SetBounds(16, 136, 59, 20);
        Caption := 'Hooray!!';
        Font.Color := clYellow;
        Font.Height := -16;
        Font.Name := 'MS Sans Serif';
      end;
      HoorayLabelTwo := TLabel.Create(SantyForm);
      with HoorayLabelTwo do
      begin
        Parent := SantyForm;
        SetBounds(344, 136, 59, 20);
        Caption := 'Hooray!!';
        Font.Color := clYellow;
        Font.Height := -16;
        Font.Name := 'MS Sans Serif';
      end;
      BirthdayEdit := TEdit.Create(SantyForm);
      with BirthdayEdit do
      begin
        Parent := SantyForm;
        SetBounds(137, 120, 145, 21);
        Hint := 'Santy Loves TSN!';
        Font.Color := clRed;
        Font.Name := 'MS Sans Serif';
        ShowHint := True;
        Text := '    Birthday Person'#39's Name';
      end;
      SingButton := TButton.Create(SantyForm);
      with SingButton do
      begin
        Parent := SantyForm;
        SetBounds(128, 176, 75, 25);
        Caption := 'Sing!';
        OnClick := @GenerateOnClicks;
      end;
      CancelButton := TButton.Create(SantyForm);
      with CancelButton do
      begin
        Parent := SantyForm;
        SetBounds(216, 176, 75, 25);
        Caption := 'Cancel';
        TabOrder := 10;
        OnClick := @GenerateOnClicks;
      end;
      WhiteBitmap := BitmapFromString(1, 1, 'FFFFFF');
      BlackBitmap := BitmapFromString(421, 275, '000000');
      SafeCopyCanvas(GetBitmapCanvas(BlackBitmap), Background.Canvas, 0, 0, 421, 275, 2, 2, 421, 275);
      SafeCopyCanvas(GetBitmapCanvas(WhiteBitmap), Background.Canvas, 0, 0, 1, 1, 0, 0, 2, 421);
      SafeCopyCanvas(GetBitmapCanvas(WhiteBitmap), Background.Canvas, 0, 0, 1, 1, 419, 0, 421, 275);
      SafeCopyCanvas(GetBitmapCanvas(WhiteBitmap), Background.Canvas, 0, 0, 1, 1, 0, 0, 421, 2);
      SafeCopyCanvas(GetBitmapCanvas(WhiteBitmap), Background.Canvas, 0, 0, 1, 1, 0, 273, 421, 275);
    end;
     
    procedure SafeBirthdayFormShow;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('BirthdayFormShow', V);
    end;
     
    procedure ShowBirthdayFormShowModal;
    begin
      SantyForm.ShowModal;
    end;
     
    procedure SafeShowBirthdayFormShowModal;
    var
      V : TVariantArray;
    begin
      SetArrayLength(V, 0);
      ThreadSafeCall('ShowBirthdayFormShowModal', V);
    end;
     
    procedure MainBirthdayFormShow;
    begin
      try
        SafeBirthdayFormShow;
        SafeShowBirthdayFormShowModal;
      finally
        FreeForm(SantyForm);
      except
        WriteLn('An error seems to have occurred in: BirthdayFormShow');
      end;
    end;
     
    procedure SingHappyBirthday(BirthdayPerson : string);
    var
      HappyBirthdayWords : TStringArray;
      TheText : string;
      I, J : Integer;
    begin
      HappyBirthdayWords := ['Happy ', 'Birthday ', 'To ', 'You '];
     
      for J := 0 to 1 do
      begin
        for I := 0 to 3 do
          TheText := TheText + HappyBirthdayWords[i];
        WriteLn(TheText);
        TheText := '';
      end;
     
      for I := 0 to 2 do
        TheText := TheText + HappyBirthdayWords[i];
      TheText := TheText + BirthdayPerson;
      WriteLn(TheText);
     
      TheText := '';
     
      for I := 0 to 3 do
        TheText := TheText + HappyBirthdayWords[i];
      WriteLn(TheText);
     
      WriteLn('Santy Loves ' + BirthdayPerson + '!');
    end;
     
    begin
      ClearDebug;
      GetSelf.WindowState := wsMinimized;
      MainBirthdayFormShow;
      GetSelf.WindowState := wsNormal;
      if Sing then
        SingHappyBirthday(BirthdayName);
    end.

    Highly incorrect intervals

    Happy Birthday, Wizzup! Your father posted a photo, now your turn
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  2. #27
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    I second that, also nice form ^^

  3. #28
    Join Date
    Dec 2006
    Location
    Copy pastin to my C#
    Posts
    3,788
    Mentioned
    8 Post(s)
    Quoted
    29 Post(s)

    Default

    Thanks all...
    I'll try to act like SinterKlaas and and out some presents later... I still have to make them, though.
    I am sensing ColorToleranceSpeed(2)

  4. #29
    Join Date
    Nov 2006
    Location
    NSW, Australia
    Posts
    3,487
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by n3ss3s View Post
    I am sensing ColorToleranceSpeed(2)
    I'm sensing object-finding using WizzyPower
    [CENTER][img]http://signatures.mylivesignature.com/54486/113/4539C8FAAF3EAB109A3CC1811EF0941B.png[/img][/CENTER]
    [CENTER][BANANA]TSN ~ Vacation! ~ says :I Love Santy[/BANANA][/CENTER]

    [CENTER][BANANA]Raymond - Oh rilie? says :Your smart[/BANANA][/CENTER]

  5. #30
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    happy b day!

    :D::D:

    [22:20] <[-jesus-]> freddy, go uninstall yourself

  6. #31
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    Pssh, why make a form for it? I just use a simple WriteLn!

    SCAR Code:
    begin
    WriteLn('Happy Birthday Wizzup?!');
    WriteLn('I though aniversity meant years after marrage :)');
    end.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  7. #32
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    HARRY!! You had the Tree-picture from "Cowz". Do you by any chance also have the pictures from Fakawi's Trillenium thread?

    Me wants to see

    -Knives

  8. #33
    Join Date
    Dec 2006
    Location
    Sweden
    Posts
    10,812
    Mentioned
    3 Post(s)
    Quoted
    16 Post(s)

    Default

    -Hy71194 says:
    No
    -Hy71194 says:
    I dont save men to my HDD :$
    -Hy71194 says:
    He just looks like a pot-head, his hair is all.... psycho
    -Hy71194 says:
    But hey, he is still l33t, and cool looking (h)
    The message you have entered is too short. Please lengthen your message to at least 1 characters.


    Send SMS messages using Simba
    Please do not send me a PM asking for help; I will not be able to help you! Post in a relevant thread or make your own! And always remember to search first!

  9. #34
    Join Date
    Mar 2007
    Posts
    1,700
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Happy Birthday

  10. #35
    Join Date
    Dec 2007
    Posts
    0
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    happy b-day

  11. #36
    Join Date
    Apr 2007
    Posts
    357
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    happy bday

  12. #37
    Join Date
    Mar 2007
    Posts
    3,681
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by King of Knives View Post
    HARRY!! You had the Tree-picture from "Cowz". Do you by any chance also have the pictures from Fakawi's Trillenium thread?

    Me wants to see

    -Knives
    I have edited ones


    OffTopic: what's wrong with potheads? hhhmm?

  13. #38
    Join Date
    Jun 2006
    Location
    The Netherlands
    Posts
    2,984
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Congrats big guy !
    Administrator's Warning:


  14. #39
    Join Date
    Apr 2007
    Posts
    3,152
    Mentioned
    3 Post(s)
    Quoted
    1 Post(s)

    Default

    Quote Originally Posted by santa's script
    Happy Birthday To You
    Happy Birthday To You
    Happy Birthday To eating nachos
    Happy Birthday To You
    Santy Loves eating nachos!
    happy birthday
    SCAR Tutorials: The Form Tutorial | Types, Arrays, and Classes
    Programming Projects: NotePad | Tetris | Chess


  15. #40
    Join Date
    Apr 2007
    Posts
    2,593
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Birthday means the day of birth...Anniversary means the celebration of an important event...So technically, we all have anniversaries, not birthdays...

  16. #41
    Join Date
    Jul 2007
    Location
    Norway.
    Posts
    1,938
    Mentioned
    3 Post(s)
    Quoted
    0 Post(s)

    Default

    Congratulations, best of luck!

    Hope you get happiness or whatever you want in life.
    Really.

  17. #42
    Join Date
    Jun 2007
    Location
    brooklyn ny
    Posts
    683
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    so the truth is out father and son i was always waondering about that
    Happy Birthday to you hope its fun and filled with cookies

  18. #43
    Join Date
    Sep 2006
    Posts
    6,089
    Mentioned
    77 Post(s)
    Quoted
    43 Post(s)

    Default

    Hip hip hooray!!
    Hup Holland Hup!

  19. #44
    Join Date
    Mar 2007
    Posts
    478
    Mentioned
    4 Post(s)
    Quoted
    4 Post(s)

    Default

    On the previous page I read wizzups father is present. Who is he? Please bestow this knowledge up on me.

    For wizzup here is your present



    There you go, 17 head wackings.

    EDIT:FORGOT ITS MY 300 POST
    Back from the dead.....

  20. #45
    Join Date
    Sep 2006
    Location
    West U.S.
    Posts
    2,172
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    happy birthday wizzup!!!

    for this occasion, ill change my sig lol

    and your only 17!?


    They are sisters...
    Runescape Classic

  21. #46
    Join Date
    Oct 2007
    Location
    If (Online) then Loc := ('On comp') else Loc := ('Somewhere else!');
    Posts
    2,020
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    happy birthday many happy returns

    have a drink on me *oo you 2 young *

    stick with the coffe

  22. #47
    Join Date
    Sep 2007
    Location
    Sweden
    Posts
    765
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    congratulations or as we say in sweden - grattis! haha

  23. #48
    Join Date
    Sep 2006
    Location
    New Jersey, USA
    Posts
    5,347
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Congrats Wizzup!

    Hope you have a good bday
    Interested in C# and Electrical Engineering? This might interest you.

  24. #49
    Join Date
    Jul 2007
    Location
    Ohio
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    HAppy birthday man BIG 1,7 lol cool!! i turned 14 yesterdayy... HAppy b-day!!!

  25. #50
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Have a happy birthday and may your post count rise!
    I do visit every 2-6 months

Page 2 of 3 FirstFirst 123 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Happy Birthday to Wizzup? and Narcle!
    By mixster in forum News and General
    Replies: 60
    Last Post: 12-22-2008, 07:51 AM
  2. Why Are You Happy?
    By IEatJ00erBaybees in forum News and General
    Replies: 3
    Last Post: 12-10-2007, 11:26 PM
  3. A Happy Hello
    By Something All Over in forum Who Are You ? Who ? Who ?
    Replies: 0
    Last Post: 10-10-2006, 05:04 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •