My Account Log In Walkthrough IDE Integrations Contact  
Polystyle
Point And Click Source Code
Formatter & Obfuscator

Click Here To Download A Free Trial!
Home Features Documentation Buy Formatter Buy Obfuscator Download  

 



  • PHP Obfuscator

  • C# Obfuscator

  • Perl Obfuscator

  • Java Obfuscator

  • Javascript Obfuscator

  • JSP Obfuscator

  • Actionscript Obfuscator

  • C/C++ Formatter

  • Perl Formatter

  • Pascal/Delphi Formatter

  • C# Formatter

  • CSS Formatter

  • CMAC Formatter

  • Java Formatter

  • Javascript Formatter

  • PHP Formatter

  • JSP Formatter

  • HTML/XML Formatter

  • Python Formatter

  • ASP Formatter

  • Visual Basic Formatter

  • Actionscript Formatter

  • Step 3: Formatted Delphi/Pascal Source

  • Overall Delphi/Pascal Features
  • Step 1: Unformatted Source
  • Step 2: Example Source
  • Step 3: Formatted Source

    Here are the final results which you can see are much easier to read!

    Now that you've seen what Polystyle can do for you, why not download a copy and try it out yourself?


    procedure TdBDialog.HandleEvent( var Event : TEvent );
    var
        Chg : boolean;
        Rfrsh : boolean;
        MLine : TPoint;
        Q, R : TRect;
        L : integer;
        W : word;
        P : Pointer;
    
    begin
        if Event.What = evKeyDown then
            Begin
                case Event.KeyCode of
                    kbPgUp, kbPgDn :
                        Begin
                            if Event.KeyCode = kbPgUp then
                                W := cmPageUp
                            else
                                W := cmPageDn;
    
                            ClearEvent( Event );
                            P := Message( Owner, evCommand, W, @Self );
                            exit;
                        end;
                    kbAltE :
                        Begin
                        end;
                    kbEnter :
                        if Current^.HelpCtx = hcDataField then
                            Event.KeyCode := kbTab;
                    kbDown : Event.KeyCode := kbTab;
                    kbUp : Event.KeyCode := kbShiftTab;
                    else
                        Begin
                            TDialog.HandleEvent( Event );
                            exit;
                        end;
                end;
    
                if Current^.Valid( 1 )then
                    TDialog.HandleEvent( Event )
                else
                    ClearEvent( Event );
    
                exit;
            end;
    
        if Event.What = evMouseDown then
            Begin
                dbCancel^.GetBounds( Q );
                Current^.GetBounds( R );
                MakeLocal( Event.Where, MLine );
                Chg := R.has( MLine );
    
                if not Chg then
                    Chg := Q.has( MLine );
    
                if not Chg then
                    Chg := ( MLine.X = 3 ) and ( Mline.Y = 0 );
    
                if Chg then
                    TDialog.HandleEvent( Event )
                else
                    if Current^.Valid( 1 )then
                        TDialog.HandleEvent( Event )
                    else
                        ClearEvent( Event );
    
                exit;
            end;
    
        if Event.What = evCommand then
            Begin
                case Event.Command of
                    cmPageUp, cmPageDn :
                        Begin
                            Chg := true;
    
                            if ( Current^.HelpCtx = hcDataField ) then
                                Chg := Current^.Valid( 1 );
    
                            if Chg then
                                Begin
                                    L := FirstField;
    
                                    if Event.Command = cmPageUp then
                                        FirstField := FirstField
                                            - ( FldsOnScrn - 1 )
                                    else
                                        FirstField := FirstField
                                            + ( FldsOnScrn - 1 );
    
                                    if FirstField < 1 then
                                        FirstField := 1
                                    else
                                        if FirstField > FldsInFile
                                            - ( FldsOnScrn - 1 ) then
                                            FirstField := FldsInFile
                                                - ( FldsOnScrn - 1 );
    
                                    if FirstField <> L then
                                        Begin
                                            SaveDialog( 0, true );
                                            ShowDialog( true );
                                        end;
    
                                    FirstItem^.Select;
                                end;
    
                            ClearEvent( Event );
                            exit;
                        end;
                    cmNextRec, cmPrevRec :
                        Begin
                            Chg := true;
    
                            if ( Current^.HelpCtx = hcDataField ) then
                                Chg := Current^.Valid( 1 );
    
                            if Chg then
                                Begin
                                    Rfrsh := FirstField <> 1;
                                    FirstField := 1;
                                    SaveDialog( 1, Rfrsh );
    
                                    if Event.Command = cmNextRec then
                                        Skip( 1 )
                                    else
                                        Skip( -1 );
    
                                    ShowDialog( Rfrsh );
                                    FirstItem^.Select;
                                end;
    
                            ClearEvent( Event );
                            exit;
                        end;
                end;
            end;
    
        TDialog.HandleEvent( Event )
    end;
    
    

    Take Polystyle for a spin: Download a copy here!

  • Home Features Documentation Buy Polystyle Buy Obfuscator Download  

    Click Here To Download A Free Trial!

    Copyright © Flashbulb Studios. All rights reserved.