I have uudecoded it, but gunzip does not like the file. Can someone send me the attachment in another format?

Mattias Gaertner

Title: Adding accelerators for main menu

Entered by: Pavel Machek

Hi!

Main menu missed accelarators for most entries, so I added them. Uff. Diff looks really easy, like this:

(Gzipped, uuenpiped

begin 644 UUPIPEOUT
M\'XL(`//\\%SL``Y69:V_;-A2&/R^_0I_8#G)<7Y('=:D:]I]5VVV MTR9+ABYI]^_\'F\\S#PT.)(.\'R.>-[7O(DY/S]/]EE>':?4MW_YR7^?) M[UV9)/-DMKB1_V?)8C:;GZ5IVI,06BQNEA<W2P/=WB;GJ]7%9#E/4O.\\O3U+ MSI(DR=O]?5[PQP,ODYNWR></O.S>MWP_W=0\\:_G+)UY\\^_4-(J</V9[?O\'T! M0B_>G)V[S\"8[M\'FEWOK\"$&F88`9!\')U\"14BBT_5N
M]Q*DR8+!FYZR9QXG3I)(G`PYXA0#2S=$&B:805!\'2)R,C8B3\"\"%NW<3+6S>$ MP\'7C210<%IDH+!W%F.*\\;@FYZR9\"\\+JA)!?%\")
M?N>4]**(T5X42/RFJ)K(T:Q0)%S%\')
M^P0R0P5\'K%\",T\"87LJO9:K)*4OU`R]B?7=[&>2-)9(T,.<XH!HHV1!HF[MA/ MA:\".D&09&U$L$?7+*\\GSU61Q+33K)Q!]M\\O;+^6N(D67>7\'4W(-`<Q\\Z:CXR M4)",O0)QY9L`11P3+D%*P86(XATC#!#$(
MKO&)\'WB=M56--&VZ-HG2)$`D240<19)PIF/7.GIP.],`K4:TX4JKPW]QE0H0 MERI\";JV2<8K51#I`,(T$ZA6-J.\"/6=/2*QZN6)
MMVK5A;]Z=>[\\TU/XXFHROQ)36#_!%\'[B6;W]^SXO=Z,:+0I$VN!1)>\"@!,.D M0PPSD%:IH6FF==H4\\`O9X/J[.(>>H$\'QI!#50JC1&5LD29PW#(^5:1Y;8\'FZ M(G(\'&S!#97F.?.*\'(MN.CUN\']MPP1%3[O+7D^F(R2S:%B8889&].NKR6(F ']5\\Y_O\"^;`]^*=7)\\.W9PX('QM=_1#\"!*>E(\"B-RJ*+0 M_NTTHHU<'^M*=1WGCZ&1.R;J>-.3SOIF^KK[>2BJFKO.4`F,
MR*#E&1!LF$<BO&%*9%/M>(\"-CEN.#GN/K7CM!_!%(
MJ\\:0G1\"TQ[^KZ\\E\\*6::?J*9]J7,VXCOOR.*K%,QQS--N6=`&9E.\'9]\\C`$. M=TJ8HAI&9H]BT,BYK^I]I&\"%(@2[&,,<+A30K!J&!&LF.,O
M?SU;RF\\=_4\"_^P?>--GWB$]!`\",K3-0QHR>A3A-K\'#LHD`\'2[YRPI.<\')X6! MK\"OSY61Q*6S13^\"+68T>^(]Q6RP+7+\')E\'W;]38=0YK)>]\\B7A^.J MBL9*OU(;:^P;P`0QP;C[/`#[\'CBW>I#$%WN]-#A?0CSS$_Q2B$N_4PQ!-X`F M&G<)\"&#?$><J$)+>@Z&A$;HC/,4+=&$(
M;HB!,I;(7BP;P[A?#+JW!JKO4^ZUY^NN+R/Y,WV!0]BG:=T^%L7F: MA3:(2))MVUR8T8G-,&FKT.CR<]E@,E$D<E(%3QEN*L$?;Y_XOGKF]W6UCS;- MIOC.V39L\'\\AROXUD./DF\"PB8%\\AD=&JH5.2?;3G%1)<HG.`R9\"; MY%/5U8\'/3<I?F^+[:]NPOR`+NB3#R3$CC<A@;DJH-.+$T$]9!43Y:=]G_7P] MUS-</WU\'<Q4M.^C\"F,+-0N]Z+%T&&,]1W2-?%+!4X:<2B#F;1=_ MB!`L,5,'\"-.-UAV=;=](Q0>!V/*PN]7C03W\\\\;*K](2]X
M_<3;-B^_Q^^=.-\'W\"!/8,.\\-[F>L;DP>"80G(]P`6]2/@)&T? M/A.JRDXXSFHEQ(E6-?B\'6LU3-R9A6ZDL1J:1Q=$>FM;(8ZYB[1B^-FO:-5[3 M[LKG=[SD=58,6>E<IN,,>*F.V^SENI<%S3%-277,2B.RF)\\6*E%8^@>PU`.0 MJZ(]KZMRSTM[D8]3X%\\BRF=YSU_5)WCH)'^=NB:J\'\\\"^<P+RE0 4G&^>TQ[EG9.AK/L?\'I\'
`
end

)

Title: AOwner difers from Self

Entered by: Jo�o Schuler

When I change Self to AOwner, the program
crashes:

 constructor TForm1.Create(AOwner: TComponent);
 begin
 inherited Create(AOwner);
// ObjName:Form1  ClassName:TForm1
// Made by DFM To Pas V0.4
// MainMenu1:TMainMenu;
// File1:TMenuItem;
// Quit1:TMenuItem;
 Left := 288;
 Top := 264;
 Width := 381;
 Height := 392;
 Caption := \'Form1\';
//MainMenu1:=TMainMenu.Create(AOwner);
MainMenu1:=TMainMenu.Create(Self);
 with MainMenu1 do
     begin
//     File1:=TMenuItem.Create(AOwner);
     File1:=TMenuItem.Create(Self);
     with File1 do
          begin
          Caption := \'File\';
//          Quit1:=TMenuItem.Create(AOwner);
          Quit1:=TMenuItem.Create(Self);
          with Quit1 do
               begin
               Caption := \'Quit\';
               File1.Add(Quit1);
               end;
          MainMenu1.Items.Add(File1);
          end;
     Menu:=MainMenu1;
     end;

Title: Menu Desappear

Entered by: Jo�o Schuler

When I run this, everything goes fine:

// ObjName:Form1  ClassName:TForm1
// Made by DFM To Pas V0.4
// GroupBox1:TGroupBox;
// BitBtn1:TBitBtn;
// MainMenu1:TMainMenu;
// File1:TMenuItem;
// Quit1:TMenuItem;
 Left := 288;
 Top := 264;
 Width := 381;
 Height := 392;
 Caption := \'Form1\';
// Menu := MainMenu1;
   MainMenu1:=TMainMenu.Create(Self);
 with MainMenu1 do
     begin
     File1:=TMenuItem.Create(Self);
     with File1 do
          begin
          Caption := \'File\';
          Quit1:=TMenuItem.Create(Self);
          with Quit1 do
               begin
               Caption := \'Quit\';
               File1.Add(Quit1);
               end;
          MainMenu1.Items.Add(File1);
          end;
     Menu:=MainMenu1;
     end;
 GroupBox1:=TGroupBox.Create(Self);
 with GroupBox1 do
     begin
     parent:=self;
     Left := 8;
     Top := 232;
     Width := 185;
     Height := 105;
     Caption := \'GroupBox1\';
     TabOrder := 6;
     BitBtn1:=TBitBtn.Create(Self);
     with BitBtn1 do
          begin
          parent:=GroupBox1;
          Left := 8;
          Top := 16;
          Width := 75;
          Height := 25;
          TabOrder := 0;
          Kind := bkAll;
          Show;
          end;
     Show;
     end;
--------------------------------------------
But, when I change the creation order of
the Menu and GroupBox, the menu disappear!
The source that I used to test is:
 GroupBox1:=TGroupBox.Create(Self);
 with GroupBox1 do
     begin
     parent:=self;
     Left := 8;
     Top := 232;
     Width := 185;
     Height := 105;
     Caption := \'GroupBox1\';
     TabOrder := 6;
     BitBtn1:=TBitBtn.Create(Self);
     with BitBtn1 do
          begin
          parent:=GroupBox1;
          Left := 8;
          Top := 16;
          Width := 75;
          Height := 25;
          TabOrder := 0;
          Kind := bkAll;
          Show;
          end;
     Show;
     end;
MainMenu1:=TMainMenu.Create(Self);
 with MainMenu1 do
     begin
     File1:=TMenuItem.Create(Self);
     with File1 do
          begin
          Caption := \'File\';
          Quit1:=TMenuItem.Create(Self);
          with Quit1 do
               begin
               Caption := \'Quit\';
               File1.Add(Quit1);
               end;
          MainMenu1.Items.Add(File1);
          end;
     Menu:=MainMenu1;
     end;

Title: gtk error palettized 256

Entered by:

Larzus dies, can\'t

open in 256 color mode in windows Me,

I have uuencoded it, but gunzip dont like the file. Please send me the attachement.

Mattias