paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 23:40:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed small aesthetical editoroptions bugs

Browse Source 
git-svn-id: trunk@7089 -
This commit is contained in:
mattias 2005-04-19 15:06:30 +00:00
parent ca6f2c8ea4
commit dfbe4b526d
5 changed files with 22 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/printers/linux/udlgpropertiesprinter.pp
View File

@ -97,12 +97,14 @@ Type
procedure Tdlgpropertiesprinter.dlgpropertiesprinterSHOW(Sender: TObject);
begin
if Sender=nil then ;
RefreshInfos;
end;
procedure Tdlgpropertiesprinter.cbPaperSizeKEYPRESS(Sender: TObject;
var Key: Char);
begin
if Sender=nil then ;
Key:=#0;
end;
@ -126,6 +128,8 @@ Var Lst : TStringList;
pOr : TPrinterOrientation;
St : String;
begin
if Sender=nil then ;
InitCombo(cbPaperSize,'PageSize',Printer.PaperSize.PaperName);
InitCombo(cbPaperType,'MediaType','Plain Paper');
InitCombo(cbPaperSrc ,'InputSlot','Auto Sheet Feeder');
@ -194,6 +198,7 @@ end;
procedure Tdlgpropertiesprinter.rbPortraitCLICK(Sender: TObject);
begin
if Sender=nil then ;
RefreshInfos;
end;

8
ide/editoroptions.pp
View File

@ -4755,7 +4755,7 @@ begin
begin
Name:='TextBoldCheckBox';
Parent:=TextAttributesGroupBox;
Top:=5;
Top:=0;
Left:=5;
Width:=50;
Height:=16;
@ -4889,7 +4889,7 @@ begin
end;
with ForegroundColorButton do begin
Top:=2;
Top:=0;
Left:=5;
Width:=70;
Height:=20;
@ -4910,7 +4910,7 @@ begin
end;
with BackgroundColorButton do begin
Top:=2;
Top:=0;
Left:=5;
Width:=70;
Height:=20;
@ -4932,7 +4932,7 @@ begin
w:=(TextBoldCheckBox.Parent.ClientWidth-20) div 3;
with TextBoldCheckBox do begin
Top:=5;
Top:=0;
Left:=5;
Width:=w;
Height:=16;

4
lcl/include/customlabel.inc
View File

@ -137,6 +137,7 @@ begin
Height := 17;
FShowAccelChar := True;
Color := clNone;
AutoSize:=true;
end;
function TCustomLabel.GetTransparent: boolean;
@ -271,6 +272,9 @@ end;
{
$Log$
Revision 1.29 2005/04/19 15:06:30 mattias
fixed small aesthetical editoroptions bugs
Revision 1.28 2005/02/03 15:10:23 micha
implement shortcut handling, tcustomlabel accelerator focuscontrol functionality

6
lcl/include/wincontrol.inc
View File

@ -55,7 +55,8 @@ end;
------------------------------------------------------------------------------}
function TWinControl.AutoSizeDelayed: boolean;
begin
Result:=(wcfCreatingChildHandles in FWinControlFlags)
Result:=(not HandleAllocated)
or (wcfCreatingChildHandles in FWinControlFlags)
or (inherited AutoSizeDelayed);
//if Result then debugln('TWinControl.AutoSizeDelayed A ',DbgSName(Self),' wcfCreatingChildHandles=',dbgs(wcfCreatingChildHandles in FWinControlFlags),' csLoading=',dbgs(csLoading in ComponentState));
end;
@ -4481,6 +4482,9 @@ end;
{ =============================================================================
$Log$
Revision 1.322 2005/04/19 15:06:30 mattias
fixed small aesthetical editoroptions bugs
Revision 1.321 2005/04/01 19:10:42 micha
make method Hide a member of TControl (fixes bug 707)

4
lcl/stdctrls.pp
View File

@ -1133,6 +1133,7 @@ type
public
constructor Create(AOwner: TComponent); override;
procedure Paint; override;
property AutoSize default True;
end;
@ -1237,6 +1238,9 @@ end.
{ =============================================================================
$Log$
Revision 1.201 2005/04/19 15:06:30 mattias
fixed small aesthetical editoroptions bugs
Revision 1.200 2005/04/05 19:41:19 mattias
accelerated TMemo on gtk, gtk2 and win32 interface from Andrew Haines