Skip to content

Commit 4b6bb04

Browse files
fforayfforay
committed
FabZip First Compling versionbut not working
1 parent 62ab300 commit 4b6bb04

File tree

4 files changed

+56
-47
lines changed

4 files changed

+56
-47
lines changed

‎FabTools/Fab_Zip_1_52j_Test/About.HELPABOUT.vnfrm‎

Lines changed: 42 additions & 42 deletions
Original file line numberDiff line numberDiff line change
@@ -22,6 +22,48 @@
2222
<HyperLabel>"HelpAbout"</HyperLabel>
2323
</ExProperties>
2424
</Window>
25+
<Control Name="FixedText2">
26+
<Name>FixedText2</Name>
27+
<Class>CONTROL:TEXTCONTROL:FIXEDTEXT</Class>
28+
<Caption>[email protected]</Caption>
29+
<Order>4</Order>
30+
<Left>71</Left>
31+
<Top>61</Top>
32+
<Width>170</Width>
33+
<Height>20</Height>
34+
<BrowseIndex>-1</BrowseIndex>
35+
<BrowseSize>0</BrowseSize>
36+
<SubForm>No</SubForm>
37+
<NoSave>No</NoSave>
38+
<Deleted>0</Deleted>
39+
<Styles>1073741824</Styles>
40+
<ExStyles>0</ExStyles>
41+
<ExProperties>
42+
<HyperLabel>,"[email protected]"</HyperLabel>
43+
<HyperLabel>"FixedText2"</HyperLabel>
44+
</ExProperties>
45+
</Control>
46+
<Control Name="FixedText3">
47+
<Name>FixedText3</Name>
48+
<Class>CONTROL:TEXTCONTROL:FIXEDTEXT</Class>
49+
<Caption>© 1997-2020 Fabrice Foray</Caption>
50+
<Order>5</Order>
51+
<Left>73</Left>
52+
<Top>41</Top>
53+
<Width>144</Width>
54+
<Height>20</Height>
55+
<BrowseIndex>-1</BrowseIndex>
56+
<BrowseSize>0</BrowseSize>
57+
<SubForm>No</SubForm>
58+
<NoSave>No</NoSave>
59+
<Deleted>0</Deleted>
60+
<Styles>1073741964</Styles>
61+
<ExStyles>0</ExStyles>
62+
<ExProperties>
63+
<HyperLabel>,"© 1997-2020 Fabrice Foray"</HyperLabel>
64+
<HyperLabel>"FixedText3"</HyperLabel>
65+
</ExProperties>
66+
</Control>
2567
<Control Name="DLLInfoPB">
2668
<Name>DLLInfoPB</Name>
2769
<Class>CONTROL:TEXTCONTROL:BUTTON:PUSHBUTTON</Class>
@@ -43,27 +85,6 @@
4385
<HyperLabel>"DLLInfoPB"</HyperLabel>
4486
</ExProperties>
4587
</Control>
46-
<Control Name="FixedText2">
47-
<Name>FixedText2</Name>
48-
<Class>CONTROL:TEXTCONTROL:FIXEDTEXT</Class>
49-
<Caption>[email protected]</Caption>
50-
<Order>4</Order>
51-
<Left>71</Left>
52-
<Top>61</Top>
53-
<Width>170</Width>
54-
<Height>20</Height>
55-
<BrowseIndex>-1</BrowseIndex>
56-
<BrowseSize>0</BrowseSize>
57-
<SubForm>No</SubForm>
58-
<NoSave>No</NoSave>
59-
<Deleted>0</Deleted>
60-
<Styles>1073741824</Styles>
61-
<ExStyles>0</ExStyles>
62-
<ExProperties>
63-
<HyperLabel>,"[email protected]"</HyperLabel>
64-
<HyperLabel>"FixedText2"</HyperLabel>
65-
</ExProperties>
66-
</Control>
6788
<Control Name="FixedIcon1">
6889
<Name>FixedIcon1</Name>
6990
<Class>CONTROL:FIXEDICON</Class>
@@ -106,27 +127,6 @@
106127
<HyperLabel>"FabZipVersion"</HyperLabel>
107128
</ExProperties>
108129
</Control>
109-
<Control Name="FixedText3">
110-
<Name>FixedText3</Name>
111-
<Class>CONTROL:TEXTCONTROL:FIXEDTEXT</Class>
112-
<Caption>© 1997-2007 Fabrice Foray</Caption>
113-
<Order>5</Order>
114-
<Left>73</Left>
115-
<Top>41</Top>
116-
<Width>144</Width>
117-
<Height>20</Height>
118-
<BrowseIndex>-1</BrowseIndex>
119-
<BrowseSize>0</BrowseSize>
120-
<SubForm>No</SubForm>
121-
<NoSave>No</NoSave>
122-
<Deleted>0</Deleted>
123-
<Styles>1073741964</Styles>
124-
<ExStyles>0</ExStyles>
125-
<ExProperties>
126-
<HyperLabel>,"© 1997-2007 Fabrice Foray"</HyperLabel>
127-
<HyperLabel>"FixedText3"</HyperLabel>
128-
</ExProperties>
129-
</Control>
130130
<Control Name="OkPB">
131131
<Name>OkPB</Name>
132132
<Class>CONTROL:TEXTCONTROL:BUTTON:PUSHBUTTON</Class>

‎FabTools/Fab_Zip_1_52j_Test/About.prg‎

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -42,7 +42,7 @@ CONSTRUCTOR(oParent,uExtra)
4242
SELF:oDCFixedText2:HyperLabel := HyperLabel{#FixedText2 , "[email protected]" , NULL_STRING , NULL_STRING}
4343

4444
SELF:oDCFixedText3 := FIXEDTEXT{SELF , ResourceID{ HELPABOUT_FIXEDTEXT3 , _GetInst() } }
45-
SELF:oDCFixedText3:HyperLabel := HyperLabel{#FixedText3 , "© 1997-2007 Fabrice Foray" , NULL_STRING , NULL_STRING}
45+
SELF:oDCFixedText3:HyperLabel := HyperLabel{#FixedText3 , "© 1997-2020 Fabrice Foray" , NULL_STRING , NULL_STRING}
4646

4747
SELF:oCCOkPB := PUSHBUTTON{SELF , ResourceID{ HELPABOUT_OKPB , _GetInst() } }
4848
SELF:oCCOkPB:HyperLabel := HyperLabel{#OkPB , "OK" , NULL_STRING , NULL_STRING}

‎FabTools/Fab_Zip_1_52j_Test/Extract Window.prg‎

Lines changed: 10 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -38,6 +38,15 @@ PARTIAL CLASS ExtractWnd INHERIT DIALOGWINDOW
3838
EXPORT oXTract AS FabExtractOptions
3939
EXPORT lAll AS LOGIC
4040

41+
ACCESS DirName
42+
// Get Dir
43+
RETURN SELF:oDCSLEDir:CurrentText
44+
45+
ASSIGN DirName ( cDir )
46+
SELF:oDCSLEDir:CurrentText := cDir
47+
48+
49+
4150
METHOD Drop( oDragEvent)
4251
// Set the CurrentText to provide an EditChange for TreeView
4352
SELF:oDCSLEDir:CurrentText := oDragEvent:FileName( 1)+"\"
@@ -65,7 +74,7 @@ PARTIAL CLASS ExtractWnd INHERIT DIALOGWINDOW
6574
6675
6776
CONSTRUCTOR(oParent,uExtra)
68-
77+
6978
SELF:PreInit(oParent,uExtra)
7079
7180
SUPER(oParent , ResourceID{"ExtractWnd" , _GetInst()} , TRUE)

‎FabTools/Fab_Zip_1_52j_Test/Resources/About.HelpAbout.rc‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,7 @@
44
// This code was generated by a tool.
55
// Runtime version: 4.0.30319.42000
66
// Generator : XSharp.FormEditor 2.1.0.0
7-
// Timestamp : 28/02/2020 20:05:51
7+
// Timestamp : 28/02/2020 20:41:17
88
//
99
// Changes to this file may cause incorrect behavior and may be lost if
1010
// the code is regenerated.
@@ -40,7 +40,7 @@ BEGIN
4040
CONTROL "DELZIP", HELPABOUT_FIXEDICON1, "STATIC", WS_CHILD|SS_ICON|WS_BORDER, 11, 12, 25, 25, WS_EX_STATICEDGE
4141
CONTROL "FabZip Library V", HELPABOUT_FABZIPVERSION, "STATIC", WS_CHILD|SS_NOPREFIX|SS_LEFTNOWORDWRAP, 44, 13, 106, 13
4242
CONTROL "DLL Info", HELPABOUT_DLLINFOPB, "BUTTON", WS_CHILD|WS_TABSTOP, 119, 63, 50, 15
43-
CONTROL "fabrice@fabtoys.net", HELPABOUT_FIXEDTEXT2, "STATIC", WS_CHILD, 44, 38, 106, 13
44-
CONTROL "� 1997-2007 Fabrice Foray", HELPABOUT_FIXEDTEXT3, "STATIC", WS_CHILD|SS_NOPREFIX|SS_LEFTNOWORDWRAP, 46, 26, 90, 13
43+
CONTROL "fabrice@xsharp.eu", HELPABOUT_FIXEDTEXT2, "STATIC", WS_CHILD, 44, 38, 106, 13
44+
CONTROL "� 1997-2020 Fabrice Foray", HELPABOUT_FIXEDTEXT3, "STATIC", WS_CHILD|SS_NOPREFIX|SS_LEFTNOWORDWRAP, 46, 26, 90, 13
4545
CONTROL "OK", HELPABOUT_OKPB, "BUTTON", WS_CHILD|WS_TABSTOP|BS_DEFPUSHBUTTON, 26, 63, 50, 15
4646
END

0 commit comments

Comments
 (0)