Intermediate UI patch to show a bug.

git-svn-id: trunk@3279 -

examples/messagedialogs.pp

@@ -70,9 +70,10 @@ end;
 procedure TMainForm.Button1Click(Sender : TObject);
 begin
    ShowMessage ('First simple test!');
+   writeln('Go to second dialog');
    MessageDlg  ('Caption', 'Two buttons now...', mtError, [mbOK,mbCancel], 0);
    MessageDlg  ('Warning, not fully implemented', mtWarning, [mbYes, mbNo, mbOK,mbCancel], 0);
-   ShowMessageFmt ('The show will end now'+#13+'%s'+#13+'Good bye!!!', [MainForm.Caption]);
+   ShowMessageFmt ('The show will end now'+LineEnding+'%s'+LineEnding+'Good bye!!!', [MainForm.Caption]);
    close;
 end;
 
@@ -84,6 +85,9 @@ begin
 end.
 {
    $Log$
+   Revision 1.5  2002/09/03 20:02:01  lazarus
+   Intermediate UI patch to show a bug.
+
    Revision 1.4  2002/08/30 10:06:07  lazarus
    Fixed alignment of multiline TLabel.
    Simplified and prettified MessageBoxen.

ide/lazarusidestrconsts.pas

@@ -194,7 +194,7 @@ ResourceString
   lisSelectDFMFiles = 'Select Delphi form files (*.dfm)';
 
   // dialogs
-  lisSaveChangesToProject = 'Save changes to project?';
+  lisSaveChangesToProject = 'Save changes to project %s?';
   lisProjectChanged = 'Project changed';
 
   lisFPCSourceDirectoryError = 'FPC Source Directory error';

lcl/include/customform.inc

@@ -983,11 +983,12 @@ begin
   SaveCount := Screen.FCursorCount;
   WindowList := DisableTaskWindows(0);}
   ModalResult := 0;
+
   try
     Show;
     try
       CNSendMessage(LM_SHOWMODAL, Self, nil);
-      Repeat
+      repeat
         { Delphi calls Application.HandleMessage
           But HandleMessage processes all pending events and then calls idle,
           which will wait for new messages. Under Win32 there always a next
@@ -1001,6 +1002,7 @@ begin
         if ModalResult<>0 then break;
         Application.Idle;
       until ModalResult <> 0;
+      
       Result := ModalResult;
       //if GetActiveWindow <> Handle then ActiveWindow := 0;
     finally
@@ -1025,7 +1027,11 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.56  2002/09/03 20:02:01  lazarus
+  Intermediate UI patch to show a bug.
+
   Revision 1.55  2002/09/03 11:32:49  lazarus
+
   Added shortcut keys to labels
   Support for alphabetically sorting the properties
   Standardize message and add shortcuts ala Kylix

lcl/include/customlabel.inc

@@ -106,7 +106,7 @@ procedure TCustomLabel.SetShowAccelChar(Val : boolean);
 begin
   if Val <> FShowAccelChar then begin
     FShowAccelChar:= Val;
-    CNSendMessage(LM_SETLABEL, Self, PChar(Caption));
+    if HandleAllocated then CNSendMessage(LM_SETLABEL, Self, PChar(Caption));
   end;
 end;
 
@@ -144,7 +144,11 @@ end;
 { =============================================================================
 
   $Log$
+  Revision 1.6  2002/09/03 20:02:01  lazarus
+  Intermediate UI patch to show a bug.
+
   Revision 1.5  2002/09/03 11:32:49  lazarus
+
   Added shortcut keys to labels
   Support for alphabetically sorting the properties
   Standardize message and add shortcuts ala Kylix

lcl/include/messagedialogs.inc

@@ -94,6 +94,7 @@ begin
   FMsgLines   := TStringList.Create;
   FLabel      := TLabel.Create(Self);
   FLabel.Alignment:= taLeftJustify;
+  FLabel.ShowAccelChar:= false;
   FLabel.Parent:= Self;
   FLabel.Visible:= true;
   
@@ -244,8 +245,7 @@ begin
   FDlgType := value;
   FBitmap.Free;
   FBitmap := TBitmap.Create; 
-  FBitmap.Handle := CreatePixmapIndirect(@mtImages[FDlgType],
+  FBitmap.Handle := CreatePixmapIndirect(@mtImages[FDlgType], ColorToRGB(clBtnFace));
-                         ColorToRGB(clBtnFace));
   if DefaultCaption then
     Caption := cMtCaption[FDlgType];
 end;
@@ -279,7 +279,6 @@ const
   cBtnDist   = cBtnWidth + 4;
   cMinLeft   = cBitmapX + cBitmapWidth + cLabelSpacing;
 var
-  aButton     : TBitBtn;    // temp. variable to create buttons
   aBitmap     : TBitmap;    // temp. variable to create bitmaps for buttons
   curBtn      : TMsgDlgBtn; // variable to loop through TMsgDlgButtons
   ButtonLeft  : integer;    // left position of button(s)
@@ -335,8 +334,8 @@ begin
   for curBtn := low(TMsgDlgBtn) to high(TMsgDlgBtn) do begin
     if curBtn in FButtons then begin
       inc(ButtonIndex);
-      aButton := TBitBtn.Create(self);
+      
-      With aButton do begin
+      with TBitBtn.Create(Self) do begin
         Parent:= Self;
         SetBounds (ButtonLeft, 2 * cLabelSpacing + reqHeight, cBtnWidth, cBtnHeight);
         inc(ButtonLeft, cBtnDist);
@@ -374,8 +373,7 @@ procedure TMessageBox.EndUpdate;
 begin
   dec(FUpdateCounter);
   if FUpdateCounter<0 then FUpdateCounter:= 0;
-  if (FUpdateCounter=0) and (FRelayoutNeeded) then
+  if (FUpdateCounter = 0) and FRelayoutNeeded then ReLayout;
-    ReLayout;
 end;
 
 // ---------------------------------------------------------------------------
@@ -385,7 +383,7 @@ function CreateMessageDialog(const aMsg: string; DlgType: TMsgDlgType;
 var
   msgbox : TMessageBox;
 begin
-  msgbox := TMessageBox.Create (application);
+  msgbox:= TMessageBox.Create(Application);
   msgbox.BeginUpdate;
   msgbox.theMessage := aMsg;
   msgBox.DialogType := DlgType;
@@ -474,6 +472,9 @@ end;
 
 {
    $Log$
+   Revision 1.13  2002/09/03 20:02:01  lazarus
+   Intermediate UI patch to show a bug.
+
    Revision 1.12  2002/08/30 10:06:07  lazarus
    Fixed alignment of multiline TLabel.
    Simplified and prettified MessageBoxen.