paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

Added more images to the resource.

Browse Source 
Shane

git-svn-id: trunk@81 -
This commit is contained in:
lazarus 2000-12-29 15:04:07 +00:00
parent 94237dcca2
commit f691b58971
8 changed files with 127 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

87
designer/lazarus_control_images.lrs
View File

@ -226,6 +226,20 @@
+'. . . . . . . . . . . . . ",'#10'". . . . . . . . . . . . . . . . . . . ' +'. . . . . . . . . . . . . ",'#10'". . . . . . . . . . . . . . . . . . . '
+'. . . . . . "};'#10 +'. . . . . . "};'#10
); );
LazarusResources.Add('tgroupbox','XPM',
'/* XPM */'#10'static char * tgroupbox_xpm[] = {'#10'"23 21 5 1",'#10'" '#9
+'c None",'#10'".'#9'c #C0C0C0",'#10'"+'#9'c #AE0013",'#10'"@'#9'c #808080'
+'",'#10'"#'#9'c #FFFFFF",'#10'" ",'#10'" +++++++'
+'+ ",'#10'" @@.++++++++.@@@@@@@ ",'#10'" @#.++++++++.######.#'
+' ",'#10'" @#................@# ",'#10'" @#................@# ",'#10'"'
+' @#................@# ",'#10'" @#................@# ",'#10'" @#.......'
+'.........@# ",'#10'" @#................@# ",'#10'" @#................@'
+'# ",'#10'" @#................@# ",'#10'" @#................@# ",'#10
+'" @#................@# ",'#10'" @#................@# ",'#10'" @#......'
+'..........@# ",'#10'" @#................@# ",'#10'" @#................'
+'@# ",'#10'" @.@@@@@@@@@@@@@@@@@# ",'#10'" ################### ",'#10
+'" "};'#10
);
LazarusResources.Add('tlabel','XPM', LazarusResources.Add('tlabel','XPM',
'/* XPM */'#10'static char * label_xpm[] = {'#10'"25 25 37 1",'#10'" '#9'c' '/* XPM */'#10'static char * label_xpm[] = {'#10'"25 25 37 1",'#10'" '#9'c'
+' None",'#10'". '#9'c #C8C8C8",'#10'"+'#9'c #000000",'#10'"@'#9'c #030303' +' None",'#10'". '#9'c #C8C8C8",'#10'"+'#9'c #000000",'#10'"@'#9'c #030303'
@ -675,6 +689,34 @@
+'. . . . . . . . . . . . . . . . . . . . ",'#10'". . . . . . . . . . . . ' +'. . . . . . . . . . . . . . . . . . . . ",'#10'". . . . . . . . . . . . '
+'. . . . . . . . . . . . . "};'#10 +'. . . . . . . . . . . . . "};'#10
); );
LazarusResources.Add('tradiogroup','XPM',
'/* XPM */'#10'static char * tradiogroup_xpm[] = {'#10'"25 25 7 1",'#10'" '
+#9'c None",'#10'".'#9'c #C0C0C0",'#10'"+'#9'c #D30013",'#10'"@'#9'c #8080'
+'80",'#10'"#'#9'c #FFFFFF",'#10'"$'#9'c #000000",'#10'"%'#9'c #870013",'
+#10'" ",'#10'" ",'#10'" '
+' ",'#10'" ++++++++ ",'#10'" @@.++'
+'++++++.@@@@@@@ ",'#10'" @#.++++++++.######.# ",'#10'" @#.........'
+'.......@# ",'#10'" @#................@# ",'#10'" @#..@............'
+'.@# ",'#10'" @#.@$@.%%%%%%%%%..@# ",'#10'" @#..@.............@# "'
+','#10'" @#................@# ",'#10'" @#..@.............@# ",'#10
+'" @#.@$@.%%%%%%%%...@# ",'#10'" @#..@.............@# ",'#10'" @#'
+'................@# ",'#10'" @#..@.............@# ",'#10'" @#.@$@.%'
+'%%%%%%%%..@# ",'#10'" @#..@.............@# ",'#10'" @#............'
+'....@# ",'#10'" @.@@@@@@@@@@@@@@@@@# ",'#10'" ###################'
+' ",'#10'" ",'#10'" ",'
+#10'" "};'#10
);
LazarusResources.Add('tscrollbar','XPM',
'/* XPM */'#10'static char * tscrollbar_xpm[] = {'#10'"25 14 5 1",'#10'" '
+#9'c None",'#10'".'#9'c #C0C0C0",'#10'"+'#9'c #808080",'#10'"@'#9'c #0000'
+'00",'#10'"#'#9'c #FFFFFF",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" +###.@###.@.#.#.@###.@ ",'#10'" +#@@.@#...@#.#.#@#@@.@ '
+'",'#10'" +#++.@#...@.#.#.@#++.@ ",'#10'" +....@....@#.#.#@....@ ",'#10
+'" @@@@@@@@@@@@@@@@@@@@@@ ",'#10'" ",'#10'" '
+' ",'#10'" "};'#10
);
LazarusResources.Add('tspeedbutton','XPM', LazarusResources.Add('tspeedbutton','XPM',
'/* XPM */'#10'static char * speedbutton_xpm[] = {'#10'"25 25 7 1",'#10'" ' '/* XPM */'#10'static char * speedbutton_xpm[] = {'#10'"25 25 7 1",'#10'" '
+#9'c None",'#10'".'#9'c #FFFFFF",'#10'"+'#9'c #BEBEBE",'#10'"@'#9'c #0000' +#9'c None",'#10'".'#9'c #FFFFFF",'#10'"+'#9'c #BEBEBE",'#10'"@'#9'c #0000'
@ -747,14 +789,45 @@
+' ",'#10'" ' +' ",'#10'" '
+' "};'#10 +' "};'#10
); );
LazarusResources.Add('ttimer','XPM',
'/* XPM */'#10'static char * ttimer_xpm[] = {'#10'"25 25 10 1",'#10'" '#9
+'c None",'#10'".'#9'c #C0C0C0",'#10'"+'#9'c #000000",'#10'"@'#9'c #FFFFFF'
+'",'#10'"#'#9'c #800000",'#10'"$'#9'c #F8F8F8",'#10'"%'#9'c #030303",'#10
+'"&'#9'c #F4F4F4",'#10'"*'#9'c #FEFEFE",'#10'"='#9'c #C3C3C3",'#10'" '
+' ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" +++++ '
+' ",'#10'" ++@@@@@++ ",'#10'" +@@@@+@@@@+ '
+' ",'#10'" +@@#@@+.@#@@+ ",'#10'" +@@@@@@+.@@@@@+. ",'
+#10'" +@#@@@@+.@@@#@+. ",'#10'" +@@@@@@@+.@@@@@@+ ",'#10'" '
+' +@@@@@@@+.@@@@@@+ ",'#10'" +@#@@@@@++++@@#@+ ",'#10'" +@@@'
+'@@@@@....@@@+ ",'#10'" +@@@@@@@@@@@@@@@+ ",'#10'" +@#@@@@@@'
+'@@@#@+ ",'#10'" +@@@@@@@@@@@@@+ ",'#10'" +@@#@@@@@#@@+ '
+' ",'#10'" +@@@@#@@@@+ ",'#10'" ++@@@@@++ "'
+','#10'" +++++ ",'#10'" ",'#10
+'" ",'#10'" ",'#10'" '
+' "};'#10
);
LazarusResources.Add('ttogglebox','XPM',
'/* XPM */'#10'static char * ttogglebox_xpm[] = {'#10'"21 17 7 1",'#10'" '
+#9'c None",'#10'".'#9'c #000000",'#10'"+'#9'c #FFFFFF",'#10'"@'#9'c #8080'
+'80",'#10'"#'#9'c #C1C1C1",'#10'"$'#9'c #C0C0C0",'#10'"%'#9'c #C4C4C4",'
+#10'" ",'#10'" ",'#10'" '
+' ",'#10'" ",'#10'" ",'
+#10'" ..................+",'#10'" .@@@@@@@@@@@@@@@@@+",'#10'" .@######'
+'##########+",'#10'" .@################+",'#10'" .@####$#######$###+",'
+#10'" .@################+",'#10'" .@############$###+",'#10'" .@######'
+'######%###+",'#10'" .@################+",'#10'" .@################+",'
+#10'" +++++++++++++++++++",'#10'" "};'#10
);
LazarusResources.Add('default','XPM', LazarusResources.Add('default','XPM',
'/* XPM */'#10'static char * default_xpm[] = {'#10'"15 14 9 1",'#10'" '#9 '/* XPM */'#10'static char * default_xpm[] = {'#10'"19 17 9 1",'#10'" '#9
+'c None",'#10'".'#9'c #D11B76",'#10'"+'#9'c #770D46",'#10'"@'#9'c #B21A75' +'c None",'#10'".'#9'c #D11B76",'#10'"+'#9'c #770D46",'#10'"@'#9'c #B21A75'
+'",'#10'"#'#9'c #14BC2D",'#10'"$'#9'c #09F41D",'#10'"%'#9'c #99155F",'#10 +'",'#10'"#'#9'c #14BC2D",'#10'"$'#9'c #09F41D",'#10'"%'#9'c #99155F",'#10
+'"&'#9'c #17D323",'#10'"*'#9'c #127C1F",'#10'" . ",'#10'" +' +'"&'#9'c #17D323",'#10'"*'#9'c #127C1F",'#10'" ",'#10'"'
+'.@ ",'#10'" +.@ ",'#10'" ++.@@ ",'#10'" ++.@@' +' ",'#10'" ",'#10'" . '
+' # ",'#10'" +++.@@@ #### ",'#10'" +++.@@@ #$$$##",'#10'"+++%.@@@@#' +' ",'#10'" +.@ ",'#10'" +.@ ",'#10'" ++.'
+'$$#&#",'#10'"+++%.@@@#*##&&#",'#10'"++%%.@@@#**#&&#",'#10'"..%%....#**#&' +'@@ ",'#10'" ++.@@ # ",'#10'" +++.@@@ #### ",'#10'"'
+'&#",'#10'" #*### ",'#10'" ### ",'#10'" "' +' +++.@@@ #$$$##",'#10'" +++%.@@@@#$$#&#",'#10'" +++%.@@@#*##&&'
+'};'#10 +'#",'#10'" +++%%.@@@#**#&&#",'#10'" ....%%....#**#&&#",'#10'" '
+' #*### ",'#10'" ### ",'#10'" "};'#10
); );

3
ide/idecomp.pp
View File

@ -247,12 +247,13 @@ begin
RegisterComponents('Standard','StdCtrls',[TEdit,TLabel,TMemo,TCheckBox RegisterComponents('Standard','StdCtrls',[TEdit,TLabel,TMemo,TCheckBox
,TListBox,TRadioButton,TComboBox,TScrollBar,TGroupBox,TToggleBox]); ,TListBox,TRadioButton,TComboBox,TScrollBar,TGroupBox,TToggleBox]);
RegisterComponents('Standard','Buttons',[TButton,TBitBtn,TSpeedButton]); RegisterComponents('Standard','Buttons',[TButton,TBitBtn,TSpeedButton]);
RegisterComponents('Additional','ExtCtrls',[TNoteBook,TTimer,TPaintBox RegisterComponents('Additional','ExtCtrls',[TNoteBook,TPaintBox
,TBevel,TRadioGroup]); ,TBevel,TRadioGroup]);
RegisterComponents('Additional','ComCtrls',[TStatusBar,TListView,TProgressBar RegisterComponents('Additional','ComCtrls',[TStatusBar,TListView,TProgressBar
,TToolBar,TToolButton,TTrackBar]); ,TToolBar,TToolButton,TTrackBar]);
RegisterComponents('Samples','Spin',[TSpinEdit]); RegisterComponents('Samples','Spin',[TSpinEdit]);
RegisterComponents('System','ExtCtrls',[TTimer]);
RegisterComponentsProc:=nil; RegisterComponentsProc:=nil;

33
images/default.xpm
View File

@ -1,6 +1,6 @@
/* XPM */ /* XPM */
static char * default_xpm[] = { static char * default_xpm[] = {
"15 14 9 1", "19 17 9 1",
" c None", " c None",
". c #D11B76", ". c #D11B76",
"+ c #770D46", "+ c #770D46",
@ -10,17 +10,20 @@ static char * default_xpm[] = {
"% c #99155F", "% c #99155F",
"& c #17D323", "& c #17D323",
"* c #127C1F", "* c #127C1F",
" . ", " ",
" +.@ ", " ",
" +.@ ", " ",
" ++.@@ ", " . ",
" ++.@@ # ", " +.@ ",
" +++.@@@ #### ", " +.@ ",
" +++.@@@ #$$$##", " ++.@@ ",
"+++%.@@@@#$$#&#", " ++.@@ # ",
"+++%.@@@#*##&&#", " +++.@@@ #### ",
"++%%.@@@#**#&&#", " +++.@@@ #$$$##",
"..%%....#**#&&#", " +++%.@@@@#$$#&#",
" #*### ", " +++%.@@@#*##&&#",
" ### ", " +++%%.@@@#**#&&#",
" "}; " ....%%....#**#&&#",
" #*### ",
" ### ",
" "};

6
lcl/extctrls.pp
View File

@ -293,9 +293,11 @@ type
public public
constructor Create (AOwner : TComponent); override; constructor Create (AOwner : TComponent); override;
published published
property Enabled;
property ItemIndex; property ItemIndex;
property Items; property Items;
property Columns; property Columns;
property Visible;
end; end;
const const
@ -319,6 +321,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2000/12/29 15:04:07 lazarus
Added more images to the resource.
Shane
Revision 1.1 2000/07/13 10:28:23 michael Revision 1.1 2000/07/13 10:28:23 michael
+ Initial import + Initial import

1
lcl/forms.pp
View File

@ -175,6 +175,7 @@ type
property ClientWidth; property ClientWidth;
property Enabled; property Enabled;
property FormStyle; property FormStyle;
property PopupMenu;
property Position; property Position;
property Visible; property Visible;
// property WindowState; // property WindowState;

6
lcl/include/customradiogroup.inc
View File

@ -58,6 +58,8 @@ begin
FItemIndex := -1; FItemIndex := -1;
FButtonList := TList.Create; FButtonList := TList.Create;
FColumns := 1; FColumns := 1;
Width:= 250;
Height := 200;
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -241,6 +243,10 @@ end;
{ {
$Log$ $Log$
Revision 1.2 2000/12/29 15:04:07 lazarus
Added more images to the resource.
Shane
Revision 1.1 2000/07/13 10:28:25 michael Revision 1.1 2000/07/13 10:28:25 michael
+ Initial import + Initial import

9
lcl/spin.pp
View File

@ -43,10 +43,17 @@ type
constructor Create(AOwner : TComponent); override; constructor Create(AOwner : TComponent); override;
destructor Destroy; override; destructor Destroy; override;
published
property Align;
property Decimal_Places : Integer read fDecimals write SetDecimals; property Decimal_Places : Integer read fDecimals write SetDecimals;
property Enabled;
property Value : Single read GetValue write SetValue; property Value : Single read GetValue write SetValue;
property Climb_Rate : Single read fClimbRate write SetClimbRate; property Climb_Rate : Single read fClimbRate write SetClimbRate;
property Visible;
property OnEnter;
property OnExit;
property PopupMenu;
property ShowHint;
end; end;
Implementation Implementation

6
lcl/stdctrls.pp
View File

@ -53,6 +53,7 @@ type
TGroupBox = class(TCustomGroupBox) TGroupBox = class(TCustomGroupBox)
published published
property Caption; property Caption;
property Visible;
end; end;
TComboBoxStyle = (csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable); TComboBoxStyle = (csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable);
@ -215,6 +216,7 @@ type
property OnClick; property OnClick;
property DragMode; property DragMode;
property Text; property Text;
property Visible;
end; end;
@ -477,6 +479,10 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.5 2000/12/29 15:04:07 lazarus
Added more images to the resource.
Shane
Revision 1.4 2000/12/01 15:50:39 lazarus Revision 1.4 2000/12/01 15:50:39 lazarus
changed the TCOmponentInterface SetPropByName. It works for a few properties, but not all. changed the TCOmponentInterface SetPropByName. It works for a few properties, but not all.
Shane Shane